---

' === КНОПКА "РЕШИТЬ" ===
Private Sub CommandButton1_Click()
    Dim x As Double
    Dim y As Double

    ' Проверяем, введено ли число
    If Not IsNumeric(TextBox1.Text) Then
        MsgBox "Ошибка! Введите число в поле X."
        Exit Sub
    End If

    ' Считываем X из верхнего поля
    x = CDbl(TextBox1.Text)

    ' === Решение задачи №19 ===
    If x < -3 Then
        ' Если x < -3, то y = x^4
        y = x ^ 4
        TextBox2.Text = y
        
    ElseIf x >= -3 And x < 0 Then
        ' Если -3 <= x < 0, то y = 2 * tg(x)
        y = 2 * Tan(x)
        TextBox2.Text = y
        
    Else
        ' Если x >= 0, решения нет
        TextBox2.Text = "Нет решения (x >= 0)"
    End If
End Sub


' === КНОПКА "СБРОС" ===
Private Sub CommandButton2_Click()
    ' Очищаем оба поля
    TextBox1.Text = ""
    TextBox2.Text = ""
    
    ' Возвращаем курсор в поле X
    TextBox1.SetFocus
End Sub