Do Until... Loop

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

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

Do Until <логическое выражение> заголовок цикла

<оператор>

... тело цикла

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

Loop

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

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

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

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

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

option explicit

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

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

Do Until Number>=20 'условие

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

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

Loop