Как видно из описания цикла, он полностью идентичен циклу While Wend

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 'условие

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

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

Do... Loop Until

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

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

Do

<оператор>

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

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

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

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

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

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

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

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

option explicit

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

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

Do

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

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

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

Как выбрать, какой из циклов использовать в программе?

Ниже приведены основные правила, помогающие выбрать наиболее подходящий из этих операторов:

1. если вам заранее известно число повторений тела цикла, лучше всего использовать оператор цикла For;

2. если вам заранее не известно число повторений тела цикла и если окончание цикла зависит от выполнения некоторого условия, лучше использовать конструкции While…Wend, Do While…Loop или Do Until…Loop

3. если необходимо, чтобы цикл всегда выполнялся хотя бы один раз, то используйте конструкции Do …Loop While или Do …Loop Until.

Примечания

· Оператор break используется в теле цикла для преждевременного завершения его выполнения, например, по некоторому условию.

· Оператор continue используется, для того чтобы прервать выполнение данного шага цикла и продолжить со следующего.

· Операторы Exit Do и Exit For служат соответственно для преждевременного выхода из циклов Do и For.

Все перечисленные в данном примечании операторы затрудняют чтение текста программы пользователем, поэтому их использование должно быть ограничено теми местами, где без этого не обойтись.

Не нашли, что искали? Воспользуйтесь поиском: