Этот тип цикла служит для того, чтобы повторять тело цикла пока выполняется условие (проверка условия в конце цикла).
Общий вид данной конструкции выглядит следующим образом:
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 'условие
