IBM Lotus Symphony
|
Przechodzi do jednego z wielu określonych wierszy w kodzie programu w zależności od wartości wyrażenia liczbowego.
On N GoSub Etykieta_1[, Etykieta_2[, Etykieta_3[,...]]]
On Wyrażenie_liczbowe GoTo Etykieta_1[, Etykieta_2[, Etykieta_3[,...]]]
Wyrażenie liczbowe: Wyrażenie liczbowe o wartości z przedziału od 0 do 255 określające wiersz, do którego nastąpi skok. Jeśli wyrażenie Wyrażenie_liczbowe ma wartość 0, instrukcja nie jest wykonywana. Jeśli wyrażenie Wyrażenie_liczbowe ma wartość większą niż 0, program przechodzi do etykiety o numerze porządkowym odpowiadającym wyrażeniu (1 = pierwsza etykieta; 2 = druga etykieta).
Etykieta: Wiersz docelowy zgodnie ze strukturą instrukcji GoTo lub GoSub.
![]() |
Poniżej przedstawiono poprawne konwencje używania instrukcji GoTo i GoSub. |
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" : GoTo Koniec
Wiersz2:
sZm =sZm & " etykiety 2"
Koniec:
MsgBox sZm,0,"On...Gosub"
End Sub