IBM Lotus Symphony
|
Вызывает процедуру, указанную меткой, в процедуре или функции. Операторы, следующие за меткой, выполняются, пока не будет обнаружен оператор 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