Конструкция If . Then . Else

Конструкция If... Then... Else определяет несколько блоков операторов, один из которых будет выполняться в зависимости от условия:

If условие1 Then

выражение1

ElseIf условие2 Then

выражение2

...

Else

выражение-n

End If

При выполнении сначала проверяется условие1. Если оно ложно, VBA проверяет следующее условие2 и т. д., пока не найдет истинного условия. Найдя его, VBA выполняет соответствующий блок операторов и затем передает управление инструкции, следующей за оператором End if. В данную конструкцию можно включить блок оператора Else, который VBA выполняет, если не выполнено ни одно из условий.

Конструкция If... Then... ElseIf в действительности всего лишь специальный случай конструкции If... Then... Else. Заметим, что в данной конструкции может быть любое число блоков ElseIf, или даже ни одного. Блок Else можно включать независимо от присутствия или, наоборот, отсутствия блоков ElseIf.

Рассмотрим пример вычисления функции:

Запишем код программы:

Sub пример1()

Dim a As Single, b As Single, x As Single

Dim z As Double

Call read("A1", a)

Call read("B1", b)

Let x = CSng(InputBox("введи x", "Ввод данных", 0))

If x <= a Then

z = Sin(x)

ElseIf x >= b Then

z = Tan(x)

Else: z = Cos(x)

End If

Call out("C1", z)

End Sub

Заметим, что можно добавить любое число блоков Elself в конструкцию If... Then. Однако количество блоков Elself может стать настолько большим, что конструкция If... Then станет очень громоздкой и неудобной. В подобной ситуации следует применять другую конструкцию принятия решения - Select Case.

Пример 1. Рассчитать температуру при условии кипения воды или вода будет превращаться в пар (рис. 25.).

Рис. 25. Результат программы примера 1.

Пример 2. С помомощью оператора If..Then..Else (вложение операторов) рассчитать возраст людей для определения социального статуса (рис. 26.).

Рис. 26. Результат программы примера 2.

(сочетание символов «пробел» и _ - переход на другую строку)

Поиск по сайту: