End Sub

Главной же особенностью циклов с условием является условие, которое может быть любым выражением, принимающим значение Истина (True) или Ложь (False). В Visual Basic есть два основных цикла с условием – цикл Do While … Loop и цикл Do Until … Loop. Оба они могут быть с предусловием или с постусловием.

Цикл с постусловием: Do Операторы [Exit Do] Loop While/Until Выражение

Цикл с предусловием: Do While/Until Выражение Операторы [Exit Do] Loop

Циклы Do While … Loop и Do Until … Loop имеют следующий синтаксис:

В первом случае условие задается в операторе начала цикла, во втором – в операторе конца цикла.

DO, LOOP - ключевые слова, обозначающие начало и окончание цикла;

WHILE и UNTIL - ключевые слова, определяющие тип цикла. Цикл DO WHILE выполняется до тех пор, пока условие имеет значение True (т.е.пока условие выполняется). Цикл DO UNTIL выполняется до тех пор, пока условие имеет значение False.

EXIT DO - принудительный выход из цикла.

Пример. Написать программу, подсчитывающую число сотрудников с высшим образованием и суммирующую их годовой доход. Результаты поместить в отдельные ячейки рабочего листа «Штат сотрудников» с поясняющей надписью, как показано на рис.9.

Рис. 9. Данные исходной таблицы с листа Штат сотрудников с результатами выполнения программы в ячейках I1:J2.

Для решения данной задачи определим первую пустую ячейку в столбце В (предполагаем, что количество записей в столбце неизвестно). Введем переменную k для счета и переменную s для суммирования доходов. Переменную смещения строк i будем использовать для изменения адресации ячеек, увеличивая каждый раз на единицу.

Реализация данной задачи отражена в программном коде: