IBM Lotus Symphony
|
Wywołuje procedurę wskazaną przez etykietę w procedurze lub funkcji. Instrukcje występujące po etykiecie są wykonywane do momentu wystąpienia następnej instrukcji Return. Następnie program kontynuuje wykonywanie kodu od instrukcji występującej po instrukcji GoSub.
patrz Parametry
Procedura/funkcja
Blok instrukcji
Etykieta
Blok instrukcji
GoSub Etykieta
Exit Sub/Function
Etykieta:
Blok instrukcji
Return
End Sub/Function
Instrukcja GoSub wywołuje lokalną procedurę wskazaną przez etykietę w procedurze lub funkcji. Nazwa etykiety musi kończyć się dwukropkiem (":").
![]() |
Jeśli program napotka instrukcję Return, która nie jest poprzedzona instrukcją GoSub, środowisko języka Basic programu Lotus® Symphony™ zwróci komunikat o błędzie. Instrukcji Exit Sub lub Exit Function należy użyć, aby zapewnić, że program wyjdzie z procedury lub funkcji przed osiągnięciem następnej instrukcji Return. |
Poniższy przykład przedstawia sposób użycia instrukcji GoSub i Return. Wykonując sekcję programu dwa razy, program oblicza pierwiastek kwadratowy dwóch liczb wprowadzonych przez użytkownika.
Sub Przyklad_GoSub
dim iWejscieA as Single
dim iWejscieB as Single
dim iWejscieC as Single
iWejscieA = Int(InputBox$ "Wprowadź pierwszą liczbę: ","Wprowadzanie liczby"))
iWejscieB = Int(InputBox$ "Wprowadź drugą liczbę: ","Wprowadzanie liczby"))
WejscieC=iWejscieA
GoSub PierwiastekKw
Print "Pierwiastek kwadratowy z liczby ";iWejscieA;" to";iWejscieC
iWejscieC=iWejscieB
GoSub PierwiastekKw
Print "Pierwiastek kwadratowy z liczby ";iWejscieB;" to";iWejscieC
Exit Sub
PierwiastekKw:
iWejscieC=sqr(iWejscieC)
Return
End Sub