Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Конспект лекций по КИТ.doc
Скачиваний:
3
Добавлен:
04.11.2018
Размер:
2.3 Mб
Скачать

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

Перечислим операторы повтора VBA

Оператор

Действие

For – Next

Синтаксис:

For Счетчик = Начало То Конец [Step Шаг] [Инструкции]

[Exit For]

[Инструкции] Next [Счетчик]

Повторяет выполнение группы инструкций, пока Счетчик изменяется от начального значения до конечного с указан­ным шагом. Если шаг не указан, то он полагается равным 1. Альтернативный способ выхода из цикла предоставляет инструкция Exit For

For Each - Next

Синтаксис:

For Each Элемент In Группа

[Инструкции]

[Exit For]

[Инструкции]

Next [Элемент]

Повторяет выполнение группы инструкций для каждого элемента массива или семейства.

Альтернативный способ выхода из цикла предоставляет инструкция Exit For

Do Untill – Loop

Синтаксис:

Do [While Условие]

[Инструкции]

[Exit Do]

[Инструкции] Loop

Повторяет выполнение набора инструкций, пока условие имеет значение True. Условие проверяется после выпол­нения инструкции по крайней мере один раз. Альтернатив­ный способ выхода из цикла предоставляет инструкция Exit Do

Do – Loop While

Синтаксис: Do

[Инструкции]

[Exit Do]

[Инструкции] Loop [While Условие]

Повторяет выполнение набора инструкций, пока условие имеет значение True. Сначала выполняется инструкция, а потом проверяется условие. Альтернативный способ выхо­да из цикла предоставляет инструкция Exit Do

Do While – Loop

Синтаксис:

Do [While Условие]

[Инструкции]

[Exit Do]

[Инструкции] Loop

Повторяет выполнение набора инструкций, пока условие не примет значение True. Условие проверяется после выпол­нения инструкции по крайней мере один раз. Альтернатив­ный способ выхода из цикла предоставляет инструкция Exit Do

Do – Loop Untill

Синтаксис:

Do

[Инструкции]

[Exit Do]

[Инструкции]

Loop [While Условие]

Повторяет выполнение набора инструкций, пока условие не примет значение True. Сначала выполняется инструкция, а потом проверяется условие. Альтернативный способ выхо­да из цикла предоставляет инструкция Exit Do

While - Wend

Синтаксис:

While Условие

[Инструкции]

Wend

Выполняет последовательность инструкций, пока заданное условие имеет значение True

Условная компиляция

В VBA имеются две инструкции компилятора, с помощью которых можно обеспечить условную компиляцию некоторых фрагментов исходного кода. Для условной компиляции необходимо определить условные константы компилятора, значениями которых будет руководствоваться компилятор при обработке программы. Константы должны быть определены в разделе гло­бальных объявлений модуля.

Синтаксис:

#Const имяКонстанты = выражение

Аргументы

имяКонстанты

Имя константы; должно соответствовать стандарт­ным соглашениям об именах переменных

выражение

Константа в явном представлении, другая условная константа компилятора или любая их комбинация, которая включает любые арифметические или логи­ческие операторы, за исключением Is

Чтобы указать компилятору, какие фрагменты кода компилировать при разных условиях, используется инструкция #if. Оператор if является объектом компилирования в отличие от инструкции #if, которая является служебной пометкой в тексте, принимаемой компилятором к сведению.

Синтаксис:

#If выражение Then

инструкции

[#Elself выражение-n Then

[инструкции__е!зеif] ]

[#Else

[инструкции_е!зеif ] ]

#End If

В приведенном ниже примере инструкции условной компиляции использу­ются для того, чтобы в вариантах исполняемого файла в качестве имени файла заставки в строковую переменную загружать имена двух различных файлов.

#Const WinPl =1

‘ если Windows95, то Const WinPl = 1

‘ если Windows NT, то Const WinPl =2

#If WinPl = 1 Then ФайлЗаставка = Start95.bmp"

#If WinPl = 2 Then ФайлЗаставка = "StartNT.bmp"