Оператор If.Then.Else

Оператор If...Then...Else представляет собой простейшую, но и самую распространенную форму проверки условий в Visual Basic. Его сокращенная форма — оператор If...Then — имеет следующий синтаксис:

If Выражение1 Оператор Выражение 2 Then

' Выполнить некоторые действия

End If

В этом примере Оператор может быть любым из операторов, рассмотренных ранее: AND, OR, =, < > и т. д. Выражение1 и Выражение2 — переменные или константы, допускающие сравнение данным оператором. Например, сравнение строк выполняется следующим образом:

PIN = " 123456"

If PIN = " 123456" Then

MsgBox " Верное значение PIN"

End If

В этом случае PIN сравнивается с заранее известным значением, " 123456". Если условие истинно, на экран выводится сообщение.

Иногда мы реагируем лишь на выполнение условия, но чаще приходится обрабатывать и противоположную ситуацию. Для обработки противоположных ситуаций используется оператор Else. Синтаксис выглядит так:

If Выражение1 Оператор Выражение 2 Then

Выполнить некоторые действия

Else

Выполнить другие действия

End If

Все, что вам придется сделать, — включить секцию Else после первого выполняемого блока. Затем следующий выполняемый блок размещается между ключевыми словами Else и End If. В нем выполняются действия для условия, противоположного проверяемому. В предыдущем примере это выглядело бы так:

PIN = " 654321"

If PIN = " 123456" Then

MsgBox " Верное значение PIN"

Else

MsgBox " Неверное значение PIN! "

End If

Итак, теперь вы знаете, как обработать условие и исключение из него. Этот полез-ный прием поможет уменьшить количество ошибок в программе. Если вам потребуется вычислить несколько условий, оператор If...Then...Else можно поместить внутри другого оператора (вложенная проверка). Вложенные операторы If...Then позволяют выполнить серию проверок в определенном порядке. Например:

If ValidUserID(UserID) Then

If ValidPassword(UserID, Password) Then

MsgBox " Неверный пароль! "

Else

MsgBox " Пользователь зарегистрирован! "

End If

Else

MsgBox " Неверное имя пользователя! "

End If

Сначала мы проверяем, что пользователь ввел правильное имя. Проверка выполняется функцией ValidUserID(). Если функция возвращает True (правильное имя), программа переходит к проверке пароля. В противном случае она извещает пользователя о том, что он ввел неверное имя.

Если функция ValidPassword() возвращает True, пользователю разрешается войти в систему. В противном случае попытка регистрации завершается неудачей. Вложенные операторы If...Then можно создать и другим способом — с помощью конструкции ElseIf:

If x = 1 Then

Выполнить некоторые действия

ElseIf x = 2 Then

' Выполнить другие действия

End If

Выбор между этими конструкциями — вопрос вкуса и/или привычки. Оба способа работают одинаково хорошо.