Page 80 - 4588

Next n
Msgbox Сума End Sub
2. Цикл із передумовою Do While … Loop – поки або
до того часу, поки деяка умова має значення True
Do While умова
[інструкції]
Loop
Синтаксис інструкції Do. Loop містить наступні елементи:
 Умова - числовий вираз або строковий вираз, який має
значення True або False.
 Інструкції - одна або декілька інструкцій, виконання яких
повторюється, поки умова має значення True.

Приклад
Sub Сумма чисел()
Dim Сума as Integer
Сума = 1
Do While Сума < 100
Сума = Сума + 2
Loop
Msgbox "Сума = " & Сума
End Sub

Можна переписати цикл так, щоб умова перевірялася після
завершення циклу:
Do
Сума = Сума + 2
Loop While Сума < 100

3. Цикл із передумовою Do Until … Loop – поки або до
того часу, поки деяка умова має значення True.
Do Until умова
[інструкції]
Loop
Синтаксис інструкції Do.. Loop містить ті ж елементи, що і Do
While … Loop.

Приклад
Sub Сумма чисел()

79