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

Вероятно, наиболее часто используемой конструкцией в VBA является If-Then. В этой конструкции используется следующий синтаксис:

If условие Then выполняемые в случае истинности операторы

[Else выполняемые в случае ложности операторы]

Конструкция If-Then выполняет один или несколько операторов в зависимости от справедливости условия. Оператор Else вводить не обязательно. Если он добавлен, то выполняются специальные операторы даже в случае ложности условия.

Пример: Рассмотрим программу, позволяющую при вводе в диалоговом окне значения температуры меньше 10 градусов, вывести в диалоговом окне текст "Наденьте пальто", а при вводе значения температуры больше 10 градусов, вывести в диалоговом окне текст "Наденьте плащ".

Данная задача описывается базовой структурой "ветвление“: если-то-иначе.

Код программы выглядит следующим образом:

Sub Погода ()

Dim Температура As Integer, Одежда As String

Температура = 15

If Температура <= 10 Then

Одежда = “Оденьте пальто"

Else

Одежда = "Оденьте плащ"

End If

MsgBox Одежда

End Sub

Для отображения результата выполнения программы пользователю, в коде использована VBA – процедура MsgBox, которая выводит содержимое строковой переменной Одежда. В результате выполнения программы на экране появится сообщение, показанное на рис. 3.3.

Рисунок 3.3. Окно сообщений.

3.3.2. Конструкция Select Case

Конструкция Select Case используется для предоставления выбора из двух и более опций. Эта конструкция является альтернативой конструкции If-Then-Else. В ней используется следующий синтаксис:

Select Case логическое выражение

Case условие 1

блок операторов 1

Case условие 2

блок операторов 2

...

Case условие N

блок операторов N

[Case Else

операторы по умолчанию]

End Select

Под оператором Case можно вводить любое количество операций; все они выполняются, если условие верно. Такая конструкция описывается базовой структурой  "ветвление": выбор-иначе.

В качестве примера рассмотрим программу, которая позволяет задать числовое значение оценки и получить в диалоговом окне ее значение прописью: 1 – кол, 2 – неудовлетворительно, 3 – удовлетворительно, 4 – хорошо, 5 - отлично.

Sub Оценка()

Dim Оценка_цифрой As String, Оценка_прописью As String

Оценка_цифрой = 2

Select Case Оценка_цифрой

Case 1

Оценка_прописью = "Кол"

Case 2

Оценка_прописью = "Неудовлетворительно"

Case 3

Оценка_прописью = "Удовлетворительно"

Case 4

Оценка_прописью = "Хорошо"

Case 5

Оценка_прописью = "Отлично"

End Select

MsgBox "Ваша оценка: " & Оценка_прописью

End Sub

Для отображения результата выполнения программы пользователю, в коде опять использована VBA – процедура MsgBox. Формируемая для вывода строка состоит из двух частей: первая - “Ваша оценка: ”, к ней дописывается вторая часть – содержимоу строковой переменной Оценка_прописью, в данном примере - “Неудовлетворительно”. Операция объединения строк, выраженная символом &, приводит к выводу текста сообщения, показанному на рис. 4.

Рисунок 3.4. Окно сообщений.