IBM Lotus Symphony
|
Kontynuuje wykonywanie programu w procedurze lub funkcji w wierszu określonym przez etykietę.
Patrz Parametry
Procedura/funkcja
Blok instrukcji
GoTo Etykieta_1
Etykieta_2:
Blok instrukcji
Exit Sub
Etykieta_1:
Blok instrukcji
GoTo Etykieta_2
End Sub/Function
Za pomocą instrukcji GoTo można kontynuować w środowisku języka Basic programu IBM® Lotus® Symphony™ działanie programu w innym miejscu w procedurze. Pozycja musi być określona przez etykietę. Aby ustawić etykietę, należy przypisać jej nazwę i zakończyć ją dwukropkiem (:).
Ostrzeżenie: Instrukcji GoTo nie można używać do wykonywania skoków poza procedurę lub funkcję.
Sub Przyklad_OnGosub
Dim iZm As Integer
Dim sZm As String
iZm = 2
sZm =""
On iZm GoSub Podpr1, Podpr2
On iZm GoTo Wiersz1, Wiersz2
Exit Sub
Podpr1:
sZm =sZm & " Z podprocedury 1 do" : Return
Podpr2:
sZm =sZm & " Z podprocedury 2 do" : Return
Wiersz1:
sZm =sZm & " etykiety 1"
Wiersz2:
sZm =sZm & " etykiety 2"
Print sZm
End Sub