IBM Lotus Symphony
|
Programkørslen forgrenes til en af flere linjer, der er angivet i programkoden, afhængigt af værdien af et numerisk udtryk.
On N GoSub Etiket1[, Etiket2[, Etiket3[,...]]]
On NumUdtryk GoTo Etiket1[, Etiket2[, Etiket3[,...]]]
NumUdtryk: Et numerisk udtryk mellem 0 og 255, som bestemmer, hvilken af linjerne programmet forgrenes til. Hvis NumUdtryk er 0, udføres sætningen ikke. Hvis NumUdtryk er større end 0, hopper programmet til den etiket, der har et positionsnummer, der svarer til udtrykket (1 = første etiket, 2 = anden etiket).
Etiket: Mållinje for GoTo- eller GoSub-strukturen.
![]() |
GoTo- eller GoSub-konventionerne er gyldige. |
Sub EksempelOnGosub
Dim iVar As Integer
Dim sVar As String
iVar = 2
sVar =""
On iVar GoSub Sub1, Sub2
On iVar GoTo Linje1, Linje2
Exit Sub
Sub1:
sVar =sVar & " Fra Sub1 til" : Return
Sub2:
sVar =sVar & " Fra Sub2 til" : Return
Linje1:
sVar =sVar & " Etiket 1" : GoTo Slut
Linje2:
sVar =sVar & " Etiket 2"
Slut:
MsgBox sVar,0,"On...Gosub"
End Sub