Арифметичний цикл ДЛЯ

For <змінна циклу = початкове значення> То <кінцеве значення> [Step<крок циклу>]

Тіло циклу

Next [змінна циклу]

Приклад

Private Sub Prog4 ‘ Арифметичний цикл

Dim i As Integer

For і = 1 To 15 Step 3

Print i

Next

End Sub

Ітераційний цикл ПОКИ

1. Оператор циклу Do While ... Loop

Цикл, що задається цією конструкцією,виконується доти, поки умова, що задається в циклі істина (дотримується).

Формат вказівки:

Do Whileумова

конструкції

Loop

2. Оператор циклу Do ... Loop While

Цей варіант відрізняється від розглянутого вище розташуванням умови. У другому варіанті конструкції умова розташовується наприкінці циклу:

Do

конструкції

Loop Whileумова

За такого варіанту конструкції оператора циклу тіло циклу виконається принаймні один раз, після чого здійсниться перевірка умови виконання циклу.

Ітераційний цикл ДО

3. Оператор циклу Do Until ... Loop

Тут цикл виконується доти, поки умова хибна (не дотримується), а не істинна. У такій конструкції можлива ситуація, за якої тіло циклу не виконається жодного разу, якщо при першій перевірці умова не дотримується.

Формат вказівки:

Do Untilумова

конструкції

Loop

4.Оператор циклу Do... Loop Until

У даному операторі циклу, як і у попередньому,цикл виконується доти, поки умова хибна (не дотримується). За такого варіанту конструкції оператора циклу тіло циклу виконається принаймні один раз, після чого здійсниться перевірка умови виконання циклу, навіть якщо умова дотримувалася.

Формат вказівки:

Do

конструкції

Loop Untilумова

У кожному новому проходженні циклу перевіряється умо­ва; тому важливо при створенні програми стежити за тим, щоб у тілі циклу значення змінної в умові циклу могло бути змінено так, аби умова стала хибною, тобто цикл закінчився.

Нехай, наприклад, треба розрахувати значення Y за­лежно від введеного значення X. Тоді фрагмент програ­ми матиме такий вигляд:

А) У даному прикладі цикл виконується тоді, коли введені значення Х задовольняють умову Х>0:
X = Input ("Значення X", Х)
Do While Х> 0
Y=sqr(3*Х+7)
Print X;Y
Loop

Б) У наведеному нижче прикладі цикл виконується тоді, коли X<5:
X = InputBox ("Значення X")
Do Until X>5
Y=sqr(15-3*Х)
Print X;Y
Loop