Глава 19. Инструментальные средства пользователя в среде microsoft office
У
словный
оператор If.
Оператор
может использоваться в двух нотациях:
в виде простой
и блочной структур.
Оператор простой структуры имеет следующий формат записи:
If <выражение> Then <оператор>
Данный оператор обеспечивает проверку выражения (условия). Если условие истинно (True), выполняется простой или составной оператор, следующий за словом Then; если условие ложно (False), управление передается следующему за If оператору.
Составной оператор — последовательность операторов одной строки, разделенных знаком : (двоеточие).
При построении выражения с помощью операторов логического сравнения следует обеспечить однотипность сравниваемых величин.
Пример 19.22.
If MaxPrice > 23,000.00$ Then MaxPrice=23,500.00$
If Student_Card(100).FullName Like "Пе*" Then number=Student_Card(100).Group
При построении выражений используют специальные функции логических проверок
VBA.
Логические выражения могут быть построены с помощью стандартных логических
функций:
Функция |
Описание |
Функция |
Описание |
Not And Or |
Инверсия или отрицание Логическое "И" Логическое "ИЛИ" |
Хог Imp Eqv |
Исключающее "Или" Импликация Эквивалентность |
Оператор If блочной структуры имеет дополнения:
If <выражение1> Then <блок операторов 1>
Elself <выражение2> Then <блок операторов2>
Elself <выражениеЗ> Then <блок операторовЗ>
[
Else
<блок операторов Else> ]
End If
Последовательно выполняется проверка истинности выражений. Если выражение! истинно, выполняется блок onepamopoel, иначе выполняется проверка истинности выражения2 и т.д.
Если ни одно из выражений не соответствует требованиям истинности, выполняется блок операторов Else, если оно имеется, иначе — оператор, следующий за End If.
19.2. Создание приложений на языке visual basic for applications
705
Пример 19.23. Организация проверки условия блочной структурой оператора If
Текст программы |
Комментарий |
If AvgPrice > 12000 Then DiffPrice=Full(234, 45600) |
Проверка условия 1 Если условие 1 истинно, вызов процедуры |
Elself AvgPrice > 24000 Then DiffPrice=Full( 12000, 45000) Elself AvgPrice > 36000 Then DiffPrice=Full(24000, 50000) Else DiffPrice=Full(36000, 70000) End If |
Проверка условия 2 Если условие 2 истинно, вызов процедуры Проверка условия 3 Если условие 3 истинно, вызов процедуры Если условия 1 — 3 не выполняются, вызов процедуры Конец блока If |
Оператор выборки Select Case. Данный оператор применяется в том случае, если во всех логических условиях участвует одна и та же величина (переменная):
Select Case <величина> Case <сравнение1> <блок операторов 1> Case <сравнение2> <блок операторов2>
[ Case Else
<блок операторов Else> ]
End Case
Выражение для сравнения может быть записано в виде: Case 45 или Case 3, 4, 5, или Case 5 То 12.
Если ни одно из сравнений не является истинным, выполняется блок операторов Else, если блок Else отсутствует, управление передается оператору, следующему за End Case.
Пример 19.24. Организация последовательной проверки значения переменной
Текст программы |
Комментарий |
Select CDemse |
Начало работы оператора Select, объявление имени переменной, для которой выполняются последующие проверки — Demse |
Case Demse 21 |
Первое сравнение |
Dem=21 |
Если первое сравнение истинно, выполняется оператор присваивания |
Case Demse 22; 25; 28 |
Второе сравнение — указан список возможных значений |
Dem=31 |
Если второе сравнение истинно, выполняется оператор присваивания |
Case Demse 45 To 48 |
Третье сравнение, переменная Cdemse может принимать значения от 45 до 48 |
Dem=41 |
Если третье сравнение истинно, выполняется оператор присваивания |
Case Else |
Если не выполнилось ни одно из указанных сравнений |
Dem=51 |
Выполняется присваивание |
End Case |
Конец оператора Select |
706