Лекция: Do ... Loop While

Этот тип цикла служит для того, чтобы повторять тело цикла пока выполняется условие (проверка условия в конце цикла).

Общий вид данной конструкции выглядит следующим образом:

Do

<оператор>

… тело цикла

[<оператор>]

Loop While <логическое выражение>

<логическое выражение> — это простое или сложное условие, или логическая константа (true или false).

Вначале выполняется тело цикла, расположенное после ключевого слова Do, а затем проверяется <логическое выражение>. Пока <логическое выражение> возвращает true, тело цикла выполняется, а как только <логическое выражение> возвратит false, то работа продолжится со следующего оператора после Loop While <логическое выражение>.

Пример использования цикла Do … Loop While:

Задача: Пользователь вводит число, если оно меньше 20 выводить его квадрат, если больше или равно то закончить выполнение сценария.

Текст программы:

option explicit

Dim Number 'вводимое число

Number=CInt(InputBox(«Введите число»,«Диалоговое окно»))

Do

MsgBox «Квадрат число: » & Number & " равен " & (Number*Number)

Number=CInt(InputBox(«Введите число»,«Диалоговое окно»))

Loop While Number<20 'условие

Замечание: Цикл, поведение которого определяется логическим выражением, проверяемым после выполнения тела цикла, называется циклом с постусловием.