---

' Код для кнопки
Private Sub CommandButton1_Click()
    ' Берем число из TextBox1, прибавляем к нему 10 и выводим в Label1
    If IsNumeric(TextBox1.Text) Then
        Label1.Caption = "Результат: " & (Val(TextBox1.Text) + 10)
    Else
        MsgBox "Введите число в поле!"
    End If
End Sub


Private Sub CommandButton2_Click()
    Dim i As Integer, cost As Integer
    Dim result As String
    result = "Таблица цен:" & vbCrLf
    
    For i = 2 To 10
        cost = i * 5
        result = result & i & " шт. = " & cost & " руб." & vbCrLf
    Next i
    
    Label1.Caption = result ' Вывод в Label
End Sub

Private Sub CommandButton3_Click()
    Dim m(1 To 10) As Integer, i As Integer
    Dim pos As Integer, neg As Integer, zero As Integer
    
    ' Заполнение массива случайными числами от -5 до 5
    Randomize
    For i = 1 To 10
        m(i) = Int((5 - (-5) + 1) * Rnd + (-5))
        
        ' Подсчет
        If m(i) > 0 Then pos = pos + 1
        If m(i) < 0 Then neg = neg + 1
        If m(i) = 0 Then zero = zero + 1
    Next i
    
    Label1.Caption = "Положительных: " & pos & vbCrLf & _
                     "Отрицательных: " & neg & vbCrLf & _
                     "Нулей: " & zero
End Sub