IBM Lotus Symphony
|
Volá podprogram označený návestím z podprogramu alebo z funkcie. Príkazy za návestím sa vykonávajú dovtedy, kým nenatrafia na ďalší príkaz Return. Potom program pokračuje s príkazom, ktorý nasleduje za príkazom GoSub.
pozri Parametre
Sub/Function
blok príkazov
Menovka
blok príkazov
Návestie GoSub
Exit Sub/Function
Návestie:
blok príkazov
Return
End Sub/Function
Príkaz GoSub volá podprogram označený návestím z vnútra podprogramu alebo funkcie. Názov návestia sa musí končiť dvojbodkou (":").
![]() |
Ak program zaznamená, že pred príkazom Return sa nenachádza GoSub, Lotus® Symphony™ Basic vráti chybovú správu. Použite Exit Sub alebo Exit Function, aby ste zabezpečili, že program opustí Sub alebo Function predtým, ako natrafí na ďalší príkaz Return. |
Nasledujúci príklad znázorňuje použitie príkazov GoSub a Return. Tým, že sa časť programu vykoná dvakrát, program vypočíta druhú odmocninu dvoch čísel zadaných užívateľom.
Sub Príklad_GoSub
dim iInputa ako typ Single
dim iInputb ako typ Single
dim iInputc ako typ Single
iInputa = Int(InputBox$ "Zadajte prvé číslo: ","Vstup_čísla"))
iInputb = Int(InputBox$ "Zadajte druhé číslo: ","Vstup_čísla"))
iInputc=iInputa
GoSub SquareRoot
Print "Druhá odmocnina z";iInputa;" je";iInputc
iInputc=iInputb
GoSub SquareRoot
Print "Druhá odmocnina z";iInputb;" je";iInputc
Exit Sub
SquareRoot:
iInputc=sqr(iInputc)
Return
End Sub