Назва роботи: Оператори циклу в VBA
Предметна область: Інформатика, кібернетика та програмування
Опис: Оператори циклу У VBA існують два основних типи циклів цикли з лічильником параметричні і цикли з умовою ітераційні. Цикли з лічильником використовують в тих випадках коли необхідно виконати деякі дії певне число раз цикли з умовою при.
Розмір файлу: 42.5 KB
Роботу скачали: 71 чол.
У VBA існують два основних типи циклів # 150; цикли з лічильником (параметричні) і цикли з умовою (ітераційні).
Цикли з лічильником використовують в тих випадках, коли необхідно виконати деякі дії певне число раз
Цикли з умовою застосовуються тоді, коли деякі дії в програмі повинні повторюватися до тих пір, поки виконується певна умова.
Цикли з параметром For ... Next
For Параметр_Цікла = початкове_значення To Конечное_Значеніе
де For # 150; ключове слово VBA (від), що позначає початок циклу;
Параметр_цікла # 150; змінна, певна як лічильник циклу;
Початкове значення # 150; число, що задає початкове значення параметра циклу;
To # 150; ключове слово VBA (до), що розділяє
Початкове_значення і Конечное_Знаеніе;
Конечное_Значеніе # 150; число, що задає значення параметра циклу,
при якому цикл завершується;
Step # 150; ключове слово VBA (крок), що використовується для
завдання кроку циклу, необов'язковий аргумент;
крок # 150; число, що задає крок циклу, тобто значення, на яке
збільшується (або зменшується) значення параметра
циклу на кожному кроці. Це число може бути
Exit For # 150; оператор дострокового виходу з циклу (необов'язковий);
Next # 150; ключове слово VBA (наступний), що позначає
Крок 1 Спочатку визначається параметр циклу, а також обчислюються і запам'ятовуються початкове і кінцеве значення цієї змінної.
Крок 2 Параметру циклу присвоюється початкове значення.
Крок 3 Початкове значення параметра циклу порівнюється з кінцевим значенням.
Якщо параметр циклу більше кінцевого значення, програма відразу виходить з циклу і переходить до тієї рядку коду, яка слідує за циклом.
Крок 4 Виконується тіло циклу.
Крок 5 Після виконання тіла циклу відбувається присвоювання параметру циклу наступного значення. Перехід до кроку 3.
1. Якщо використовується ключове слово Step. то параметр циклу змінюється відповідно до числа, зазначеним після цього слова. Якщо слово Step відсутня, то значення кроку дорівнює одиниці.
For I = 0 To 10 Step 2 (Значення I буде збільшуватися на 2)
2. Цикл For ... Next може бути перерваний достроково при досягненні будь-якого умови. Для цього в потрібному місці циклу потрібно помістити оператор Exit For.
Dim S As Integer
Dim j As Integer
Exit For (Вихід з циклу, якщо значення S> 6)
Цикли з умовою (ітераційні)
Якщо якась агресивна дія (кілька дій) необхідно виконати багато разів, але заздалегідь невідомо скільки разів і це залежить від якогось умови, то тоді слід скористатися циклом з передумовою або з умовою поста.
У VBA є два основних цикли DO ... LOOP # 150; з умовою, що вводиться ключовим словом While. і з умовою, що вводиться ключовим словом Until. Обидва вони можуть бути з передумовою або з умовою поста.
Цикл з передумовою
де Do # 150; ключове слово (робити);
While # 150; ключове слово (поки);
Until # 150; ключове слово (до тих пір поки);
Loop # 150; ключове слово, яке вказує на закінчення циклу;
<условие> # 150; логічне вираз, істинність якого перевіряється
на початку кожного виконання тіла циклу;
<тело_цикла> # 150; довільна послідовність операторів;
Конструкція Do ... While читається: робити поки виконується умова. У конструкції Do ... While для збільшення кроку слід писати спеціальний оператор, тому що в ній на відміну від конструкції For. не робиться це автоматично.
Конструкція Do ... Until читається: робити до тих пір, поки не буде виконана умова. У конструкції Do ... Until для збільшення кроку слід писати спеціальний оператор, тому що в ній на відміну від конструкції For. не робиться це автоматично.
Умова, записане після ключового слова Until. перевіряється в кінці кожної ітерації (після виконання тіла циклу). Звернути увагу, що воно працює тут не зовсім так, як в циклі While. Якщо умова є істинним (True), то виконання циклу завершується. Якщо умова не виконується (є хибним # 150; False), то знову виконується тіло циклу.
Постановка задачі. Обчислити суму кінцевого ряду за допомогою підпрограми-процедури.
Технологія виконання завдання:
1. Вихідні дані: i Z
2.Набрать в стандартному модулі проекту наступну призначену для користувача процедуру, використовуючи цикл з передумовою While.
Dim S As Integer
Dim i As Integer
Do While i <= 10