Программирование циклов - Оператор Do Loop Until

Оператор Do Loop Until

Общий вид оператора Do Loop Until:

Do

[инструкции]

[Exit Do]

[инструкции1]

Loop [Until выражение]

Оператор Do Loop Until предназначен для организации цикла-до.

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

Пример. Вычислить сумму чисел от 0 до 100.

Решение.

Sub сумма3()

Dim x, s As Double

x = 0

s = 0

Do

s = s + x

x = x + 1

Loop Until x > 100

MsgBox ("s=" + Str(s))

End Sub