Spis treści
Indeks 🔎︎

# Instrukcja On...GoSub; instrukcja On...GoTo

Rozgałęzia wykonywanie programu na kilka określonych linii kodu w zależności od wartości wyrażenia numerycznego.

### Składnia:

    On expression GoSub Label1[, Label2[, Label3[,...]]]
    On expression GoTo Label1[, Label2[, Label3[,...]]]

### Parametry:

expression: Dowolne wyrażenie numeryczne z przedziału od 0 do 255 określające, do której linii program się rozgałęzia. Jeśli expression wynosi 0, instrukcja nie jest wykonywana. Jeśli expression jest większe niż 0, program przeskakuje do etykiety, której numer pozycji odpowiada wyrażeniu (1 = pierwsza etykieta; 2 = druga etykieta).

label: Linia celu według struktury GoTo lub GoSub.

Poprawne są wszystkie konwencje instrukcji GoTo i GoSub .

### Przykład:

    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 & " From Sub 1 to" : Return
    Sub2:
        sVar =sVar & " From Sub 2 to" : Return
    Line1:
        sVar =sVar & " Label 1" : GoTo Ende
    Line2:
        sVar =sVar & " Label 2"
    Ende:
        MsgBox sVar,0,"On...GoSub"
    End Sub

Tematy pokrewne

Instrukcja GoSub...Return

Instrukcja GoTo