IBM Lotus Symphony
|
Verzweigt an eine von mehreren angegebenen anderen Stellen des Programms in Abhängigkeit eines numerischen Ausdrucks.
On N GoSub Marke1[, Marke2[, Marke3[,...]]]
On NumAusdruck GoTo Marke1[, Marke2[, Marke3[,...]]]
NumAusdruck Ein beliebiger numerischer Ausdruck zwischen 0 und 255, der festlegt, zu welcher Zeile das Programm verzweigt. Bei NumAusdruck = 0 wird die Anweisung nicht ausgeführt. Ist NumAusdruck größer 0, so springt das Programm zur Marke mit der dem Ausdruck entsprechenden Positionsnummer (1 = erste Marke, 2 = zweite Marke usw.)
Marke: Sprungzielzeile der GoTo- oder GoSub-Struktur.
![]() |
Die Konventionen für GoTo oder GoSub sind zulässig. |
Sub ExampleOnGosub
Dim iVar As Integer
Dim sVar As String
iVar = 2
sVar =""
On iVar GoSub Sub1, Sub2
On iVar GoTo Line1, Line2
Exit Sub
Sub1:
sVar =sVar & " Von Sub 1 nach" : Return
Sub2:
sVar =sVar & " Von Sub 2 nach" : Return
Line1:
sVar =sVar & " Marke 1" : GoTo Ende
Line2:
sVar =sVar & " Marke 2"
Ende:
MsgBox sVar,0,"On...Gosub"
End Sub