Page 23 - 6735

2 5 7 1 Зміна у $A$1
Зміна у $A$2
Зміна у $A$3
Зміна у $A$4
Зміна у $A$5

Оператор циклу While-Wend

Оператор циклу While-Wend (цикл із передумовою) циклічно
виконує блок команд, поки значення заданого логічного виразу
істинне. Спочатку обчислюється значення логічного вразу, а потім
виконується блок команд, який завершується словом Wend.

Dim i, s As Integer

Public Sub main()
'знайти суму цілих чисел від 1 до 100
s = 0 'сума = 0
i = 1 'перше число
While i <= 100 'поки і менше рівне 100
s = s + i 'додати до суми 'i'
i = i + 1 'наступне 'i'
Wend 'повторити
Debug.Print s 'вивести суму
End Sub
5050

Оператори циклу Do-Loop

Оператор циклу Do-Loop-While (цикл із післяумовою)
циклічно виконує блок команд, поки значення заданого логічного
виразу істинне. Спочатку виконується блок команд, а потім
обчислюється значення логічного вразу.
Оператор циклу Do-While-Loop (цикл із передумовою)
циклічно виконує блок команд, поки значення заданого логічного

23