Экономическая информатика-стр.399

Цикл Do While выполняется до тех пор, пока выражение условия имеет значение True.

Рассмотрим пример цикла Do While, реализующего алгоритм программы, аналогичный алгоритму, приведенному в примере для цикла For с досрочным прерыванием:

Option Explicit Dim Sum As Integer Dim j As Integer Sum = 2

Do While Sum < 10

Sum = Sum + j j=j + l Loop

Textl.Text = Sum

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

В отличие от него цикл Do Until выполняется до тех пор, пока выражение условия имеет значение False. Его синтаксическая конструкция:

Цикл с предусловием

Цикл с постусловием

Do Until Выражение

Do

Операторы

Операторы

Loop

Loop Until Выражение

Пример цикла Do Until, реализующего алгоритм программы, аналогичен приведенному выше:

Option Explicit Dim Sum As Integer Dim j As Integer Sum = 2

Do Until Sum >9 Sum = Sum + j j=j + l Loop

Textl.Text = Sum

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

Иногда бывает необходимо прервать цикл с условием, если выполняется какое-либо дополнительное условие. Это может быть сделано с помощью оператора Exit Do, например:

Option Explicit Dim Sum As Integer Dim j As Integer Sum = 2

Do Until Sura > 9 Sura = Sura + j j=j+l If j > 3 Then Exit Do Endlf Loop

Text 1.Text = Sum

В этом примере цикл с условием досрочно прерывается, если выполняется дополнительное условие j > 3. В результате будет получено значение переменной Sum, равное 8.

Так же, как и в случае цикла For, из цикла Do ... Loop можно выйти досрочно, используя оператор Exit Do.

Благодаря циклу с условием можно организовать бесконечный цикл. Иногда это бывает необходимо, а иногда это происходит из-за ошибки пользователя. Для создания бесконечного цикла условное выражение должно быть таким, которое никогда не выполняется или выполняется всегда.