07-09-If-Then-Else.docm - пример к п. 7.11.
Программы на VBA умеют принимать решения - для этого существуют операторы условного перехода. Они объединены в конструкцию If - Then - Else.
В этой конструкции могут быть использованы следующие операторы сравнения (табл. 7.4.)
| Таблица 7.4. Операторы сравнения
|
| Оператор
| Описание
|
| =
| Равно
|
| <>
| Не равно
|
| >
| Больше
|
| <
| Меньше
|
| >=
| Больше или равно
|
| <=
| Меньше или равно
|
| Like
| Сравнение строки с шаблоном
|
| Is
| Сравнение объектов
|
Напишем простую программу (листинг 7.13.), которая спрашивает у пользователя его возраст. Если введенный возраст меньше 18 - программа должна вывести надпись "Вам менее 18 лет", если больше или равен 18 - надпись "Вам 18 или больше".
a = InputBox("Введите ваш возраст")
If a < 18 Then MsgBox ("Вам меньше 18")
If a >= 18 Then MsgBox ("Вам 18 или больше")
Листинг 7.13. Оператор If - Then (html, txt)
Здесь представлен оператор в простейшем виде - проверка условия и выполнение однострочной команды. А что если нужно выполнить не одну команду, а несколько? Для этого служит команда End If (листинг 7.14.)
a = InputBox("Введите ваш возраст")
If a < 18 Then
MsgBox ("Вам меньше 18")
MsgBox ("Вам не следует смотреть этот фильм")
End If
If a >= 18 Then MsgBox ("Добро пожаловать")
