Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

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




 

Цикли типу 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; Просмотров: 628; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.013 сек.