Modul
Vsebina
Kazalo 🔎︎

# Ukaz GoSub...Return

Pokliče podprogram, katerega dostop je oznaka v podprogramu ali funkciji. Izvaja ukaze, ki oznaki sledijo do naslednjega ukaza Return. Potem nadaljuje program z ukazom, ki sledi ukazu GoSub.

## Skladnja:

    glejte Parametre

## Parametri:

Sub/Function

blok ukazov

Oznaka

blok ukazov

GoSub Oznaka

Exit Sub/Function

Oznaka:

blok ukazov

Return

End Sub/Function

Ukaz GoSub pokliče krajevni podprogram, katerega vhod v podprogramu ali funkciji je navedena oznaka. Ime oznake se mora končati s podpičjem (":").

Če program naleti na ukaz Return, ne da bi prej izvedel ukaz GoSub, bo LibreOffice Basic javil napako. Uporabljajte Exit Sub ali Exit Function, da veste zagotovo, da je program podprogram ali funkcijo zapustil, preden je lahko prišel do naslednjega ukaza Return.

Naslednji primer naj služi kot prikaz uporabe GoSub in Return. Če želite, da program izračuna kvadratni koren dveh števil, ki jih je uporabnik vnesel, izvedite del programa dvakrat.

## Primer:

    Sub ExampleGoSub

    Dim iInputa As Single

    Dim iInputb As Single

    Dim iInputc As Single

        iInputa = Int(InputBox("Vnesite prvo število: ","Vnos števila"))

        iInputb = Int(InputBox("Vnesite drugo število: ","Vnos števila"))

        iInputc=iInputa

        GoSub SquareRoot

        Print "Kvadratni koren ";iInputa;" je";iInputc

        iInputc=iInputb

        GoSub SquareRoot

        Print "Kvadratni koren ";iInputb;" je";iInputc

        Exit Sub

    SquareRoot:

        iInputc=sqr(iInputc)

        Return

    End Sub