Управляющая инструкция Do - Loop

End Sub

Wend

Randomize

Управляющая инструкция While - Wend

Группа инструкций выполняется до соблюдения определенного условия.

Пример: выделение определенного значения (равного 7) из последовательности случайных чисел

Sub WhileWend()

Dim Number As Integer

Number = 0

n = 0 'number of iterations

While Number <> 7

Number = Int (10 * Rnd ())

n = n + 1

MsgBox "Your number is " & Number & "." & " Number of iterations " & n

Условие завершения цикла может задаваться не только в начале цикла, но и в конце. Условие в конце цикла гарантирует, что он будет выполнен хотя бы один раз. Кроме того, условие можно сделать критерием, как выполнения цикла, так и его завершения.

Дата добавления: 2014-01-07