Використання циклів

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

Загальний вигляд операторів циклу такий:

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

група операторів, що виконуються в циклі

Next [змінна]

У наведеному нижче прикладі початкове значення змінної-лічильника дорівнює 2, крок приросту — 2, кінцеве значення змінної-лічильника — 15. Після виконання чергового кроку циклу до змінної-лічильника додається значення 2, а розраховане значення порівню- ється з кінцевим (15). Якщо останнє ще не досягнуто, то друкується черговий рядок, інакше цикл закінчує свою роботу і управління передається оператору, розташованому після опе- ратора Next (у програмі — це команда на закінчення процедури обробки події активізації кнопки).

Вивід непарних чисел: For і= 1 To 15 Step 2

MsgBox (Str(І)) Next і

Програма сумування парних чисел:

s = 0

For I = 2 To N Step 2

S = S + i

Next i

Рис. 6.2. Блок-схема процесу сумування парних чисел

Цикли типу Do. В циклах такого типу група операторів виконується доти, доки іс- тинною є умова, якою може бути логічний вираз (наприклад, Pinkod = “666”) або функція, що повертає логічне значення (наприклад, EOF). Такого типу цикли використовуються то- ді, коли невідома кількість повторень циклу. Є два види цього оператора:

Do While <умова> — виконується доти, доки істиною є умова; Do Until <умова-> — виконується доти, доки умова є хибною. Загальний вигляд циклу типу Do такий:

Do While <умова>

група операторів, що виконуються

Loop

Do

група операторів що виконуються

Loop While < умова>.

Різниця між такими циклічними блоками полягає в місці перевірки значення умовно- го виразу (на початку циклу або в кінці). Відповідно змінюється також розташування змін- ної (або кількох змінних), значення якої аналізується в умові.

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

Нехай, наприклад, треба встановити у перших п’яти реченнях документа Word розмір шрифту 24. Тоді фрагмент програми матиме такий вигляд:

i = 1

Do

ActiveDocument.Sentences(i).Font.Size = 24 i = i + 1

Loop While i < 6

Наступний блок циклічних операторів працює доти, доки не буде виконана умова: Do Until <умова>

група операторів, що виконуються

Loop

Наприклад, всі слова документа будуть зроблені курсивом.

За допомогою властивості Count знайдемо n:

N = ActiveDocument.Words.Count ‘ N – кількість слів в активному документі. i = 1

Do Until i > N ActiveDocument.Words(i).Font.Italic = True i = i + 1

Loop

Дата добавления: 2014-01-07