---

Option Explicit
Dim A(1 To 10) As Integer

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim str As String
    
    ' Цикл для ввода 10 чисел
    For i = 1 To 10
        A(i) = CInt(InputBox("Введите " & i & "-й элемент массива", "Заполнение массива"))
    Next i
    
    ' Собираем числа в строчку, чтобы показать их на экране
    str = ""
    For i = 1 To 10
        str = str & A(i) & " "
    Next i
    
    Label2.Caption = str ' Выводим массив в Label2
End Sub
Private Sub CommandButton2_Click()
    Dim i As Integer
    Dim str As String
    
    Randomize ' Включаем генератор случайных чисел
    
    ' Заполняем массив случайными числами от 1 до 100
    str = ""
    For i = 1 To 10
        A(i) = Int((100 * Rnd) + 1)
        str = str & A(i) & " "
    Next i
    
    Label2.Caption = str ' Выводим массив в Label2
End Sub
Private Sub OptionButton1_Click()
    Dim searchNum As Integer
    Dim count As Integer
    Dim i As Integer
    
    ' Проверяем, ввели ли число в TextBox1
    If TextBox1.Text = "" Then
        MsgBox "Сначала введите число в поле ввода!", vbExclamation
        Exit Sub
    End If
    
    searchNum = CInt(TextBox1.Text)
    count = 0
    
    ' Считаем совпадения в массиве
    For i = 1 To 10
        If A(i) = searchNum Then
            count = count + 1
        End If
    Next i
    
    Label3.Visible = True
    Label3.Caption = "Число " & searchNum & " встречается " & count & " раз(а)"
End Sub
Private Sub OptionButton2_Click()
    Dim max As Integer
    Dim i As Integer
    
    max = A(1) ' За ориентир берем первое число
    
    ' Ищем максимум
    For i = 2 To 10
        If A(i) > max Then max = A(i)
    Next i
    
    Label3.Visible = True
    Label3.Caption = "Максимальный элемент: " & max
End Sub