Question

Помагите написать программу на языке VBA
Задание : в файле Excel создать новое окно UserForm с одной командной кнопкой для запуска программы
В программе нужно :
1) Ввести значение x
2) В зависимости от значения x вывести значение y либо вывести сообщение " Функция не определена" ​

Answer 1

Ответ:

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

Объяснение:

be6e5d188ed3251b7b7c9928d766c24c.xls