16342

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

Лекция

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

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

Русский

2013-06-20

42.5 KB

70 чел.

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

В 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


 

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

64441. ПРИНЦИПИ ФОРМУВАННЯ СУСПІЛЬНО-ТОРГОВЕЛЬНИХ ПРОСТОРІВ У ЖИТЛОВІЙ ЗАБУДОВІ МІСТА 449.38 KB
  Однією з важливіших містобудівних проблем великих міст України є організація системи громадсько-побутових послуг та підвищення рівня суспільного міського комфорту яка тісно пов’язана з питаннями формування та організації...
64442. Агрохімічна оцінка дії селену та добрив на врожайність і якість селери коренеплідної на чорноземі типовому в умовах Лівобережного Лісостепу України 552.5 KB
  Підвищити вміст селену в харчовій продукції можна шляхом: використання неорганічних солей; застосування органічних сполуканалогів природних; використання продуктів харчування з природно...
64443. КОНТРОЛЬ МЕХАНІЧНИХ ХАРАКТЕРИСТИК КОНСТРУКЦІЙНИХ СТАЛЕЙ ЗА ЇХ ПИТОМИМ ЕЛЕКТРИЧНИМ ОПОРОМ 3.93 MB
  Мета роботи полягає у вирішенні важливої науковопрактичної задачі в галузі приладів і методів неруйнівного контролю матеріалів розробленні методу визначення механічних характеристик...
64444. Розвиток світового фінансового ринку в аспекті формування глобального економічного простору 372.5 KB
  Зростає глобальна пропозиція капіталу і забезпечується розвиток внутрішнього фінансового ринку що підвищує можливості перерозподілу фінансових ресурсів створює нові фінансові інструменти і підвищує...
64445. ПАТОГЕНЕТИЧНІ МЕХАНІЗМИ НЕВИНОШУВАННЯ ТА ЙОГО ЛІКУВАННЯ ПРИ ІСТМІКО-ЦЕРВІКАЛЬНІЙ НЕДОСТАТНОСТІ І ВАГІНАЛЬНИХ ІНФЕКЦІЯХ 192 KB
  Проведення хірургічної корекції ІЦН до розвитку її виразних клінічних проявів забезпечує позитивний ефект тому розробка діагностичних і прогностичних критеріїв реалізації ІЦН залишається в центрі уваги і потребує подальших досліджень для вирішення цього...
64446. СТАНОВЛЕННЯ ЕТНІЧНОЇ ПСИХОЛОГІЇ ЯК ГАЛУЗІ НАУКОВОГО ЗНАННЯ: ІСТОРИКО-ТЕОРЕТИЧНИЙ ВИМІР 6 MB
  Активні процеси усвідомлення національної історії, культури, науки, які відбуваються в Україні, стимулюють зростання потреби в структуризації етнопсихологічних знань. Зростання національної самосвідомості підвищує актуальність дослідження...
64447. МОДЕЛІ ТА МЕТОДИ ЗАБЕЗПЕЧЕННЯ АКТИВНОЇ ВІДМОВОСТІЙКОЇ КУТОВОЇ СТАБІЛІЗАЦІЇ ДИСКОПОДІБНОГО ЛІТАЮЧОГО ВИРОБУ 1.05 MB
  Крім зазначених складностей має місце необхідність моделювання та розробки методів відбивання аварійних ситуацій системи стабілізації ДПЛВ в режимі реального часу шляхом забезпечення працездатності в умовах невизначеності функціонування...
64448. СТВОРЕННЯ ІНФОРМАЦІЙНОЇ ТЕХНОЛОГІЇ ЗАХИСТУ ЦІННИХ ПАПЕРІВ НА ОСНОВІ КОДУЮЧИХ СТРУКТУР АДАМАРА 704.5 KB
  Незважаючи на його ефективність метод не вдається зреалізувати поліграфічним способом оскільки для розпізнавання зображення необхідно виконувати двовимірне перетворення Адамара.
64449. ЗАПОБІГАННЯ СХОДУ З РЕЙОК СПЕЦІАЛЬНОГО РУХОМОГО СКЛАДУ ШЛЯХОМ СТВОРЕННЯ КОМПЛЕКСНОЇ СИСТЕМИ ПРОТИДІЇ 262 KB
  Досягнення поставленої мети вимагає вирішення таких завдань: аналіз наукових публікацій у галузі динаміки залізничних екіпажів і моделювання взаємодії колеса з рейкою; математичне моделювання взаємодії колеса та рейки за умови рівноваги візка...