Для использования инструкции If... Then

1. В меню Файл выберите команду Создать проект.

2. В диалоговом окне Создать проект в области Шаблоны выберите Приложение Windows.

3. В поле Имя введите IfThen и нажмите кнопку ОК.

Откроется новый проект Windows Forms.

4. Дважды щелкните форму, чтобы открыть редактор кода.

5. В обработчике событий Form1_Load введите следующий код.

If My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Saturday Or _ My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Sunday Then MsgBox("Happy Weekend!")End If

6. Нажмите клавишу F5 для запуска приложения.

Если текущим днем является суббота или воскресенье, появляется окно сообщения с текстом Happy Weekend!, в противном случае окно сообщения не отобразится.

7. В меню Отладка нажмите кнопку Остановить отладку для завершения программы. Оставьте этот проект открытым. На следующем занятии, рассказывающем об использовании инструкции Else, необходимо будет внести в него добавления.

Можно заметить, что в приведенном выше примере оператор If...Then использует оператор Or для проверки нескольких условий ("сегодня суббота Or сегодня воскресенье"). Можно использовать сколько угодно операторов Or и And для проверки необходимого количества условий в одном операторе If...Then.

Предложение Else

Выше было рассмотрено, как использовать оператор If...Then для запуска кода, если условие имеет значение истина. Но что делать, если необходимо запустить один набор кода, если условие истинно, и другой, если условие ложно? В этом случае можно использовать предложение Else. Предложение Else позволяет указать блок кода, который будет выполняться в том случае, если условие ложно. В следующем примере показано, как работает предложение Else.

If My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Friday Then MsgBox("Today is Friday!")Else MsgBox("It isn't Friday yet!")End If

В этом примере вычисляется выражение; если оно имеет значение "true", то выполняется следующая строка кода и отображается первое окно сообщения. Если оно имеет значение "false", код до предложения Else пропускается и выполняется строка, следующая за Else, то есть отображается второе окно сообщения.

Практическое задание

Эта процедура начинается там, где заканчивается процедура "Для использования оператора If... Then". Если раздел "Для использования оператора If... Then" не был завершен, необходимо сделать это перед продолжением.