Інструкція 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