Синтаксис условного оператора:
If <выражение> Then <оператор>
Этот оператор обеспечивает проверку логического выражения (условия). Если это условие истинно (True), то выполняется простой или составной оператор, записанный после слова Then; если условие ложно (False), то работа оператора If заканчивается и управление передается оператору, следующему за If.
Составной оператор – это последовательность операторов одной строки, разделенных знаком двоеточием.
Примеры условных операторов:
If MP > 20,500.00$ Then MP=25,500.00$
If Stud_C(100).FName Like "Пе*" Then num=Slud_C (100).Gr
В выражениях могут использоваться специальные функции логических проверок VBA, а в логических выражениях можно использовать стандартные логические функции.
Таблица 8. Логические функции VBA.
| Функция
| Описание
|
| Функция
| Описание
|
| Not
And
Or
| - инверсия или отрицание
- логическое "И"
- логическое "ИЛИ"
|
| Xor
Imp
Eqv
| - исключающее "Или"
- импликация
- эквивалентность
|
Синтаксис цепочки вложенных операторов If:
If <выражение 1 > Then <блок операторов 1>
ЕlseIf <выражсние2> Then
<блок операторов2>
ElseIf <выражение3> Then
<блок операторов3>
[Else
<блок операторов Else>
End If
Поочередно выполняется проверка истинности выражений. Если выражение1 истинно, выполняется блок операторов1, иначе выполняется проверка истинности выражения2 и т.д. Если ни одно из выражений не является истинным, то выполняется блок операторов Else, если он имеется, иначе - оператор, следующий за End If. Примеры организация проверки цепочки вложенных операторов If:
| Программа
| Комментарий
|
| If AgPr >120
Then DfPr = Full(234,456)
ElseIf AgPr > 240
ThenDfPr = Full(120,450)
ElseIf AgPr > 360
ThenDfPr = Full(240,500)
Else DfPr = Full(360,700)
End If
| Проверка условия 1:
условие 1 истинно, то вызов процедуры
иначе Проверка условия 2:
условие 2 истинно,то вызов процедуры
иначе Проверка условия 3:
условие 3 истинно,то вызов процедуры
иначе (т.е. условия 1-3 ложны) вызов процедуры
Конец блока If
|