Написать программу на языке vba
: в файле excel создать новое окно userform с одной командной кнопкой для запуска программы
в программе нужно :
1) ввести значение x
2) в зависимости от значения x вывести значение y либо вывести сообщение " функция не определена" ​

Private Sub CommandButton1_Click()

Dim x As Double, y As Double

x = Val(TextBox1.Text)

If (x <= 70) And (x >= 0) Then

If x < 3 Then

y = 1 + ((Sin(x * 3.14 / 180)) ^ 2 / 2)

TextBox2.Text = y

End If

If (x >= 3) And (x <= 20) Then

y = 2 * x * x * x - 5

TextBox2.Text = y

End If

If x > 20 Then

y = 0.25 * Sqr(5 * x / 3)

TextBox2.Text = y

End If

Else

TextBox2.Text = "Функция не определена"

End If

End Sub

Объяснение: