Sub CommandButton1_Click(). Dim x As Single, y As Single, w As Single, n As Single

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) 'Вывод результата

End Sub

Пример 3. Вычислить значение функции y для вводимого с клавиатуры некоторого значения x:

.

Sub CommandButton1_Click()

Dim x As Single, y As Single

'Ввод исходных данных

x = Val(InputBox("Ввелите x "))

'Проверка условия и расчет значений

If x < 0 Then y = x + 2 Else If x <= 5 Then y = Sqr(5 * x) Else y = x ^ 2

MsgBox (y) 'Вывод результата

End Sub

Пример 4. Написать программу вычисления значений y и w.

Если х < 5, то y=sin²x, w=ctgx; если х ³ 5, то y=1-sinx, w=arctgx. Значение х={9; 0.1; -4; 5; 12}

Private Sub CommandButton1_Click()

Dim x As Single, y As Single, z As Single