Sub CommandButton1_Click()
Dim x As Single, y As Single, w As Single, n As Single
x = Val(InputBox(«Введите x»))
n = Val(InputBox(«Введите n»))
y = Exp(-2 * x) + 1
z = Log(x) / (x + 1)
If x < z ^ 2 Then w = Sqr(x * y) Else w = n * x + 2
Msgbox (“w=” & w)
End Sub
Пример 2. Вычислить значение функции yдля вводимых с клавиатуры некоторых значений n и x:
.
Sub CommandButton1_Click()
Dim x As Single, n As Single, y As Single
'Ввод исходных данных
x = Val(InputBox("Введите x "))
n = Val(InputBox("Введите n"))
'Проверка условий и расчет значений
If x >= 0 And n >= 0 Then y = Sqr(x)
If x < 0 And n < 0 Then y = n * x + 2
MsgBox (y) 'Вывод результата
Дата добавления: 2015-09-25; просмотров: 703;