---

Private Sub OptionButton3_Click()
Dim searchNum As Variant
Dim count As Integer
Dim i As Integer
If Trim(TextBoxl.Text) = " Then
MsgBox "Поле«Введите число›пустое. Введите число для поиска. ", vbExclamation, "Ошибка"
Exit Sub
End IF
searchNum - CDbl (TextBoxl.Text)
count = o
For i = 1 To 10
If A(i) = searchNum Then
count - count + 1
End If Next i
If count > 0 Then
Labe13. Caption = " число " & searchNum & " встречаются " & count & " раз (а) "
Else
Labe13. Caption = " число " & searchNum & * не найдено в массиве "
End If
Label3. Visible = True
End Sub