Циклом називають групу операторів, що повторюється багаторазово з різними значеннями деякої змінної, яка називається змінною або параметром циклу.
Оператор циклу з лічильником.
Синтаксис:
For параметр = значення1 To значення2 Step h
Інструкції тіла циклу
Next
Оператор повторює виконання тіла циклу, змінюючи значення параметру циклу від значення1 до значення2 із кроком h. Якщо крок дорівнює 1, його можна не вказувати.
Задача 4.1. В діапазоні B2: B24 записані числа. Знайти суму і кількість додатнних чисел діапазону.
Використаємо для розв’язку задачі об’єкт Cells – клітинку.
Sub СумаТаКількість()
Dim suma as Single, k as Integer, i as Integer
suma =0: k=0
For i =2 To 24
If Cells(i, 2).Value >0 Then
k = k+1 ‘ збільшуємо кількість
suma = suma +Cells(i, 2). Value ‘ накопичуємо суму
End if
Next i
MsgBox “Додатних чисел – “ & Str(k) & “, сума – ” & Str(suma)
End Sub
Оператори циклу з умовою.
Такі цикли використовується, якщо невідома заздалегідь кількість повторень. Існують такі різновиди операторів:
Синтаксис:
Do While умова інструкції тіла циклу Loop | Do інструкції тіла циклу Loop While умова |
Оператори з умовою While забезпечують виконання операторів тіла циклу доти, доки умова виконується.
Do Until умова інструкції тіла циклу Loop | Do інструкції тіла циклу Loop Until умова |
Оператори з умовою Until закінчують роботу операторів тіла циклу тоді, коли умова виконається. Тобто цикл повторюється, якщо умова має значення False (хибність).
Достроковий вихід з таких операторів циклу відбувається за допомогою оператору Exit Do.
Задача 4.2. З клітині А1 починається список. Написати програму, яка підраховує кількість заповнених рядків і записує результат в першому вільному рядку.
Sub Кількість ()
Dim k As Integer
k = 1 ' k – номер рядка
Do
k = k + 1
Loop While Cells(k, 1).Value <> ""
Cells(k, 1).Value = " Номер першого вільного рядка – " & Str(k)
End Sub
Деякі задачі можна розв’язувати як з використанням операторів циклу, так і за допомогою методів та властивостей об’єктів Excel.