Экономическая информатика-стр.398

Пример:

Option Explicit Dim I As Integer Dim Sum As Integer Sum=0 For I= 1 To 4 Sum =Sum + 2 Next I

Этот цикл эквивалентен четырем операторам Sum =Sum + 2 в тексте программы.

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

Пример:

Option Explicit Dim Sum As Integer Dim j As Integer Sum = 2 For j = 1 To 10 Sum = Sum + j If Sum > 6 Then Exit For End If Next j Textl.Text = Sum

В этом примере цикл прерывается досрочно, когда значение переменной Sum будет больше 9. В результате выполнения этого кода в текстовом окне будет показано вычисленное значение переменной Sum, равное 8.

Цикл For Each

VBA поддерживает специфическую форму цикла For, предназначенную для выполнения операции с объектом, входящим в состав некоторой коллекции объектов. Например, такими операциями могут быть вызов метода или обращения к свойству. Это позволяет выполнять массовые манипуляции с управляющими элементами или другими объектами аналогично тому, как это делается с массивами переменных. Синтаксис цикла For:

For Each ИмяОбъекта In ИмяКоллекции Код операций над объектами Next ИмяОбъекта

Циклы с условием

Главной особенностью циклов с условием является условие, которое может быть любым выражением, принимающим значение True (Истина) или False (Ложно). В VBA есть два основных цикла с условием: цикл Do ... While и цикл Do ... Until. Оба могут быть с предусловием или с постусловием.

Синтаксическая конструкция цикла Do While:

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

Do While Выражение    Do

Операторы    Операторы

Loop    Loop While Выражение

Здесь Do - ключевое слово;

While - ключевое слово, указывающее тип цикла;

Выражение - выражение условия, принимающее значение True или False; Loop - ключевое слово, указывающее на окончание цикла.