IBM Lotus Symphony


Príkaz GoSub...Return [Runtime]

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.

Syntax:

pozri Parametre

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 (":").

Ikona upozornenia 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.

Príklad:

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


Spätná väzba na produkt | Ďalšia dokumentácia | Ochranné známky