ຄຳສັ່ງ On...GoSub; ຄຳສັ່ງ On...GoTo
ແຍກສາຂາໄປຫາແຖວໃດໜຶ່ງໃນຫຼາຍແຖວທີ່ລະບຸໄວ້ໃນລະຫັດໂປຣແກຣມ ໂດຍຂຶ້ນກັບຄ່າຂອງນິພົດຕົວເລກ.
On expression GoSub Label1[, Label2[, Label3[,...]]]
On expression GoTo Label1[, Label2[, Label3[,...]]]
ນິພົດ: ນິພົດຕົວເລກໃດໜຶ່ງລະຫວ່າງ 0 ຫາ 255 ທີ່ກຳນົດວ່າໂປຣແກຣມຈະແຍກສາຂາໄປຫາແຖວໃດ. ຖ້າ ນິພົດ ແມ່ນ 0, ຄຳສັ່ງຈະບໍ່ຖືກປະມວນຜົນ. ຖ້າ ນິພົດ ໃຫຍ່ກວ່າ 0, ໂປຣແກຣມຈະກະໂດດໄປຫາປ້າຍຊື່ທີ່ມີລຳດັບຕຳແໜ່ງກົງກັບນິພົດ (1 = ປ້າຍຊື່ທຳອິດ; 2 = ປ້າຍຊື່ທີສອງ)
ປ້າຍຊື່: ແຖວເປົ້າໝາຍຕາມໂຄງສ້າງ GoTo ຫຼື GoSub.
ຂໍ້ກຳນົດຂອງ GoTo ຫຼື GoSub ແມ່ນໃຊ້ໄດ້.
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 & " ຈາກ Sub 1 ຫາ" : Return
Sub2:
sVar =sVar & " ຈາກ Sub 2 ຫາ" : Return
Line1:
sVar =sVar & " ປ້າຍຊື່ 1" : GoTo Ende
Line2:
sVar =sVar & " ປ້າຍຊື່ 2"
Ende:
MsgBox sVar,0,"On...GoSub"
End Sub
