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.

х={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» напишем следующую процедуру: