8. Операторы ветвления
Операторы ветвления изменяют последовательность выполнения операторов программы в зависимости от обрабатываемых данных. В VBA существуют три оператора ветвления: оператор безусловного перехода GoTo, оператор условного перехода If и оператор Case.
Оператор безусловного перехода GoTo
Оператор безусловного перехода записывается следующим образом:
GoTo <Label>
(Перейти_на <Метка>). Он передает очередность выполнения операторов на строку, в начале которой стоит метка с двоеточием. Оператор GoTo используется только в паре с «умными» операторами If или Case.
Использование оператора GoTo считается плохим стилем программирования. Автор полагает, что не следует обвинять отдельную краску, что она портит картину, все зависит от художника.
Структурное программирование
Программирование начинается с разработки алгоритма, плана работы программы. Укрупненный алгоритм, последовательность шагов обработки данных, называется графом обработки данных. Циклические блоки, проверки с повторами располагают внутри отдельных шагов. В графе обработки отмечаются только крупные точки ветвления. В них цепочка шагов может расщепиться на несколько цепочек обработки данных, чтобы потом снова сойтись в одну цепочку. Но в целом, работа идет последовательно от начала до конца обработки данных.
В соответствие с графом обработки программа должна состоять из последовательности сегментов (блоков) программного кода. Каждый сегмент программы должен иметь только одну точку входа и одну точку выхода. Только внутри сегмента могут находиться циклические блоки и операторы ветвления. Такой стиль написания программ называется структурным программированием, а программный код называется структурированным.
Заметим, что если оператор GoTo работает внутри отдельного сегмента, это не противоречит концепциям структурного программирования.
Оператор условного перехода If…Then
Оператор условного перехода If–Then–Else (Если–Тогда–Иначе) наделяет программы способностью принимать решения. Он является основой создания интеллектуальных программ.
If <условие> Then <True ветка> Else <False ветка> End If
Проверяется условие. Если условие истинное (True), выполняется истинная ветка, если условие ложное (False), выполняется ложная ветка.
Синтаксис оператора очень простой. Между ключевыми словами вставляются фрагменты < > оператора If, поэтому размер фрагмента может быть любым. Термин ветка означает один оператор или группу операторов.
Ключевое слово Else и ложная ветка могут отсутствовать. Тогда оператор If содержит одну истинную ветку, которая выполняется, если условие истинное, или не выполняется, если условие ложное.
If <условие> Then <True ветка> End If
Если истинная ветка состоит из одного оператора, If можно записать без ключевых слов End If
If <условие> Then <True оператор>
В VBA можно создать составной оператор. Это группа операторов, которые записаны в одной строке и разделены двоеточием. Поэтому можно написать истинный составной оператор
If <условие> Then <True оператор1: оператор2: …>
Оператор множественного выбора If–ElseIf содержит несколько истинных веток, каждая со своим условием, и одну ложную ветку, которая может отсутствовать.
If <условие1> Then <True ветка1>
ElseIf <условие2> Then <True ветка2>
ElseIf <условие3> Then <True ветка3>
. . .
[ Else <False ветка> ]
End If
Условия проверяются подряд. Как только найдется истинное условие, выполняется соответствующая истинная ветка, и выполнение оператора прекращается. Если не найдено ни одного истинного условия, выполняется ложная ветка, если она есть.
В операторе If мы советуем ключевые слова If, Else, End If располагать с одинаковым отступом от начала строки, а операторы веток сдвинуть вправо. Правило хорошего стиля программирования: подчиненный оператор располагается в следующей строке правее основного оператора.
Приведем примеры использования оператора If.
В следующем примере переменная tTime получает от функции Time текущее системное время суток в виде дроби: время в часах / 24 часа. Тогда 8 часов = 1/3, 12 часов = 1/2, 18 часов = 3/4 и так далее. В зависимости от текущего времени, программа печатает на экране три сообщения: «Доброе(ый) утро (день, вечер)».
tTime = Time
If tTime < 0.5 Then MsgBox ″Доброе утро″
If tTime >= 0.5 And tTime < 0.75 _
Then MsgBox ″Добрый день″
If tTime >= 0.75 Then MsgBox ″Добрый вечер″
Это пример плохого программирования. Если выполнится первый оператор и будет напечатано «Доброе утро», все равно будут производиться остальные бесполезные проверки. В сложной программе проверки повторяются в циклах миллионы раз, и бесполезные проверки крадут много времени.
Второй вариант написан правильно. Он использует два оператора If, вставленный один внутрь другого. Кроме того, более оптимально организованы проверки условий.
tTime = Time
If tTime < 0.5 Then MsgBox ″Доброе утро″
Else
If tTime >= 0.75 Then MsgBox ″Добрый вечер″
Else MsgBox ″Добрый день″
End If
End If
Третий вариант запишем с помощью оператора If–ElseIf. Он также оптимальный по времени выполнения, но содержит меньше операторов, и текст программы более понятный, более прозрачный, как говорят программисты.
tTime = Time
If tTime < 0.5 Then MsgBox ″Доброе утро″
ElseIf tTime >= 0.75 Then MsgBox ″Добрый вечер″
Else MsgBox ″Добрый день″
End If