IBM Lotus Symphony


Оператор GoSub...Return [встроенный]

Вызывает процедуру, указанную меткой, в процедуре или функции. Операторы, следующие за меткой, выполняются, пока не будет обнаружен оператор Return. После этого программа возвращается к оператору, следующему за оператором GoSub.

Синтаксис:

см. Параметры

Параметры:

Sub/Function

Блок операторов

Метка

Блок операторов

GoSub Метка

Exit Sub/Function

Метка:

Блок операторов

Return

End Sub/Function

Оператор GoSub вызывает локальную процедуру, указанную меткой, в процедуре или функции. Имя метки должно оканчиваться двоеточием (":").

Значок Предупреждение Если программа обнаружит оператор Return, которому не предшествует оператор GoSub, то Basic Lotus® Symphony™ выдаст сообщение об ошибке. Для выхода из процедуры или функции до достижения оператора Return служат операторы Exit Sub и Exit Function.

В следующем примере иллюстрируется применение GoSub и Return. Дважды выполняя раздел кода, программа вычисляет квадратные корни из двух введенных пользователем чисел.

Пример:

Sub ExampleGoSub

dim iInputa as Single

dim iInputb as Single

dim iInputc as Single

iInputa = Int(InputBox$ "Введите первое число: ","Ввод числа"))

iInputb = Int(InputBox$ "Введите второе число: ","Ввод числа"))

iInputc=iInputa

GoSub SquareRoot

Print "Квадратный корень из ";iInputa;" равен ";iInputc

iInputc=iInputb

GoSub SquareRoot

Print "Квадратный корень из ";iInputb;" равен ";iInputc

Exit Sub

SquareRoot:

iInputc=sqr(iInputc)

Return

End Sub


Комментарии по продукту | Дополнительная документация | Товарные знаки