IBM Lotus Symphony
|
Forgrener til en av flere angitte linjer i programkoden, avhengig av verdien av et numerisk uttrykk.
On N GoSub Etikett1[, Etikett2[, Etikett3[,...]]]
On NumUttrykk GoTo Etikett1[, Etikett2[, Etikett3[,...]]]
NumUttrykk: Et numerisk uttrykk mellom 0 og 255 som bestemmer hvilken av linjene programmet forgrener til. Hvis NumUttrykk er 0, blir ikke setningen utført. Hvis NumUttrykk er større enn 0, hopper programmet til etiketten som har et posisjonsnummer som tilsvarer uttrykket (1 = Første etikett; 2 = Andre etikett)
Etikett: Mållinje ifølge GoTo- eller GoSub-strukturen.
![]() |
GoTo- eller GoSub-konvensjonene er gyldige. |
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 & " From Sub 1 to" : Return
Sub2:
sVar =sVar & " From Sub 2 to" : Return
Linje1:
sVar =sVar & " Etikett 1" : GoTo Ende
Linje2:
sVar =sVar & " Etikett 2"
Ende:
MsgBox sVar,0,"On...Gosub"
End Sub