For next vba excel переход к следующему. Операторы цикла в VBA. Проект «Доход по вкладу»
Встречаются ситуации, когда от программы VBA требуется совершить несколько раз подряд один и тот же набор действий (то есть повторить несколько раз один и тот же блок кода). Это может быть сделано при помощи циклов VBA.
Оператор цикла «For» в Visual Basic
Структура оператора цикла For в Visual Basic может быть организована в одной из двух форм: как цикл For … Next или как цикл For Each .
Цикл «For … Next»
Цикл For … Next использует переменную, которая последовательно принимает значения из заданного диапазона. С каждой сменой значения переменной выполняются действия, заключённые в теле цикла. Это легко понять из простого примера:
For i = 1 To 10 Total = Total + iArray(i) Next i
В этом простом цикле For … Next используется переменная i , которая последовательно принимает значения 1, 2, 3, … 10, и для каждого из этих значений выполняется код VBA, находящийся внутри цикла. Таким образом, данный цикл суммирует элементы массива iArray в переменной Total .
В приведённом выше примере шаг приращения цикла не указан, поэтому для пошагового увеличения переменной i от 1 до 10 по умолчанию используется приращение 1 . Однако, в некоторых случаях требуется использовать другие значения приращения для цикла. Это можно сделать при помощи ключевого слова Step , как показано в следующем простом примере.
For d = 0 To 10 Step 0.1 dTotal = dTotal + d Next d
Так как в приведённом выше примере задан шаг приращения равный 0.1 , то переменная dTotal для каждого повторения цикла принимает значения 0.0, 0.1, 0.2, 0.3, … 9.9, 10.0.
Для определения шага цикла в VBA можно использовать отрицательную величину, например, вот так:
For i = 10 To 1 Step -1 iArray(i) = i Next i
Здесь шаг приращения равен -1 , поэтому переменная i с каждым повторением цикла принимает значения 10, 9, 8, … 1.
Цикл «For Each»
Цикл For Each похож на цикл For … Next , но вместо того, чтобы перебирать последовательность значений для переменной-счётчика, цикл For Each выполняет набор действий для каждого объекта из указанной группы объектов. В следующем примере при помощи цикла For Each выполняется перечисление всех листов в текущей рабочей книге Excel:
Dim wSheet As Worksheet For Each wSheet in Worksheets MsgBox "Найден лист: " & wSheet.Name Next wSheet
Оператор прерывания цикла «Exit For»
Оператор Exit For применяется для прерывания цикла. Как только в коде встречается этот оператор, программа завершает выполнение цикла и переходит к выполнению операторов, находящихся в коде сразу после данного цикла. Это можно использовать, например, для поиска определённого значения в массиве. Для этого при помощи цикла просматривается каждый элемент массива. Как только искомый элемент найден, просматривать остальные нет необходимости – цикл прерывается.
Применение оператора Exit For продемонстрировано в следующем примере. Здесь цикл перебирает 100 записей массива и сравнивает каждую со значением переменной dVal . Если совпадение найдено, то цикл прерывается:
For i = 1 To 100 If dValues(i) = dVal Then IndexVal = i Exit For End If Next i
Цикл «Do While» в Visual Basic
Цикл Do While выполняет блок кода до тех пор, пока выполняется заданное условие. Далее приведён пример процедуры Sub , в которой при помощи цикла Do While выводятся последовательно числа Фибоначчи не превышающие 1000:
"Процедура Sub выводит числа Фибоначчи, не превышающие 1000 Sub Fibonacci() Dim i As Integer "счётчик для обозначения позиции элемента в последовательности Dim iFib As Integer "хранит текущее значение последовательности Dim iFib_Next As Integer "хранит следующее значение последовательности Dim iStep As Integer "хранит размер следующего приращения "инициализируем переменные i и iFib_Next i = 1 iFib_Next = 0 "цикл Do While будет выполняться до тех пор, пока значение "текущего числа Фибоначчи не превысит 1000 Do While iFib_Next < 1000 If i = 1 Then "особый случай для первого элемента последовательности iStep = 1 iFib = 0 Else "сохраняем размер следующего приращения перед тем, как перезаписать "текущее значение последовательности iStep = iFib iFib = iFib_Next End If "выводим текущее число Фибоначчи в столбце A активного рабочего листа "в строке с индексом i Cells(i, 1).Value = iFib "вычисляем следующее число Фибоначчи и увеличиваем индекс позиции элемента на 1 iFib_Next = iFib + iStep i = i + 1 Loop End Sub
В приведённом примере условие iFib_Next < 1000 проверяется в начале цикла. Поэтому если бы первое значение iFib_Next было бы больше 1000, то цикл бы не выполнялся ни разу.
Другой способ реализовать цикл Do While – поместить условие не в начале, а в конце цикла. В этом случае цикл будет выполнен хотя бы раз, не зависимо от того, выполняется ли условие.
Схематично такой цикл Do While с проверяемым условием в конце будет выглядеть вот так:
Do ... Loop While iFib_Next < 1000
Цикл «Do Until» в Visual Basic
Цикл Do Until очень похож на цикл Do While : блок кода в теле цикла выполняется раз за разом до тех пор, пока заданное условие выполняется (результат условного выражения равен True ). В следующей процедуре Sub при помощи цикла Do Until извлекаются значения из всех ячеек столбца A рабочего листа до тех пор, пока в столбце не встретится пустая ячейка:
IRow = 1 Do Until IsEmpty(Cells(iRow, 1)) "Значение текущей ячейки сохраняется в массиве dCellValues dCellValues(iRow) = Cells(iRow, 1).Value iRow = iRow + 1 Loop
В приведённом выше примере условие IsEmpty(Cells(iRow, 1)) находится в начале конструкции Do Until , следовательно цикл будет выполнен хотя бы один раз, если первая взятая ячейка не пуста.
Однако, как было показано в примерах цикла Do While , в некоторых ситуациях нужно, чтобы цикл был выполнен хотя бы один раз, не зависимо от первоначального результата условного выражения. В таком случае условное выражение нужно поместить в конце цикла, вот так:
Do ... Loop Until IsEmpty(Cells(iRow, 1))
Операторы цикла
В VBA существуют два основных типа циклов циклы со счетчиком (параметрические) и циклы с условием (итерационные).
Циклы со счетчиком используют в тех случаях, когда необходимо выполнить некоторые действия определенное число раз
Циклы с условием применяются тогда, когда некоторые действия в программе должны повторяться до тех пор, пока выполняется определенное условие.
Циклы с параметром 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)
Циклы с условием (итерационные)
Если какое-то действие (несколько действий) необходимо выполнить много раз, но заранее неизвестно сколько раз и это зависит от какого-то условия, то тогда следует воспользоваться циклом с предусловием или с постусловием.
В VBA есть два основных цикла 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
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
S = S + i ^ 2
i = i + 1
Loop Until i > 10
MsgBox (S )
End Sub
Может возникнуть ситуация, когда вам нужно выполнить блок кода несколько раз. В общем случае операторы выполняются последовательно: сначала выполняется первый оператор в функции, затем второй и т. Д.
Языки программирования предоставляют различные структуры управления, которые обеспечивают более сложные пути выполнения.
Оператор цикла позволяет нам выполнять оператор или группу операторов несколько раз. Ниже приведен общий вид оператора цикла в VBA.
VBA предоставляет следующие типы циклов для обработки требований циклирования. Нажмите следующие ссылки, чтобы проверить их детали.
for цикл
Цикл for - это структура управления повторением, которая позволяет разработчику эффективно писать цикл, который необходимо выполнить определенное количество раз.
Синтаксис
Ниже приведен синтаксис цикла for в VBA.
For counter = start To end .... .... Next
Диаграмма потока
Ниже приведен поток управления в режиме Loop -
- Первый шаг выполняется. Этот шаг позволяет инициализировать любые переменные управления контурами и увеличивать переменную счетчика шагов.
- Во-вторых, условие оценивается. Если это правда, выполняется тело цикла. Если оно ложно, тело цикла не выполняется, и поток управления переходит к следующему оператору сразу после цикла For.
- После выполнения цикла цикла For поток управления переходит к следующему оператору. Этот оператор позволяет вам обновлять любые переменные управления циклом. Он обновляется на основе значения счетчика шагов.
- Условие теперь оценивается снова. Если это правда, цикл выполняется, и процесс повторяется (тело цикла, затем увеличивают шаг, а затем снова условие). После того, как условие становится ложным, цикл For заканчивается.
пример
Добавьте кнопку и добавьте следующую функцию.
Private Sub Constant_demo_Click() Dim a As Integer a = 10 For i = 0 To a Step 2 MsgBox "The value is i is: " & i Next End Sub
Когда приведенный выше код компилируется и выполняется, он производит следующий результат.
The value is i is: 0
The value is i is: 2
The value is i is: 4
The value is i is: 6
The value is i is: 8
The value is i is: 10
Выполняет последовательность операторов несколько раз и сокращает код, управляющий переменной цикла.
for ... loop
Для каждого цикла используется для выполнения оператора или группы операторов для каждого элемента в массиве или коллекции.
Для каждого цикла аналогичен For Loop; однако цикл выполняется для каждого элемента в массиве или группе. Следовательно, счетчик шагов не будет существовать в этом типе цикла. Он в основном используется с массивами или используется в контексте объектов файловой системы, чтобы работать рекурсивно.
Синтаксис
Ниже приведен синтаксис цикла For Each в VBA.
For Each element In Group .... Next
пример
Private Sub Constant_demo_Click() "fruits is an array fruits = Array("apple", "orange", "cherries") Dim fruitnames As Variant "iterating using For each loop. For Each Item In fruits fruitnames = fruitnames & Item & Chr(10) Next MsgBox fruitnames End Sub
Когда вышеуказанный код выполняется, он печатает все имена фруктов с одним элементом в каждой строке.
apple
orange
cherries
Это выполняется, если в группе есть хотя бы один элемент и повторяется для каждого элемента в группе.
while..wend loop
В цикле While While ... Wend , если условие равно True, все операторы выполняются до тех пор, пока не встретится ключевое слово Wend.
Если условие ложно, цикл завершается, и элемент управления переходит к следующему оператору после ключевого слова Wend .
Синтаксис
Ниже приведен синтаксис цикла While..Wend в VBA.
While condition(s) ... Wend
Диаграмма потока
пример
Private Sub Constant_demo_Click() Dim Counter: Counter = 10 While Counter < 15 " Test value of Counter. Counter = Counter + 1 " Increment Counter. msgbox "The Current Value of the Counter is: " & Counter Wend " While loop exits if Counter Value becomes 15. End Sub
Когда вышеуказанный код выполняется, он выводит следующее в поле сообщения.
The Current Value of the Counter is: 11
The Current Value of the Counter is: 12
The Current Value of the Counter is: 13
The Current Value of the Counter is: 14
The Current Value of the Counter is: 15
Это проверяет условие перед выполнением тела цикла.
Цикл do..while
Do ... while цикл используется, когда мы хотим повторить набор операторов, пока условие истинно. Условие может быть проверено в начале цикла или в конце цикла.
Синтаксис
Ниже приведен синтаксис цикла Do ... While в VBA.
Do While condition ... ... Loop
Диаграмма потока
пример
В следующем примере используется цикл Do ... while для проверки состояния в начале цикла. Операторы внутри цикла выполняются, только если условие становится True.
Private Sub Constant_demo_Click() Do While i < 5 i = i + 1 msgbox "The value of i is: " & i Loop End Sub
The value of i is: 1
The value of i is: 2
The value of i is: 3
The value of i is: 4
The value of i is: 5
Альтернативный синтаксис
Существует также альтернативный синтаксис для Do ... while loop, который проверяет состояние в конце цикла. Основное различие между этими двумя синтаксисами объясняется в следующем примере.
Do ... ... Loop While condition
пример
В следующем примере используется цикл Do ... while для проверки состояния в конце цикла. Заявления внутри цикла выполняются хотя бы один раз, даже если условие False.
Private Sub Constant_demo_Click() i = 10 Do i = i + 1 MsgBox "The value of i is: " & i Loop While i < 3 "Condition is false.Hence loop is executed once. End Sub
Когда выполняется вышеуказанный код, он печатает следующий вывод в окне сообщения.
The value of i is: 11
Операторы do..While будут выполняться до тех пор, пока условие равно True. (Т. Е.) Петля должна повторяться до тех пор, пока условие не будет False.
do..intil loop
Do ... intil цикл не будет использован, когда мы хотим повторить набор операторов, пока условие ложно. Условие может быть проверено в начале цикла или в конце цикла.
Синтаксис
Ниже приведен синтаксис цикла Do..Until в VBA.
Do Until condition ... ... Loop
Диаграмма потока
пример
В следующем примере используется Do ... До цикла, чтобы проверить условие в начале цикла. Операторы внутри цикла выполняются только в том случае, если условие ложно. Он выходит из цикла, когда условие становится истинным.
Private Sub Constant_demo_Click() i = 10 Do Until i>15 "Condition is False.Hence loop will be executed i = i + 1 msgbox ("The value of i is: " & i) Loop End Sub
Когда выполняется вышеуказанный код, он печатает следующий вывод в окне сообщения.
The value of i is: 11
The value of i is: 12
The value of i is: 13
The value of i is: 14
The value of i is: 15
The value of i is: 16
Альтернативный синтаксис
Существует также альтернативный синтаксис Do ... До цикла, который проверяет условие в конце цикла. Основное различие между этими двумя синтаксисами объясняется следующим примером.
Do ... ... Loop Until condition
Диаграмма потока
пример
В следующем примере используется Do ... До цикла, чтобы проверить условие в конце цикла. Операторы внутри цикла выполняются хотя бы один раз, даже если условие равно True.
Private Sub Constant_demo_Click() i = 10 Do i = i + 1 msgbox "The value of i is: " & i Loop Until i more15 "Condition is True.Hence loop is executed once. End Sub
Когда выполняется вышеуказанный код, он печатает следующий вывод в окне сообщения.
The value of i is: 11
Операторы do..Until будут выполняться до тех пор, пока условие False. (Т. Е.) Петля должна повторяться до тех пор, пока условие не будет истинным.
Записи управления циклом
Операторы управления циклом изменяют исполнение из своей обычной последовательности. Когда выполнение выходит из области действия, все остальные операторы цикла не выполняются.
Контрольное заявление и описание
Выход для оператора
Выход for используется, когда мы хотим, чтобы выйти из For Loop на основе определенных критериев. Когда Exit For выполняется, управление переходит к следующему оператору сразу после цикла For Loop.
Синтаксис
Ниже приведен синтаксис Exit For Statement в VBA.
Диаграмма потока
пример
В следующем примере используется Exit For . Если значение счетчика достигает 4, цикл For Loop завершается, и управление переходит к следующему утверждению сразу после цикла For Loop.
Private Sub Constant_demo_Click() Dim a As Integer a = 10 For i = 0 To a Step 2 "i is the counter variable and it is incremented by 2 MsgBox ("The value is i is: " & i) If i = 4 Then i = i * 10 "This is executed only if i=4 MsgBox ("The value is i is: " & i) Exit For "Exited when i=4 End If Next End Sub
Когда вышеуказанный код выполняется, он печатает следующий вывод в окне сообщений.
The value is i is: 0
The value is i is: 2
The value is i is: 4
The value is i is: 40
Завершает оператор цикла For и передает выполнение в оператор сразу после цикла
Exit Do
Exit Do Заявление используется, когда мы хотим, чтобы выйти из Do Loops на основе определенных критериев. Он может использоваться как в Do Do ... While, так и Do ... До циклов.
Когда Exit Do выполняется, управление переходит к следующему оператору сразу после Do Loop.
Синтаксис
Ниже приведен синтаксис выражения Exit Do в VBA.
пример
В следующем примере используется Exit Do . Если значение счетчика достигает 10, выходная линия Do завершается, и управление переходит к следующему оператору сразу после цикла For Loop.
Private Sub Constant_demo_Click() i = 0 Do While i <= 100 If i > 10 Then Exit Do " Loop Exits if i>10 End If MsgBox ("The Value of i is: " & i) i = i + 2 Loop End Sub
Когда выполняется вышеуказанный код, он печатает следующий вывод в окне сообщения.
The Value of i is: 0
The Value of i is: 2
The Value of i is: 4
The Value of i is: 6
The Value of i is: 8
The Value of i is: 10
Завершает оператор Do While и передает выполнение в оператор сразу после цикла
Лабораторные работы по основам программирования
2.1. Табулирование функций, представленных аналитически
и сходящимся рядом
Цель работы
· Закрепление теоретических знаний по основам организации разветвляющихся и циклических структур.
· Приобретение практических навыков программирования с использованием разветвляющихся и циклических структур в системе Visual Basic.
В VB существуют три вида операторов цикла:
· счетный цикл: For…To … Next
· циклы с предусловиями: Do While...Loop, Do Until...Loop, While…WEnd
· циклы с постусловиями:Do...Loop While, Do...Loop Until.
Счетный цикл – позволяет циклически выполнять набор операторов заданное число раз. Его синтаксис следующий:
For счетчик = начало To конец
[операторы ]
[операторы ]
Next [счетчик ]
Параметр счетчик – это числовая переменная (целого, вещественного типа или типа Date, Variant, Currency), которая автоматически увеличивается после каждого повтора. Начальное значение счетчика равно параметру начало, а конечное параметру – конец. Если не указан, то шаг считается равным 1, значение шага можно изменять. Оно может быть положительным или отрицательным числом.
Существуют четыре синтаксические конструкции цикла Do….Loop:
Операторы между ключевыми словами Do … Loop выполняются заданное количество раз в зависимости от условия. Например, в следующем фрагменте программы при C = 100 условие будет выполняться и произойдет вход в цикл. Внутри цикла происходит обращение к процедуре и уменьшение значения C на 1. Далее вновь проверяется условие (C > 0) и операторы цикла выполняются повторно (всего они выполнятся 100 раз), до C = 0. Когда же условие C >0 становится ложным и цикл прекращается.
Do While C > 0
Тот же самый фрагмент программы, выполненный с использованием цикла с предусловием по синтаксису 2:
В данном случае цикл выполняется, пока условие равно False, в отличие от предыдущего случая, то есть продолжается до выполнения условия C = 0.
Операторы циклов по синтаксису 3 и 4 очень похожи на первые два за исключением того, что условие не вычисляется до тех пор, пока цикл не выполнится хотя бы один раз.
В синтаксисах этих циклов можно использовать операторы безусловного выхода из цикла Exit For и Exit Do, позволяющих передать управление оператору, находящемуся за циклом. Например, в следующем фрагменте программы, если начальное значение C окажется >50, то цикл немедленно прекратиться.
Do Until C <= 0
MsgBox “Нач. значение больше допустимого”, ”Ошибка ввода”
Цикл While…Wend использовался в ранних версиях Visual Basic. Его синтаксис следующий:
While <условие>
<Операторы>
В отличии от цикла Do..Loop цикл While ..Wend не имеет второго варианта, в котором проверка условия выполняется в конце цикла. Кроме того, для него нет оператора выхода из цикла, наподобие Exit Do.
VBA. Организация циклов.
Операторы цикла используются для повторения выполнения действия или группы действий заданное количество раз. Количество повторений (итераций цикла) может быть предопределено или вычислено.
VBA поддерживает циклические конструкции двух видов:
- Циклы с фиксированным числом повторений (циклы со счетчиком ).
- Циклы с неопределенными числом повторений (циклы с условием ).
Для всех видов циклов используется понятие тело цикла , определяющее блок операторов, заключенных между начальным и конечным операторами цикла. Каждое повторение выполнения операторов тела цикла называется итерация .
Фиксированные циклы
VBA предоставляет две управляющие структуры для организации фиксированного цикла: For … Next (цикл со счетчиком) и For Each … Next (цикл с перечислением).
Оператор For … Next это типовой цикл со счетчиком, выполняющий заданное число итераций. Синтаксис оператора For … Next:
For <счетчик> = <начЗначение> То <конЗначение>
<блок операторов>
Next [<счетчик>]
Пример использования оператора For … Next.
Листинг 1. Оператор For … Next
‘ ЗАДАЧА: Составить программу, которая получает два числа от пользователя.
‘ Складывает все числа в диапазоне, заданном этими двумя числами, а затем
‘ отображает результирующую сумму.
Sub sample7()
Dim i As Integer ‘счетчик цикла
Dim sStart ‘начальное значение счетчика
Dim sEnd ‘конечное значение счетчика
Dim sSum As Long ‘результирующая сумма
sStart = InputBox(“Введите первое число:”)
sEnd = InputBox(“Введите второе число:”)
sSum = 0
For i = CInt(sStart) To CInt(sEnd)
sSum = sSum + i
Next i
MsgBox “Сумма чисел от ” & sStart & ” до ” & sEnd & ” равна: ” & sSum
End Sub
Оператор цикла For Each … Next относится к категории операторов объектного типа, т.е. применяется в первую очередь к коллекциям объектов , а также к массивам . Тело цикла выполняется фиксированное число раз, соответствующее числу элементов массива или коллекции. Формат оператора For Each … Next:
For Each <элемент> In <группа> <блок операторов> Next [<элемент>]
Циклы с условием (неопределенные циклы)
Циклы с условием используются в тех случаях, когда повторяющиеся действия нужно выполнять только при определенных условиях. Количество итераций не определено и в общем случае может быть равно нулю (в частности, для циклов с предусловием). VBA предлагает разработчикам несколько управляющих структур для организации циклов с условием:
- Четыре вида циклов Do..Loop, которые различаются типом проверяемого условия и временем выполнения этой проверки.
- Непрерываемый цикл While … Wend.
Цикл Do While … Loop – типичный цикл с предусловием . Условие проверяется до того, как выполняется тело цикла. Цикл продолжает свою работу, пока это <условие> выполняется (т.е. имеет значение True). Так как проверка выполняется в начале, то тело цикла может ни разу не выполниться. Формат цикла Do While … Loop:
Do While <условие>
<блок операторов>
Loop
Листинг 2. Цикл Do While … Loop
‘ ЗАДАЧА: Составить программу, которая предусматривает ввод пользователем
‘ произвольной последовательности чисел. Ввод должен быть прекращен
‘ только после того, как сумма введенных нечетных чисел превысит 100.
Sub sample8()
Dim OddSum As Integer ‘сумма нечетных чисел
Dim OddStr As String ‘строка с нечетными числами
Dim Num ‘для приема вводимых чисел
OddStr = “” ‘инициализация выходной строки
OddSum = 0 ‘инициализация суммы OddSum
Do While OddSum < 100 ‘начало цикла
Num = InputBox(“Введите число: “)
If (Num Mod 2) <> 0 Then ‘проверка на четность
OddSum = OddSum + Num ‘накопление суммы нечетных чисел
OddStr = OddStr & Num & ” ”
End If
Loop
‘вывод строки с нечетными числами
MsgBox prompt:=”Нечетные числа: ” & OddStr
End Sub
Оператор Do … Loop While предназначен для организации цикла с постусловием . Условие проверяется после того, как тело цикла, будет выполнено хотя бы один раз. Цикл продолжает свою работу, пока <условие> остается истинным. Формат цикла Do … Loop While:
Do <блок операторов> Loop While<условие>
Листинг 3. Цикл с постусловием
‘ ЗАДАЧА: Составить программу игры “Угадай число”. Программа должна случайным
‘ образом генерировать число в диапазоне от 1 до 1000, пользователь должен
‘ угадать это число. Программа на каждое вводимое число выводит подсказку
‘ “больше” или “меньше”.
Sub sample8()
Randomize Timer ‘ инициализация генератора случайных чисел
Dim msg As String ‘ строка сообщения
Dim SecretNumber As Long, UserNumber As Variant
Begin: SecretNumber = Round(Rnd * 1000) ‘ число, сгенерированное компьютером
UserNumber = Empty ‘ число, вводимое пользователем
Do ‘ игровой процесс
Select Case True
Case IsEmpty(UserNumber): msg = “Введите число”
Case UserNumber > SecretNumber: msg = “Слишком много!”
Case UserNumber < SecretNumber: msg = “Слишком мало!”
End Select
UserNumber = InputBox(prompt:=msg, Title:=”Угадай число”)
Loop While UserNumber <> SecretNumber
‘ проверка
If MsgBox(“Играть еще? “, vbYesNo + vbQuestion, “Вы угадали!”) = vbYes Then
GoTo Begin
End If
End Sub
Циклы Do Until … Loop и Do … Loop Until являются инверсиями ранее рассмотренных циклов с условием. В общем случае они работают аналогично, за исключением того, что тело цикла выполняется при ложном условии (т.е. <условие>=False). Формат цикла Do Until … Loop:
Do Until <условие> <блок операторов> Loop
Формат цикла Do … Loop Until:
<блок операторов>
Loop Until<условие>
Практическое задание: Перепишите программы из листингов 10 и 11 с использованием инвертированных операторов цикла.
Цикл While … Wend также относится к циклам с условием. Данный оператор полностью соответствует структуре Do While … Loop. Формат цикла While … Wend:
While <условие>
<блок операторов>
Wend
Отличительной особенностью этого оператора является невозможность принудительного завершения (прерывания) тела цикла (оператор Exit Do не работает в цикле While … Wend).
Прерывание цикла
Для досрочного завершения итерации и выхода из цикла применяется оператор Exit. Этот оператор применим в любой циклической структуре, кроме While … Wend. Общий синтаксис использования Exit для прерывания цикла таков:
<начало_цикла>
[<блок операторов1>]
Exit (For | Do)
[<блок операторов2>]
<конец_цикла>
При выполнении оператора Exit цикл прерывается, и управление передается оператору, следующему за оператором <конец_цикла>. В теле цикла может присутствовать несколько операторов Exit.
Листинг 4. Принудительный выход из цикла
Sub sample9()
For i = 1 To 10000000
If i = 10 Then Exit For ‘ выход из цикла, когда счетчик достигнет 10
Next
