2014-02-03
447
End If
End If
Else
End If
Этот условный оператор работает таким образом.
Если условие истинно, то выполняется оператор (блок операторов), находящийся после ключевого слова Then. Если же условие ложно, то оператор (блок операторов) не выполняется. Далее выполняется оператор, следующий за End If.
Рассмотрим следующую конструкцию If...Then:
If условие Then
оператор1 (блок операторов 1)
оператор2 (блок операторов 2)
Эта конструкция условного оператора работает следующим образом: если условие истинно, то выполняется блок оператор1 (блок операторов 1), находящийся после ключевого слова Then. Если условие ложно, то выполняется блок оператор2 (блок операторов 2), находящийся после ключевого слова Else.
После выполнения какого-либо из блоков выполняется оператор, следующий за End If.
Пример:
Sub Example()
Dim X As Byte
X = 12 'начальное значение Х
If (X > 9 And X < 12) Then
X = X + 3
Else
X = X + 2
End If
X = X * 2 'конечное значение X
End Sub
В том случае, когда блок операторов нужно выполнять после проверки не одного, а нескольких условий, следует использовать такую конструкцию If...Then:
|
|
|
If условие1 Then
оператор1 (блок операторов 1)
ElseIf условие2 Then
оператор2 (блок операторов 2)
ElseIf условиеЗ Then
оператор3 (блок операторов 3)
...
[Else
операторN (блок операторов N) ]
Если условие1 истинно (т. е. имеет значение True), то выполняется оператор1 (блок операторов 1). Если оно ложно, то проверяется условие2, находящееся после ключевого слова ElseIf. При его истинности выполняется оператор2 (блок операторов 2) и т. д. Если ни одно из условий не является истинным, то выполняется блок операторN (блок операторов N), расположенный после ключевого слова Else. Следует отметить, что структура [Else операторN (блок операторов N) ] может отсутствовать.
Далее выполняется оператор, следующий за End If, вне зависимости от того, какой из блоков выполнен.
Для многократного выполнения блока операторов используется следующие операторы цикла – For...Next, While...Wend и Do...Loop.
Оператор цикла For...Next используется в том случае, когда количество выполнений заданного блока операторов известно заранее. Данная конструкция имеет следующий синтаксис:
For параметр = начало То конец [ Step шаг ]
оператор (блок операторов)
Next [ параметр ]
При положительном значении величины шаг цикл For...Next работает следующим образом.
Переменной параметр сначала присваивается значение начало. Далее проверяется условие счетчик > конец. Если результатом проверки этого условия
условия является значение True, то происходит окончание работы цикла. При этом операторы тела цикла ни разу не выполняются.
Если результатом проверки условия параметр > конец является False, то в этом случае операторы цикла выполняются первый раз. После этого происходит переход на начало цикла. Далее значение переменной параметр увеличивается на величину шаг, после чего снова проверяется условие параметр > конец. Если результатом является False, то операторы цикла выполняются второй раз, и т. д.
|
|
|
Выполнение цикла прекращается, когда результатом проверки условия параметр > конец становится True. По окончании цикла выполняется оператор, следующий за циклом, т. е. за ключевым словом Next.
При отрицательном значении величины шаг цикл For...Next работает, как при положительном значении, но проверяется условие параметр < конец.
В случае отсутствия ключевого слова Step шаг изменения переменной параметр полагается равным единице.
В качестве параметров цикла начало, конец и шаг можно использовать не только числа, но и арифметические выражения. Важно, чтобы к моменту выполнения цикла For...Next все переменные в этих арифметических выражениях имели числовые значения (были определены).
Часто требуется досрочно выйти из цикла. В этом случае цикл For...Next записывается в виде
For параметр = начало То конец [Step шаг ]
оператор1 (блок операторов 1)
If условие Then Exit For
оператор2 (блок операторов 2)
Next [ параметр ]
Досрочное окончание цикла обеспечивается оператором, обозначаемым служебным словосочетанием Exit For. Работает цикл следующим образом.
При каждом значении переменной параметр после выполнения оператор1 (блок операторов 1) компьютер рассчитывает значение логического выражения условие. Если это значение равно False, то работа цикла продолжается. В противном случае работа цикла оканчивается: оператор2 (блок операторов 2) не выполняется и осуществляется переход на оператор, следующий за циклом.
Оператор цикл While...Wend применяется в том случае, когда число выполнений операторов цикла заранее неизвестно. Синтаксис этого цикла:
While условие
оператор (блок операторов)
