16342

Операторы цикла в VBA

Лекция

Информатика, кибернетика и программирование

Операторы цикла В VBA существуют два основных типа циклов циклы со счетчиком параметрические и циклы с условием итерационные. Циклы со счетчиком используют в тех случаях когда необходимо выполнить некоторые действия определенное число раз Циклы с условием при...

Русский

2013-06-20

42.5 KB

71 чел.

Операторы цикла

В VBA существуют два основных типа циклов – циклы со счетчиком (параметрические) и циклы с условием (итерационные).

Циклы со счетчиком используют в тех случаях, когда необходимо выполнить некоторые действия определенное число раз

Циклы с условием применяются тогда, когда некоторые действия в программе должны повторяться до тех пор, пока выполняется определенное условие.

Циклы с параметром ForNext

Структура цикла:

For Параметр_Цикла = Начальное_Значение To Конечное_Значение

[Step Шаг]

Операторы

[Exit For]

Next [Параметр_Цикла]

где                        For – ключевое слово VBA (от), обозначающее начало цикла;

      Параметр_цикла – переменная, определенная в качестве счетчика цикла;

Начальное_Значение – число, задающее начальное значение параметра цикла;

                    To – ключевое слово VBA (до), разделяющее

                             Начальное_значение и Конечное_Знаение;

Конечное_Значение – число, задающее значение параметра цикла,

                                       при котором цикл завершается;

                            Step – ключевое слово VBA (шаг), используемое для

                                       задания шага цикла, необязательный аргумент;

                           Шаг – число, задающее шаг цикла, т.е. значение, на которое

                                       увеличивается (или уменьшается) значение параметра  

                                       цикла на каждом шаге. Это число может быть

                                       отрицательным;

                     Exit For – оператор досрочного выхода из цикла (необязательный);

                          Next – ключевое слово VBA (следующий), обозначающее

                                      конец цикла.

Работа цикла:

Шаг 1 Сначала определяется параметр цикла, а также вычисляются и запоминаются начальное и конечное значения этой переменной.

Шаг 2 Параметру цикла присваивается начальное значение.

Шаг 3 Начальное значение параметра цикла сравнивается с конечным значением.

Если параметр цикла больше конечного значения, программа сразу выходит из цикла и переходит к той строке кода, которая следует за циклом.

Шаг 4 Выполняется тело цикла.

Шаг 5 После выполнения тела цикла происходит присваивание параметру цикла следующего значения. Переход к шагу 3.

Примечание.

1. Если используется ключевое слово Step, то параметр цикла изменяется в соответствии с числом, указанным после этого слова. Если слово Step отсутствует, то значение шага равно единице.

Пример 1.

For I = 0 To 10 Step 2 (Значение I будет увеличиваться на 2)

2. Цикл ForNext может быть прерван досрочно при достижении какого либо условия. Для этого в нужном месте цикла нужно поместить оператор Exit For.

Пример 2.

Dim S As Integer

Dim j As Integer

S = 2

For j = 1 To 10

S = S + j

If S > 6 Then

             Exit For        (Выход из цикла, если значение S > 6)

End If

Next j

MsgBox (S)

Циклы с условием (итерационные)

Если какое-то действие (несколько действий) необходимо выполнить много раз, но заранее неизвестно сколько раз и это зависит от какого-то условия, то тогда следует воспользоваться циклом с предусловием или с постусловием.

В VBA есть два основных цикла DOLOOP – с условием, вводимым ключевым словом While, и с условием, вводимым ключевым словом Until. Оба они могут быть с предусловием или с постусловием.

Синтаксис:

Цикл с предусловием

Цикл с постусловием

Do While | Until <условие>

<Тело цикла>

Loop

Do

<Тело цикла>

Loop While | Until <условие>

где                Do – ключевое слово (делать);

                While – ключевое слово (пока);

                 Until – ключевое слово (до тех пор пока);

                 Loop – ключевое слово, указывающее на окончание цикла;

       <условие> – логическое выражение, истинность которого проверяется

                             в начале каждого выполнения тела цикла;

 <тело_цикла> – произвольная последовательность операторов;

Конструкция DoWhile читается: делать пока выполняется условие. В конструкции DoWhile для увеличения шага следует писать специальный оператор, т.к. в ней в отличие от конструкции For, не делается это автоматически.

Конструкция DoUntil читается: делать до тех пор, пока не будет выполнено условие. В конструкции DoUntil для увеличения шага следует писать специальный оператор, т.к. в ней в отличие от конструкции For, не делается это автоматически.

