Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

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; Просмотров: 269; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.012 сек.