2.10.1 Циклы с параметром For … Next
Структура цикла:
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 Цикл For … Next может быть прерван досрочно при достижении какого либо условия. Для этого в нужном месте цикла нужно поместить оператор 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)
2.10.2 Циклы с условием (итерационные)
Если какое-то действие (несколько действий) необходимо выполнить много раз, но заранее неизвестно сколько раз и это зависит от какого-то условия, то тогда следует воспользоваться циклом с предусловием или с постусловием.
В VBA есть два основных цикла DO … LOOP – с условием, вводимым ключевым словом While, и с условием, вводимым ключевым словом Until. Оба они могут быть с предусловием или с постусловием.
Синтаксис:
Цикл с предусловием |
Цикл с постусловием |
Do While | Until <условие> <Тело цикла> Loop |
Do <Тело цикла> Loop While | Until <условие> |
где Do – ключевое слово (делать);
While – ключевое слово (пока);
Until – ключевое слово (до тех пор пока);
Loop – ключевое слово, указывающее на окончание цикла;
<условие> – логическое выражение, истинность которого проверяется
в начале каждого выполнения тела цикла;
<тело_цикла> – произвольная последовательность операторов;
Конструкция Do … While читается: делать пока выполняется условие. В конструкции Do … While для увеличения шага следует писать специальный оператор, т.к. в ней в отличие от конструкции For, не делается это автоматически.
Конструкция Do … Until читается: делать до тех пор, пока не будет выполнено условие. В конструкции Do … Until для увеличения шага следует писать специальный оператор, т.к. в ней в отличие от конструкции 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
Объектно-ориентированное программирование в VBA. Языки программирования. Visual Basic for Applications. Особенности VBA как объектно-ориентированного языка программирования: понятия объект, семейство, класс, метод, свойство, события, инкапсуляция, наследование, полиморфизм.
Объектно-ориентированное программирование в VBA. Работа с объектами. Формат программного кода, задающего установку свойства и использование метода. Примеры. Основные методы объектов. Суть программирования на VBA: событие и отклик на него. Синтаксис процедуры обработки событий. Основные типы событий: инициируемые пользователем, генерируемые системой. Основные события в VBA.
Объектно-ориентированное программирование в VBA. Объекты MS Excel. Объектная модель Excel.
Пользовательский интерфейс VBA. Особенности среды программирования, запуск VBA, структура редактора, окно проекта Project, окно редактирования кода, окно редактирования форм, окно свойств Properties, окно панели элементов управления Toolbox.
Встроенные диалоговые окна в VBA. Окно сообщений (вывода) MsgBox: назначение, синтаксис функции и оператора, константы процедуры. Окно ввода InputBox: назначение, синтаксис функции. Примеры.
Разработка Visual Basic-приложений. Пользовательская форма: общие сведения. Основные свойства объекта формы UserForm, основные методы формы.
Разработка Visual Basic-приложений. Элементы управления (панель элементов): имена объектов, их свойства, добавление в форму элементов управления. Основные свойства элементов управления.
Разработка Visual Basic-приложений. Элементы управления: командные кнопки (CommandButton), ярлыки (надписи) Label, текстовые окна (TextBox).
Разработка Visual Basic-приложений. Элементы управления: кнопки-переключатели (OptionButton) и контрольные индикаторы (CheckBox), рамки (Frame), линейки прокрутки (ScrollBar).
Разработка Visual Basic-приложений. Элементы управления: списки (ListBox) и комбинированные списки (ComboBox),
Разработка Visual Basic-приложений. Элементы управления: выключатели (TogleButton), набор вкладок (TabStrip), набор страниц (MultiPage), рисунок (Image), поле со свертыванием (RefEdit).