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

Оператор Do While

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

Do [While выражение]

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

[Exit Do]

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

Loop

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

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

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

Решение.

Sub сумма2()

Dim x, s As Double

x = 0

s = 0

Do While x <= 100

s = s + x

x = x + 1

Loop

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

End Sub