IBM Lotus Symphony
|
Vetví sa na jeden z viacerých riadkov, špecifikovaných v kóde programu v závislosti od hodnoty numerického výrazu.
On N GoSub návestie_1[, návestie_2[, návestie_3[,...]]]
On numerický_výraz GoTo návestie_1[, návestie_2[, návestie_3[,...]]]
Numerický_výraz: ľubovoľný numerický výraz medzi 0 a 255, ktorý určuje, na ktoré riadky sa program vetví. Ak je číselný_výraz = 0, príkaz sa nevykoná. Ak je číselný_výraz väčší ako 0, program vykoná skok na návestie s číslom polohy, ktoré zodpovedá výrazu (1 = prvé návestie; 2 = druhé návestie)
Návestie: Cieľová čiara podľa štruktúry GoTo alebo GoSub.
![]() |
Konvencia GoTo alebo GoSub je platná. |
Sub Príklad_On_Gosub
Dim iVar ako typ Integer
Dim sVar ako typ String
iVar = 2
sVar =""
On iVar GoSub Sub1, Sub2
On iVar GoTo riadok_1, riadok_2
Exit Sub
Sub1:
sVar =sVar & " Zo Sub 1 do" : Return
Sub2:
sVar =sVar & " Zo Sub 2 do" : Return
riadok_1:
sVar =sVar & " návestie 1" : GoTo Ende
riadok_2:
sVar =sVar & " návestie 2"
Ende:
MsgBox sVar,0,"On...Gosub"
End Sub