End Sub. Пример 4 (использование блочного оператора If).Вычислить значения y = sin2x, w = ctgx, если х < 5; y = 1–sinx

Пример 4 (использование блочного оператора If).Вычислить значения y = sin²x, w = ctgx, если х < 5; y = 1–sinx, w = arctgx, если х ³ 5.

x = {9; 0.1; -4; 5; 12}

Private Sub CommandButton1_Click()

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

Dim w As Single, I As Integer

For i=1 to 5

x = Val(InputBox("Введите значение х"))

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

If x > 5 Then

y = Sin(x)^2

w = cos(x)/sin(x)

Else

y = 1 - Sin(x)

w = Atn(x)

End If

MsgBox (“x=” & x & “ y=” & y & “ w=” & w)

Next

End Sub

Пример 5. Вычислить значение функции n:

, x = 1,7 s = 5,2 значение j задать самостоятельно.

Оформим Лист2 согласно образцу (рис. 6.1). Переименуем «Лист2» в «Условный оператор», вставим расчетные формулы и введем исходные данные.

Рис. 6.1. Образец оформления программы с разветвлением на листе Excel

Для кнопки «Расчет If» напишем следующую процедуру: