Виконання дій, що повторюються

Можливості комп'ютера краще всього проявляються при багатократному виконанні одних і тих же дій. Оскільки комп'ютер вважає швидше, ніж людський мозок, на нього слід покласти якомога більше роботи, що повторюється, нетворчої.

Цикл For..Next

Основна форма циклів в Visual Basic - цикл For,.Next. Він використовується для виконання визначеного кількість ітерацій. Цикли For..Next зазвичай використовуються для роботи з лічильниками і в інших ситуаціях, коли кількість ітерацій відома заздалегідь. Вони мають наступний синтаксис:

For «Лічильник=ПочатковеЗначення» To «КінцевеЗначення»

Дії, що повторюються

Next Лічильник

Незважаючи на простоту цього фрагмента, зверніть увагу на деякі обставини:

• Змінна Лічильник має числовий тип (Integer або Long) і вказується програмістом (наприклад, I).

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

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

Наприклад, щоб змінна x в циклі набувала значень від 1 до 5, Лічильник замінюється на x, ПочатковеЗначення - на 1, а КінцевеЗначення - на 5. У першому рядку циклу For..Next може бути присутній ключове слово Step. Воно дозволяє змінити приріст лічильника (за умовчанням воно дорівнює 1). Наприклад, якщо значення лічильника кожного разу збільшується на 3, рядок For завершуватиметься Step 3. Якщо лічильник збільшується на 2, рядок завершується Step 2. У наступному фрагменті лічильник змінюється від 10 до 100 з приростом 5:

For I = 10 To 100 Step 5

‘ Дії, що повторюються

Next

Після ключового слово Next можна не вказувати ім'я змінної-лічильника. В цьому випадку цикл For..Next просто завершується ключовим словом Next. Більше того, тести показали, що без вказівки імені змінній програма виконується швидше. Проте код має бути структурований, щоб ви могли легко знайти відповідність між різними For і Next.

Лічильник навіть може змінюватися у зворотному напрямі. Для цього слід задати початкове значення більше кінцевого і вибрати негативний приріст після ключового слова Step. Наприклад, в наступному фрагменті лічильник змінюється від 10 до 1:

For I = 10 To 1 Step - 1

Дії, що повторюються

Next

А тут лічильник змінюється від 100 до 0 із зменшенням на 10:

For I = 100 To 0 Step - 10

‘ Дії, що повторюються

Next

Щоб вийти з циклу до того, як лічильник досягне кінцевого значення, скористайтеся командою Exit For. Наприклад:

For I = 1 To 100 Step 5

X = I * 10

If X > 100 Then

Exit For

End If

Next

Цикли For..Next зустрічаються в багатьох прикладах цієї книги. Так же часто він використовуватиметься і у вашій майбутній роботі.

Цикл Do..Loop

Інший тип циклів реалізується за допомогою конструкції Do..Loop. Ця конструкція використовується в тих ситуаціях, коли точна кількість повторень заздалегідь невідома або ви хочете дочекатися виконання деякої умови. Наприклад, можна в циклі перебирати вміст набору записів, отриманого з бази даних. Швидше за все, точна кількість записів буде невідома заздалегідь, та зате можна визначити, що ви досягли кінця набору. Цикл Do..Loop прекрасно справляється з цим завданням.

Цикл Do..Loop може виконуватися нескінченно:

Do

‘ Дії, що повторюються

Loop

Цикл з умовою завершення виглядає так:

Do While X < 10

X = X + 1

Loop

Він продовжує виконуватися до тих пір, поки значення змінної залишається менше 10. Оскільки X не привласнювалося конкретного значення, цикл виконуватиметься 10 разів. Замість ключового слова While можна скористатися ключовим словом Until, але тоді замість умови продовження обчислень формулюється умова завершення. Наш фрагмент еквівалентний наступному:

Do Until X = 10

X = X + 1

Loop

Для виходу з циклу можна використовувати практично будь-яку логічну умову, сформульовану на Visual Basic. Воно може містити логічні оператори і оператори порівняння, а також логічні змінні.