Page 24 - 6735

виразу істинне. Спочатку обчислюється значення логічного вразу, а
потім виконується блок команд, який завершується словом Loop.

Dim i, s As Integer

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

'Приклад 2: знайти суму цілих чисел від 1 до 100
s = 0 'сума = 0
i = 1 'перше число
Do While i<=100 'виконувати цикл, поки 'i' менше рівне 100
s = s + i 'додати до суми 'i'
i = i + 1 'наступне 'i'
Loop 'повторити
Debug.Print s 'вивести суму
End Sub
5050
5050
Перехоплення помилок часу виконання

Оператор On Error дозволяє перехоплювати помилки часу
виконання (ділення на нуль, переповнення та інші). Команда
Debug.Assert <логічний вираз> призначена для зупинки
виконання програми на рядку з цією командою, якщо значення
логічного виразу рівне False. Продовжити виконання програми
можна в звичайному (кнопка Run або клавіша F5) або покроковому
режимі. У прикладі перехоплюються різні помилки і виводиться
інформація про них за допомогою об’єкта Err. Спробуйте
24