Exit Sub

Dim Number, MyString

End Sub

End Select

Case Else

End If

Exit Sub ' Выходим из процедуры, чтобы

' не попасть в обработчик.

ErrorHandler: ' Обработчик ошибок.

Select Case Err.Number ' Определяем код ошибки.

Case 55 ' "Ошибка "Файл уже открыт".

Close #1 ' Закрываем открытый файл.

' Здесь размещаются инструкции для обработки других ошибок...

Resume ' Возобновляем выполнение

' со строки, вызвавшей ошибку.

Шаг 39 - Инструкции On...GoSub, On...GoTo

Задают переход к одной из нескольких указанных строк, в зависимости от значения выражения.

On выражение GoSub списокНазначений

On выражение GoTo списокНазначений

Параметры:

Выражение: Обязательный. Любое числовое выражение, которое имеет целое значение от 0 до 255 включительно. Если выражение является нецелым числовым выражением, оно округляется до его оценки.
СписокНазначений: Обязательный. Список номеров строк или меток строк, разделяемых запятыми.

Замечания
Значение аргумента выражение определяет, к какой строке из спискаНазначений выполняется переход. Если значение выражения меньше 1 или превышает число элементов списка, происходит одно из следующих событий:

· Равняется 0 - Управление передается инструкции, следующей за On...GoSub или On...GoTo.

· Превышает число элементов списка - Управление передается инструкции, следующей за On...GoSub или On...GoTo.

· Отрицательное - Возникает ошибка. Больше 255 - Возникает ошибка.

В одном списке допускается совместное использование номеров и меток строк. Не существует практического ограничения на число меток и номеров строк, используемых с инструкциями On...GoSub... и On...GoTo. Однако при использовании большего число меток или номеров, чем может уместиться на одной строке, необходимо применять символ продолжения строки для распространения логической строки на несколько физических строк.
Инструкция Select Case обеспечивает более структурированный и гибкий способ выполнения множественных ветвлений.

Пример
В данном примере инструкции On...GoSub и On...GoTo используются для перехода к подпрограммам и строкам с указанными метками, соответственно.

Sub OnGosubGotoDemo()

Number = 2 ' Инициализирует переменную.

' Переход к Sub2.

On Number GoSub Sub1, Sub2 ' Управление возвращается сюда ' после выполнения On...GoSub.

On Number GoTo Line1, Line2 ' Переход к метке Line2.

' Управление не возвращается сюда после выполнения On...GoTo.

Sub1:

MyString = "Sub1": Return

Sub2:

MyString = "Sub2": Return

Line1:

MyString = "Метка Line1"

Line2:

MyString = "Метка Line2"

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