IBM Lotus Symphony


Instrukcja GoSub...Return [środowisko wykonawcze]

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.

Składnia

patrz Parametry

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 (":").

Ikona Ostrzeżenie 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.

Przykład

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


Opinia na temat produktu | Dodatkowa dokumentacja | Znaki towarowe