Інструкція On...GoSub; інструкція On...GoTo

Вибирає один з варіантів виконання програми залежно від значення числового виразу.

Синтаксис:


On Числ_вираз GoSub Мітка1[, Мітка2[, Мітка3[,...]]]
On Числ_вираз GoTo Мітка1[, Мітка2[, Мітка3[,...]]]

Параметри:

Числ_вираз. Числовий вираз від 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 & " Із процедури 1 в" : Return
Sub2:
    sVar =sVar & " Із процедури 2 в" : Return
Line1:
    sVar =sVar & " Мітка 1" : GoTo Ende
Line2:
    sVar =sVar & " Мітка 2"
Ende:
    MsgBox sVar,0,"On...GoSub"
End Sub