Page 81 - 4588

Dim Сума as Integer
Сума = 1
Do Until Сума > 100
Сума = Сума + 2
Loop
Msgbox "Сума = " & Сума
End Sub
Приклад
Виведення масиву даних на аркуш Excel
Sub CommandButton1_Click()
'Dim x As Single
x = -2
n = 2
Do While x <= 2
Cells(n, 1) = x ‘звертання до комірки
Cells(n, 2) = Cos(x)
x = x + 0.1
n = n + 1
Loop

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

2.3.3 Порядок виконання роботи

1. Використовуючи цикл із лічильником, розрахувати
значення функції, що містить накопичення суми і добутку
часового ряду. Програму організувати у вигляді форми. Один
аргумент, який буде використовуватись при органзації циклу,
взяти із таблиці. Для іншого передбачити введення в форму
користувача.
2. Виконати попереднє завдання іншим способом,
організувавши цикл з умовою.

80