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