16342

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

Лекция

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

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

Русский

2013-06-20

42.5 KB

72 чел.

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

В 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


 

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

68396. Критерий разложимости функции в ряд Тейлора 450 KB
  Возникает вопрос, справедливо ли обратное утверждение? Пусть функция бесконечно дифференцируема на интервале. Мы можем формально построить для нее ряд Тейлора. Но пока мы не знаем, будет ли наша функция суммой этого ряда, т.е. будет ли построенный ряд Тейлора сходиться к нашей функции на интервале...
68398. Теплопередача через однослойную цилиндрическую стенку (Г.У. 3-го рода) 218.5 KB
  Плотность теплового потока на внутренней и наружной поверхности оболочки определяется следующими формулами - коэффициент теплопередачи отнесенный к внутренней поверхности цилиндрической оболочки. На практике часто встречаются оболочки толщина стенок которых мала по сравнению с внешним диаметром.
68399. Измерение технологических параметров 396 KB
  Первичный преобразователь датчик сенсор наиболее многочисленная группа преобразователей предназначенных для измерения состояния окружающей среды и диагностики. Для оценки количественного значения температуры используют температурные шкалы имеющие начало отсчета ноль...
68400. Типы интенсификации теплопередачи 97.5 KB
  Снижение термического сопротивления всегда ведет к увеличению, однако этот путь не всегда возможен т.к. толщина стенки и материал из которого она изготовлена часто диктуется соображениями стойкости. Однако не следует забывать о этом способе интенсификации при эксплуатации...
68402. Элементарные измерительные преобразователи 153 KB
  Однако элементарные преобразователи и измерительные приборы обычно не обеспечивают требуемых метрологических характеристик преобразования: малой погрешности стабильности линейности чувствительности а также достаточной мощности выходного сигнала.
68403. Промежуточные (вторичные, нормирующие) преобразователи 145.5 KB
  Метод уравновешивающего преобразования характеризуется тем что в приборах используется две цепи преобразования: прямая и обратная роли которых резко отличаются. Цепь прямого преобразования служит для обнаружения степени неравновесия.
68404. Автоматические регуляторы 562 KB
  Регулирующее воздействие формируется в зависимости от заданного значения величины регулируемого параметра Регулирующее воздействие формируется в результате автоматического поиска т. Недостаток: сложность принципиальной электрической схемы регулирования что предъявляет повышенные требования...