6.2 Разветвляющиеся программы со сложными условиями

Пример 2 программы вычислений значения функции y со сложным условием. Значения n и x вводятся с клавиатуры:

.

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

End Sub

Пример 3 программы вычисления значения функции y с вложенным оператором If:

.

Private Sub CommandButton1_Click()

Dim x As Single, y As Single

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

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

MsgBox (y)

End Sub

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

Private Sub CommandButton1_Click()

Worksheets("Условный оператор").Range("c2") = "Вычисления с разветвлением" ‘вносит текст в ячейку «С2» листа «Условный оператор»

Dim x As Single, s As Single, v As Single, j As Single

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

s=Val(InputBox(“Введите значение s”))

j = Worksheets("Условный оператор ").Range("i19")

If x * j < 2 * s Then v = Cos(x * j) ^ 2 Else If x * j >= 2 * s And _

x * j <= 3 * s Then v = 2 * Tan(j * x) Else v = 5 - Exp(x / 2)

MsgBox ("Значение v=" & Format(v, "##.####"))

End Sub

Для проверки результата вычисления надо ввести в ячейку D23 формулу:

=ЕСЛИ(D19*I19<2*F19;COS(I19*D19)*COS(I19*D19);ЕСЛИ(И(D19*I19>=2*F19;D19*I19<=3*F19);2*TAN(I19*D19);5-EXP(D19:D19/2)))

Результат вычислений, полученный с помощью формул Excel и процедуры VBA должен совпасть.

6.3 Содержание заданий

1. Выполнить приведенные выше примеры программ с разветвлением.

2. Составить программу по условиям, приведенным в табл. 6.1.

Таблица 6.1

№	Формула для вычислений	Исходные данные
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

7 Вычисление сумм, произведений, экстремумов

Рассмотрим примеры, демонстрирующие возможности использования в программах операторов цикла и условных операторов.