Оператор 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

Вибір між цими конструкціями - питання смаку і/або звички. Обидва способи працюють однаково добре.