Лекция: 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)
В этой программе можно вывести результат в ячейку на рабочем листе Excel. Для этого вместо MsgBox следует записать
Worksheets(“Лист1”).Range(“a1”)=w
Значение w будет выведено в ячейку А1 на рабочем листе с именем Лист1.
Разветвляющиеся программы со сложными условиями
Пример 2 программы вычислений значения функции y со сложным условием.Значения n и xвводятся с клавиатуры:
Private Sub CommandButton1_Click()