---

' 1. Кнопка Умножения (*)
Private Sub CommandButton1_Click()
    ' Перемножаем числовые значения полей x и y
    z.Text = Val(x.Text) * Val(y.Text)
End Sub

' 2. Кнопка Вычитания (-)
Private Sub CommandButton2_Click()
    ' Вычитаем из x значение y
    z.Text = Val(x.Text) - Val(y.Text)
End Sub

' 3. Кнопка Сложения (+) — добавлена по пункту 2
Private Sub CommandButton_Plus_Click()
    ' Используем Val, чтобы избежать склеивания текста
    z.Text = Val(x.Text) + Val(y.Text)
End Sub

' 4. Кнопка Деления (/) — добавлена по пункту 2
Private Sub CommandButton_Divide_Click()
    ' Проверяем, чтобы не было деления на ноль
    If Val(y.Text) <> 0 Then
        z.Text = Val(x.Text) / Val(y.Text)
    Else
        MsgBox "Деление на ноль невозможно!", vbCritical, "Ошибка"
    End If
End Sub

' 5. Кнопка Квадратного корня из x — добавлена по пункту 3
Private Sub CommandButton_Sqrt_Click()
    ' Корень нельзя взять из отрицательного числа
    If Val(x.Text) >= 0 Then
        z.Text = Sqr(Val(x.Text)) ' Sqr() - функция квадратного корня в VBA
    Else
        MsgBox "Нельзя извлечь корень из отрицательного числа!", vbCritical, "Ошибка"
    End If
End Sub

' 6. Кнопка Синуса угла x — добавлена по пункту 4
Private Sub CommandButton_Sin_Click()
    ' Вычисляем синус (в VBA аргумент должен быть в радианах)
    ' Если x в градусах, перевод в радианы: x * 3.14159 / 180
    z.Text = Sin(Val(x.Text))
End Sub

' 7. Кнопка "ДА" (бывшая кнопка "Сброс") — изменена по Варианту 4
' (В свойствах Caption этой кнопки напиши: ДА)
Private Sub CommandButton3_Click()
    ' Выводим сообщение по 4-му варианту
    MsgBox "Молодец!!!", vbInformation, "Ответ"
    
    ' Дополнительно: если нужно, чтобы она всё ещё очищала поля, раскомментируй строки ниже:
    ' x.Text = ""
    ' y.Text = ""
    ' z.Text = ""
End Sub

' 8. Кнопка "НЕТ" (бывшая кнопка "Выход") — изменена по Варианту 4
' (В свойствах Caption этой кнопки напиши: НЕТ)
Private Sub CommandButton4_Click()
    ' Выводим сообщение по 4-му варианту
    MsgBox "Вам все равно придется закрыть это окно!!!", vbExclamation, "Внимание"
    
    ' Закрываем форму
    End
End Sub