IBM Lotus Symphony
|
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.
Se under 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 (":").
![]() |
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.
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