IBM Lotus Symphony
|
Razcepi eno od več podanih vrstic v programski kodi glede na vrednost številskega izraza.
On N GoSub Label1[, Label2[, Label3[,...]]]
On NumExpression GoTo Label1[, Label2[, Label3[,...]]]
NumExpression: Katerikoli številski izraz med 0 in 255, ki določa, na katere vrstice naj se program razcepi. Če je NumExpression 0, se stavek ne izvrši. Če je NumExpression večji od 0, program skoči na nalepko, ki ima številko položaja, ki ustreza izrazu (1 = First label; 2 = Second label).
Label: Ciljna vrstica glede na strukturo GoTo ali GoSub.
![]() |
Veljavno je pravilo GoTo ali GoSub. |
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 & " Od Sub 1 do " : Return
Sub2:
sVar =sVar & " Od Sub 2 do " : Return
Line1:
sVar =sVar & " Nalepka 1" : GoTo Ende
Line2:
sVar =sVar & " Nalepka 2"
Ende:
MsgBox sVar,0,"On...Gosub"
End Sub