IBM Lotus Symphony
|
Pokliče podprogram, ki je označen z nalepko iz podprograma ali funkcije. Stavki, ki sledijo nalepki, se izvedejo do naslednjega stavka Return. Potem program nadaljuje s stavkom, ki sledi stavku GoSub.
Glejte odsek Parametri
Sub/Function
blok stavka
Nalepka
blok stavka
GoSub Label
Exit Sub/Function
Label:
blok stavka
Return
End Sub/Function
Stavek GoSub kliče lokalni podprogram, ki ga označuje nalepka znotraj podprograma ali funkcije. Ime nalepke se mora končati z dvopičjem (":").
![]() |
Če program naleti na stavek Return, pred katerim ni stavka GoSub, Lotus® Symphony™ Basic vrne sporočilo o napaki. Če želite zagotoviti, da program zapusti Sub ali Function, preden doseže naslednji stavek Return, uporabite funkciji Exit Sub ali Exit. |
Naslednji primer prikazuje uporabo stavkov GoSub in Return. S tem, da dvakrat izvede del programa, program izračuna kvadratni koren dveh številk, ki jih je vnesel uporabnik.
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