Ukaz On...GoSub; On...GoTo

Razveja izvajanje na eno od več navedenih vrstic v programski kodi, odvisno od numeričnega izraza.

Skladnja:

On N GoSub Oznaka1[, Oznaka2[, Oznaka3[,...]]]

On NumIzraz GoTo Oznaka1[, Oznaka2[, Oznaka3[,...]]]

Parametri:

NumIzraz: poljuben numerični izraz med 0 in 255, ki odloča, na katero od navedenih vrstic bo program preskočil. Če je NumIzraz nič, se ukaz ne izvede. Če je NumIzraz večji od nič, potem skoči program na točko, katere zaporedna številka odgovarja izrazu (1 = prva oznaka; 2 = druga oznaka)

Oznaka: Ciljna vrstica glede na strukturo GoTo ali GoSub.

Konvencije za GoTo ali GoSub pri tem veljajo.

Primer:

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:

    sSpr =sSpr & " Iz Proc 1 v" : Return

Sub2:

    sSpr =sSpr & " Iz Proc 2 v" : Return

Line1:

    sVar =sVar & " Oznako 1" : GoTo Konec

Line2:

    sSpr =sSpr & " Oznaka 2"

Ende:

    MsgBox sVar,0,"On...GoSub"

End Sub