Условие, записанное после ключевого слова Until, проверяется в конце каждой итерации (после выполнения тела цикла). Обратить внимание, что оно работает здесь не совсем так, как в цикле While. Если условие является истинным (True), то выполнение цикла завершается. Если условие не выполняется (является ложным – False), то вновь выполняется тело цикла.

Пример 1.

Постановка задачи. Вычислить сумму конечного ряда с помощью подпрограммы-процедуры.

Технология выполнения задания:

1. Исходные данные: i  Z

Результат: S  R.

2.Набрать в стандартном модуле проекта следующую пользовательскую процедуру, используя цикл с предусловием While:

Sub summa()

Dim S As Integer

Dim i As Integer

S = 0

i = 1

Do While i <= 10

S = S + i ^ 2

i = i + 1

Loop

MsgBox (S)

End Sub

3.Набрать в стандартном модуле проекта следующую пользовательскую процедуру, используя цикл с предусловием Until:

Sub summa()

Dim S As Integer

Dim i As Integer

S = 0

i = 1

Do Until i > 10

S = S + i ^ 2

i = i + 1

Loop

MsgBox (S)

End Sub

4 Набрать в стандартном модуле проекта следующую пользовательскую процедуру, используя цикл с постусловием While:

Sub summa()

Dim S As Integer

Dim i As Integer

S = 0

i = 1

Do

S = S + i ^ 2

i = i + 1

Loop While i <= 10

MsgBox (S)

End Sub

5 Набрать в стандартном модуле проекта следующую пользовательскую процедуру, используя цикл с постусловием Until:

Sub summa()

Dim S As Integer

Dim i As Integer

S = 0

i = 1

Do

S = S + i ^ 2

i = i + 1

Loop Until i > 10

MsgBox (S)

End Sub


 

А также другие работы, которые могут Вас заинтересовать

59670. Ми до тебе, казко, в гості завітали 47 KB
  І знову пісня радісно дзвенить І казка на екрані оживає. Сьогодні ми Казку сюди запросили Щоб бачити Казку слухать гуртом А Казка в завії десь там заблудила. Але Казка до нас прийде тоді коли ми покажемо як добре знаємо казки. Казка виходить на сцену.
59671. Найрозумніший. Конкурс 36 KB
  Хто знає відповідь той піднімає руку. Хто швидше підніме руку той отримує право відповіді. Хто з цих птахів не вміє літати а Кури; б Страуси; в Колібрі; 2. Хто має найдовший дзьоб а Чапля; б Гуска; в Лелека;
59672. Козацькі забави (для дитячого садка) 39 KB
  Дам подумать тільки трошки Звуть його КОТИГОРОШКО Вхід Котигорошка: Гей простелися дорого Біди всі обійди Мене до перемоги Славної доведи Хоч я з виду й невеличкий Але знає кожен: У двобої навіть Змія Я здолати зможу. Котигорошко ніби лякається:...
59673. Сценарій свята останнього дзвоника 42.5 KB
  На сьогоднішньому святі випускники з хвилюванням чекають останнього дзвоника в стінах рідної школи, бо саме сьогодні вони прощаються зі своїми щасливими дитячими шкільними роками.
59674. Посвята в козачата 40 KB
  Зал прикрашений рушниками, калиною, портретами гетьманів. Козаки (старші школярі) збираються на козацьку раду, Кошовий — учень обраний на цю посаду. Іде рада козаків.
59675. Cвято матері. Будь благословенна, нене 41 KB
  Будь благословенна нене Методичні порад до проведення Свята Матері в навчальних закладах Травень місяць Пречистої Діви Марії. До Матері Божої звертаються християни просячи заступництва і допомоги.
59676. КВК серед дітей по туристично – краєзнавчій роботі 41.5 KB
  З цією метою подається схематичний сценарій КВК з максимальним набором різних конкурсів а вчитель школи може вибрати необхідний матеріал згідно умов своєї школи і використати у своїй позакласній роботі.
59677. Інтелектуальна гра: Слабка ланка 44 KB
  Вони слідкують за тим хто швидше дасть правильну відповідь. Грудень Хто покидає гру Чому ІІ. Хто має найбільший хобот Слон 12. Хто вигнав Крутя і Вертя зза столу Півник 20.
59678. Подорож до країни Ввічливості та доброти 35.5 KB
  Основна частина Щоб потрапити в цю країну нам потрібно зробити ряд конкретних правил а саме: Ми даруєм вам ласкаво Цілу низку добрих правил Всі ці правила прості Допоможуть у житті Ліні ти не потурай...