Для использования предложения Else

1. Замените код в операторе If...Then на следующий.

If My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Saturday Or _

My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Sunday Then

MsgBox("Happy Weekend!")

Else

MsgBox("Happy Weekday! Don't work too hard!")

End If

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

Примечание.

Можно изменить день недели, дважды щелкнув по времени в панели задач Windows для проверки выполнения обоих блоков кода. (Панель задач является строкой, содержащей кнопку Windows Пуск; по умолчанию она находится в нижней части рабочего стола, а время отображается в правом углу.)

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

Подробное рассмотрение. Повторения операций в цикле Do... While или Do... Until, пока не будет выполнено условие

На этом занятии будет рассказано, как использовать операторы Do...While и Do...Until для повтора кода в зависимости от определенных условий.

На предыдущем занятии было показано, как использовать оператор For...Next для прохода через блок кода заданное число раз. Но что делать, если количество повторов кода зависит от определенных условий? Операторы Do...While и Do...Until позволяют повторять блок кода, пока значение определенного условия равно True, или до тех пор, пока значение определенного условия не станет равно True.

Например, предположим, что имеется программа для добавления ряда чисел, но требуется, чтобы сумма чисел всегда была не больше 100. Для выполнения добавления можно использовать оператор Do...While следующим образом:

Dim sum As Integer = 0

Do While sum < 100

sum = sum + 10

Loop

В этом коде строка Do While оценивает переменную sum, проверяя, меньше ли она чем 100. Если это так, то выполняется следующая строка кода; если же это не так, то выполнение переходит к строке, следующей за словом Loop. Ключевое слово Loop сообщает коду о необходимости вернуться к строке DoWhile и оценить новое значение sum.

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

Чтобы использовать оператор Do...While

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

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

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

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

4. Из Панели элементов перетащите один элемент управления TextBox и один элемент Button на форму.

5. Дважды щелкните элемент управления Button, чтобы открыть редактор кода.

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

Dim sum As Integer = 0

Dim counter As Integer = 0

Do While sum < 100

sum = sum + CInt(Textbox1.Text)

counter = counter + 1

Loop

MsgBox("The loop has run " & CStr(counter) & " times!")

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

8. В текстовом поле введите число и нажмите кнопку.

Появится окно сообщения, отображающее, сколько раз число было добавлено само к себе до достижения 100.

9. В меню Отладка нажмите кнопку Остановить отладку для завершения программы. Оставьте этот проект открытым. Позже нужно будет добавить в него функции.