Pernyataan On...GoSub; Pernyataan On...GoTo

Cabang ke salah satu dari beberapa baris yang ditentukan dalam kode program, tergantung pada nilai ekspresi numerik.

Sintaksis:


On N GoSub Label1[, Label2[, Label3[,...]]]
On NumExpression GoTo Label1[, Label2[, Label3[,...]]]

Parameter:

TandaNum: Tanda numerik apa pun antara 0 dan 255 yang menentukan baris mana yang dituju program. Jika TandaNum adalah 0, pernyataan itu tidak dieksekusi. Jika TandaNum lebih besar dari 0, program melompat ke label yang memiliki nomor posisi yang sesuai dengan Tanda (1 = Label pertama; 2 = Label kedua)

Label: Baris target sesuai dengan GoTo atauGoSubstruktur.

Ikon Catatan

Konvensi Pergi ke Sub atau Pergi ke Sub valid.


Contoh:


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 & " Dari Sub 1 ke" : Return
Sub2:
    sVar =sVar & " Dari Sub 2 ke" : Return
Line1:
    sVar =sVar & " Label 1" : GoTo Ende
Line2:
    sVar =sVar & " Label 2"
Ende:
    MsgBox sVar,0,"On...GoSub"
End Sub