Конструкция lf.Then.Else

Операторы условного и безусловного перехода

Безусловный переход к заданной метке производится оператором GOTO M, где М – метка в программе, к которой необходимо перейти.

Например:

……: GOTO M1

………………..

M1: …………..

Процедуры в Visual Basic могут проверять некие условия и затем, в зависимости от результатов проверки, выполнять разные операции. Visual Basic поддерживает следующие конструкции принятия решения (decision structures):

Dif...Then C") If...Then...Else 1~1 Select Case

Конструкция If…Then

Конструкция If... Then применяется, когда необходимо выполнить один или группу операторов в зависимости от некоторого условия. Синтаксис этой конструкции позволяет задавать ее в одной строке или в нескольких строках программы:

If condition Then statement If condition Then

statements End If

Обычно условие (condition) является простым сравнением, но оно может быть любым выражением с вычисляемым значением. Visual Basic интерпретирует это значение как True (Истина) или False (Ложь): нулевое значе­ние — False (Ложь), а любое ненулевое значение рассматривается как True (Истина). Если условие истинно, Visual Basic выполняет все операторы (statements), стоящие после ключевого слова Then. Для условного выполнения одного оператора можно использовать как синтаксис для одной строки, так и синтаксис для нескольких строк (блоковую конструкцию). Следующие два оператора эквивалентны:

If anyDate < Now Then anyDate = Now

If anyDate < Now Then

anyDate = Now End If

Заметим, что синтаксис оператора If...Then для одной строки не использует оператор End if. Чтобы выполнить последовательность операторов, если условие истинно, следует использовать блоковую конструкцию if...Then..-.End if:

If anyDate < Now Then

anyDate = Now

Timer! -Enabled = False ' Запретить таймер. End If

Конструкция lf...Then...Else

Конструкция If...Then...Else определяет несколько блоков операторов, один из которых будет выполняться в зависимости от условия:

If condition1 Then

[statementblock-1] [Else lf conditlon2 Then

[statementblock-2}]... [Else

[statementblock-n}] End If

Visual Basic сначала проверяет первое условие conditionl. Если оно ложно, Visual Basic проверяет следующее условие condition2 и т. д., пока не найдет истинного условия. Найдя его, Visual Basic выполняет соответствующий блок операторов и затем передает управление инструкции, следующей за оператором End if. В данную конструкцию можно включить блок оператора Else, который Visual Basic выполняет, если не выполнено ни одно из условий.

Конструкция If...Then...ElseIf в действительности всего лишь специальный случай конструкции If...Then...Else. Заметим, что в данной конст­рукции может быть любое число блоков ElseIf, или даже ни одного. Блок Else можно включать независимо от присутствия или, наоборот, отсутствия блоков ElseIf.

Например, приложение может выполнять разные действия в зависимости от того, на каком элементе управления из массива меню элементов управления выполнен щелчок:

Private Sub mnuCut_Click (Index As Integer) If Index = 0 Then ' Команда Cut.

CopyActiveControl ' Вызовы общих процедур.

ClearActiveControl Elself Index = 1 Then ' Команда Copy.

CopyActiveControl

Elself Index = 2 Then ' Команда Clear.

ClearActiveControl

Else ' Команда Paste.