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.
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