IBM Lotus Symphony
|
Kutsuu toiminnosta tai funktiosta otsikon osoittaman toiminnon. Otsikkoa seuraavat lauseet suoritetaan seuraavaan Return-lauseeseen saakka. Sen jälkeen ohjelma jatkaa GoSub-lausetta seuraavan lauseen suorittamista.
katso Parametrit
Sub/Function
lauselohko
Nimiö
lauselohko
GoSub Label
Exit Sub/Function
Label:
lauselohko
Return
End Sub/Function
GoSub-lause kutsuu toiminnosta tai funktiosta otsikon osoittaman paikallisen toiminnon. Otsikon nimen on päätyttävä kaksoispisteeseen (":").
![]() |
Jos ohjelma kohtaa Return-lauseen, jota ei edellä GoSub-lause, Lotus Symphony Basic palauttaa virhesanoman. Exit Sub- tai Exit Function -lauseen avulla voit varmistaa, että ohjelma jättää toiminnon tai funktion, ennen kuin kohtaa seuraavan Return-lauseen. |
Seuraava esimerkki esittelee GoSub- ja Return-lauseen käyttöä. Suorittamalla ohjelmaosan kahdesti ohjelma laskee kahden käyttäjän kirjoittaman luvun neliöjuuren.
Sub ExampleGoSub
dim iInputa as Single
dim iInputb as Single
dim iInputc as Single
iInputa = Int(InputBox$ "Enter the first number: ","NumberInput"))
iInputb = Int(InputBox$ "Enter the second number: ","NumberInput"))
iInputc=iInputa
GoSub SquareRoot
Print "The square root of";iInputa;" is";iInputc
iInputc=iInputb
GoSub SquareRoot
Print "The square root of";iInputb;" is";iInputc
Exit Sub
SquareRoot:
iInputc=sqr(iInputc)
Return
End Sub