End Sub. Как видите, эта программа мало отличается от программы WhileWend: во-первых, перед ключевым словом While появилось слово Do

Как видите, эта программа мало отличается от программы WhileWend: во-первых, перед ключевым словом While появилось слово Do, во-вторых, в конце цикла вместо Wend стоит Loop. Однако цикл Do - Loop позволяет переписать эту процедуру еще несколькими способами. В следующем примере слово While заменено словом Until, а вместо оператора неравенства в сравнении LotteryEntry и 7 задан оператор равенства:

Sub DoUntilLoop()

Dim LotteryEntry и

LotteryEntry = 0

Do Until LotteryEntry = 7

LotteryEntry = Int(10 * Rnd())

Beep

Loop

MsgBox "Выпал номер " & LotteryEntry & _

". Вы выиграли!!"

End Sub

Цикл Do-Loop позволяет внести в эту процедуру еще несколько изменений. Например, в программе DoLoopUntil ключевое слово Do оставлено в начале цикла, а условие завершения и ключевое слово Until переместились в его конец, за ключевое слово Loop. В таком варианте цикл обязательно выполняется хотя бы один раз, поскольку условие завершения не проверяется, пока не будут выполнены все инструкции из тела цикла. Поэтому мы можем удалить инструкцию для инициализации переменной LotteryEntry:

Sub DoLoopUntil()

Dim LotteryEntry As Integer

DO

LotteryEntry = Int(10 * Rnd())

Beep

Loop Until LotteryEntry =7

MsgBox "Выпал номер " & LotteryEntry & _

". Вы выиграли!!"