Page 52 - 4450

Приклад: Роздрукуємо всі числа від 1 до 10.
Private Sub Command1_Click()
For i = 1 To 10
Print i
Next i
End Sub
Для безумовного виходу з циклу використовується
оператор Exit For.
Оператор Do...Loop
Якщо кількість ітерацій повинна залежати від умови,
використовують цикл Do... Loop. У залежності від позиції
умови розрізняють два варіанти циклу Do.. .Loop.
Цикл, з умовою на початку
Dо {While | Until} Умова
Оператори
Loop
Цикл, з умовою наприкінці
Do
Оператори
Loop {While | Until} Умова
Якщо умова перевіряється на початку циклу, то він
ніколи не виконується у випадку невиконання умови. Якщо ж
перевірка відбувається наприкінці, цикл виконується як
мінімум один раз, незалежно від того, виконана умова чи ні.
Розглянуті варіанти циклів Do... Loop надають програмісту
великі можливості організації повторюваних обчислень.
Оператор While...Wend
У циклі While... Wend послідовність команд виконується
доти доки залишається істиною назначена умова.
While Умова
Оператори
Wend
Принцип дії такий, як і циклу Do While.. Loop. Тому
замість нього простіше використовувати Do... Loop. Крім
того, для циклу While.. .Wend немає оператора дострокового
виходу типу Exit.
Private Sub Command1_Click()
While x = True

50