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

Оператор While

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

While выражение

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

Wend

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

Инструкции будут выполняться пока выражение будет истинно.

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

Решение.

Sub сумма1()

Dim x, s As Double

x = 0

s = 0

While x <= 100

s = s + x

x = x + 1

Wend

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

End Sub

Пояснение решения.

В переменной s накапливается значение суммы.