GoTo строка

Шаг 26 - Инструкция GoTo

Dim Num

Строка

GoSub строка

End Type

ID As Integer

Name As String * 20

Dim MyRecord As Record, Position ' Объявляет переменную.

' Открывает файл произвольного доступа.

Open "TESTFILE" For Random As #1 Len = Len(MyRecord)

' Читает из файла с помощью инструкции Get.

Position = 3 ' Определяет номер записи.

Get #1, Position, MyRecord ' Читает третью запись.

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

Шаг 25 - Инструкция GoSub...Return

Задает переход в подпрограмму и возвращение из нее в процедуру.

...

...

Return

Параметры

Строка: Аргумент строка может быть любой меткой строки или номером строки.

Замечания
Допускается использование инструкций GoSub и Return в любом месте процедуры, но GoSub и соответствующая инструкция Return должны находиться в одной процедуре. Подпрограмма может содержать несколько инструкций Return. Первая обнаруженная инструкция Return приводит к передаче управления назад к инструкции, непосредственно следующей за последней выполненной инструкцией GoSub.
Невозможен вызов или завершение процедур Sub с помощью GoSub...Return.
Создание отдельных процедур для вызова из программы может обеспечить более структурированный подход, чем использование конструкций GoSub...Return.

Пример

В данном примере инструкция GoSub используется для вызова подпрограммы из процедуры Sub. Инструкция Return возвращает управление инструкции, следующей сразу после инструкции GoSub. Инструкция Exit Sub используется, чтобы управление не было случайно передано подпрограмме.

Sub GosubDemo()

' Запрашивает число у пользователя.

Num = InputBox("Введите положительное четное число.")

' Вызывает подпрограмму только в том случае,

' если было введено положительное число.

If Num > 0 Then GoSub MyRoutine

Debug.Print Num

Exit Sub ' Запрещает передачу управления процедуре.

MyRoutine:

Num = Num/2 ' Выполняет деление.

Return ' Возвращает управление инструкции,

End Sub ' следующей после инструкции GoSub.

Задает безусловный переход на указанную строку внутри процедуры.

Параметры
строка: Обязательный аргумент строка может быть любой меткой строки или номером строки.

Замечания
Инструкция GoTo позволяет переходить только на строки внутри той процедуры, в которой она находится.
Слишком большое число инструкций GoTo затрудняет чтение и отладку программ. По возможности следует использовать структурные управляющие инструкции (Do...Loop, For...Next, If...Then...Else, Select Case).

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

Sub GotoStatementDemo()

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