---

Dim A(1 To 10) As Integer

Private Sub Command1_Click()

Dim i As Integer
Dim s As String

s = ""

For i = 1 To 10
    A(i) = Val(InputBox("Введите элемент №" & i))
    s = s & A(i) & " "
Next i

Label2.Caption = s

End Sub

Private Sub Option1_Click()

Dim i As Integer
Dim m As Integer

m = A(1)

For i = 2 To 10
    If A(i) > m Then m = A(i)
Next i

Label3.Caption = "Максимум = " & m

End Sub
Private Sub Option2_Click()

Dim i As Integer
Dim m As Integer

m = A(1)

For i = 2 To 10
    If A(i) < m Then m = A(i)
Next i

Label3.Caption = "Минимум = " & m

End Sub
Private Sub Option3_Click()

Dim x As Integer
Dim i As Integer
Dim k As Integer

x = Val(Text1.Text)
k = 0

For i = 1 To 10
    If A(i) = x Then k = k + 1
Next i

Label3.Caption = "Число " & x & " встречается " & k & " раз"

End Sub
Private Sub Option4_Click()

Dim i As Integer
Dim s As Integer

s = 0

For i = 1 To 10
    s = s + A(i)
Next i

Label3.Caption = "Сумма = " & s

End Sub
Private Sub Option5_Click()

Dim i As Integer
Dim j As Integer
Dim t As Integer
Dim s As String

For i = 1 To 9
    For j = i + 1 To 10
        If A(i) < A(j) Then
            t = A(i)
            A(i) = A(j)
            A(j) = t
        End If
    Next j
Next i

s = ""

For i = 1 To 10
    s = s & A(i) & " "
Next i

Label3.Caption = s

End Sub
Private Sub Option6_Click()

Dim i As Integer
Dim j As Integer
Dim t As Integer
Dim s As String

For i = 1 To 9
    For j = i + 1 To 10
        If A(i) > A(j) Then
            t = A(i)
            A(i) = A(j)
            A(j) = t
        End If
    Next j
Next i

s = ""

For i = 1 To 10
    s = s & A(i) & " "
Next i

Label3.Caption = s

End Sub
Private Sub Command2_Click()

Dim i As Integer
Dim s As String

Randomize
s = ""

For i = 1 To 10
    A(i) = Int(Rnd * 100)
    s = s & A(i) & " "
Next i

Label2.Caption = s

End Sub
Private Sub Command3_Click()

End

End Sub