Module
Contents
Index 🔎︎

# On...GoSub Statement; On...GoTo Statement

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

## Синтаксис

    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