Шаг 16 - Инструкция End

Loop

End If

Do

Loop

Dim BirthDay(1 To 10) As Date

Dim MyMatrix(1 To 5, 4 To 9, 3 To 5) As Double

Dim Matrix(3, 4) As Integer

Dim DayArray(50)

Dim AnotherVar, Choice As Boolean, BirthDate As Date

Dim Number As Integer

Dim AnyValue, MyValue

' Явно объявляет переменную типа Integer.

' Несколько объявлений на одной строке. AnotherVar является переменной

' типа Variant, поскольку ее тип опущен.

' DayArray является массивом, состоящим из 51 элемента типа Variant.

' Индексы элементов массива лежат в диапазоне от 0 до 50, если для

' текущего модуля используемая по умолчанию нижняя граница элементов

' массива (0) не изменена с помощью инструкции Option Base.

' Matrix является двумерным массивом значений типа Integer.

' MyMatrix является трехмерным массивом значений типа Double сявно

' заданными границами индексов.

' BirthDay является массивом дат с индексами от 1 до 10.

' MyArray является динамическим массивом значений типа Variant.

Dim MyArray()

Шаг 15 - Инструкция Do...Loop

Повторяет выполнение набора инструкций, пока условие имеет значение True или пока оно не примет значение True.

Do [{While | Until} условие]

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

[Exit Do]

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

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

[Exit Do]

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

Loop [{While | Until} условие]

Параметры
условие: Необязательный. Числовое выражение или строковое выражение, которое имеет значение True или False. Если условие имеет значение Null,то аргумент условие рассматривается как значение False. инструкции
Одна или несколько инструкций, выполнение которых повторяется, пока условие имеет значение True или пока оно не приобретет значение True.

Замечания
В любом месте управляющей структуры Do…Loop может быть размещено любое число инструкций Exit Do, обеспечивающих альтернативные возможности выхода из цикла Do…Loop. Часто используемая вместе с определением некоторого условия (например, If…Then), инструкция Exit Do передает управление инструкции, непосредственно следующей за инструкцией Loop.
Во вложенных циклах Do…Loop инструкция Exit Do передает управление циклу охватывающего уровня по отношению к циклу, в котором она вызывается.

Пример
В данном примере показано, как можно использовать инструкции Do...Loop. Внутренний цикл Do...Loop выполняется 10 раз, затем логической переменной присваивается значение False, после чего он преждевременно завершается с помощью инструкции Exit Do. Внешний цикл завершается немедленно после проверки значения логической переменной.

Do ' Внешний цикл.

Do While Counter < 20 ' Внутренний цикл.

Counter = Counter + 1 ' Увеличивает счетчик.

If Counter = 10 Then ' Если условие истинно.

Check = False ' Присваивает переменной

' значение False.

Exit Do ' Завершает внутренний цикл.

Loop Until Check = False ' Немедленно завершает внешний цикл.

Завершает процедуру или блок.

· End - Завершает выполнение. Никогда не является обязательной, но может быть помещена в любое место процедуры для закрытия файлов, открытых с помощью инструкции Open, и для очистки переменных.

· End Function - Обязательная инструкция для завершения конструкции Function.

· End If - Обязательная инструкция для завершения конструкции If…Then…Else.

· End Property - Обязательная инструкция для завершения конструкций Property Let, Property Get или Property Set.

· End Select - Обязательная инструкция для завершения конструкции Select Case.

· End Sub - Обязательная инструкция для завершения конструкции Sub.

· End Type - Обязательная инструкция для завершения описания определяемого пользователем типа (конструкция Type).

· End With - Обязательная инструкция для завершения конструкции With.

Замечания
При выполнении инструкции End производится сброс всех переменных на уровне модуля и всех статических локальных переменных во всех модулях. Если требуется сохранить значения этих переменных, следует использовать инструкцию Stop. Затем можно возобновить выполнение с использованием сохраненных значений этих переменных.
Инструкция End мгновенно останавливает выполнение программы, не вызывая события Unload, QueryUnload или Terminate, а также другую программу Visual Basic. Программы, связанные с событиями Unload, QueryUnload и Terminate форм и модулей классов, не выполняются. Созданные из модулей классов объекты уничтожаются, открытые инструкцией Open файлы закрываются, а использованная программой память освобождается. Ссылки на объекты, содержащиеся в других программах, нарушаются.
Инструкция End предоставляет способ вызвать непредусмотренную остановку программы. Для нормального завершения программы Visual Basic необходимо выгрузить все формы. Программа закрывается, как только не станет других программ, содержащих ссылки на объекты, созданные из общих модулей классов, и отсутствует выполнение кода программы.

Пример
В данном примере инструкция End используется для завершения выполнения программы, если пользователь введет неправильный пароль.

Дата добавления: 2015-06-27