IBM Lotus Symphony


Sætningen GoSub...Return [Runtime]

Kalder en underrutine, som betegnes med en etiket, fra en underrutine eller en funktion. Sætningerne efter etiketten udføres indtil næste Return-sætning. Derefter fortsætter programmet med den sætning, der står efter GoSub-sætningen.

Syntaks:

Se under Parametre.

Parametre:

Sub/Function

Sætningsblok

Etiket

Sætningsblok

GoSub Etiket

Exit Sub/Function

Etiket:

Sætningsblok

Tilbage

End Sub/Function

Sætningen GoSub i en underrutine eller funktion kalder en lokal underrutine, der angives af en etiket. Navnet på etiketten skal afsluttes med et kolon (":").

Advarselsikon Hvis der i programmet forekommer en Return-sætning, som ikke efterfølger GoSub, afsender Lotus® Symphony™ Basic en fejlmeddelelse. Brug Exit Sub eller Exit Function til at sikre, at programmet forlader en underrutine eller funktion, før næste Return-sætning forekommer.

Det følgende eksempel viser, hvordan du bruger GoSub og Return. Programmet beregner kvadratroden af to tal, der angives af brugen. Det sker, ved at et afsnit i programmet udføres to gange.

Eksempel:

Sub EksempelGoSub

Dim iInputa As Single

Dim iInputb As Single

Dim iInputc As Single

iInputa = Int(InputBox$ "Skriv det første tal: ","Angiv tal"))

iInputb = Int(InputBox$ "Skriv det andet tal: ","Angiv tal"))

iInputc=iInputa

GoSub Kvadratrod

Print "Kvadratroden af";iInputa;" er";iInputc

iInputc=iInputb

GoSub Kvadratrod

Print "Kvadratroden af";iInputb;" er";iInputc

Exit Sub

Kvadratrod:

iInputc=Sqr(iInputc)

Tilbage

End Sub


Produktfeedback | Yderligere dokumentation | Varemærker