GoSub...Return Statement
α α βααααααβααΆαβααβαα½αβ βαααβααααΌαβααΆαβα ααα’α»αβαααα αΆαβαααβααααΆαβααΈβααααααβααΆαβααβαα½α α¬βα’αα»ααααβαα½αΒ α ααα ααααΈβαααααβααΆαααβαααβαα βααααβααΈβααααΆαβααααΌαβααΆαβααααα·ααααα·βαα αΌαβαααβααα ααααΈβαααααβααΆααα Return αααααΆααΒ α ααααββααβααα αααααα·ααΈβααααβααΆαα½αβααα ααααΈβαααααβααΆαααβαααβαα βααααβααΈβααα ααααΈβαααααβααΆααα GoSub Β α
ααΆαααβααααααα α
ααΎαβαααΆαααΆααααααβ
αααΆαααΆαααααα α
Sub/Function
ααααα»αβααα ααααΈβαααααβααΆααα
ααααΆα
ααααα»αβααα ααααΈβαααααβααΆααα
GoSub Label
Exit Sub/Function
ααααΆα α
ααααα»αβααα ααααΈβαααααβααΆααα
αααα‘αα
End Sub/Function
GoSub ααα ααααΈβαααααβααΆαααβα α βααααααβααΆαβααβααΌαααααΆαβαααβα ααα’α»αβαααα αΆαβαααβααααΆαββαα½αβααΈβαααα»αβααααααβααΆαβαα α¬βα’αα»ααααΒ α αααααβααβααααΆαβααααΌαβααβαααα ααβαααβαααααΆβα α»α βααΈα (":")Β α
ααααα·αβααΎββαααααα·ααΈβαα½αβαααααβααα ααααΈβαααααβααΆααα Return αααβαα·αβαα βααΈβαα»αβααα GoSub LibreOffice Basic αααα‘ααβααΆαβααα α»αβαα½αΒ α ααααΎ Exit Sub α¬βExit Function ααΎααααΈβααααΎβα²ααβααααΆααβααΆβαααααα·ααΈβα αΆαα ααβααΈ Sub α¬β Function αα»αβαααβαα βαααβααα ααααΈβαααααβααΆααα Return αααααΆααΒ α
α§ααΆα αααβααΌα βααΆαβαααααβαααα αΆαβααΈβααΆαβααααΎβαα GoSub αα·αReturnΒ α αααβααααα·ααααα·βαααααβααβαααααα·ααΈβααΈαβαα αααααα·ααΈβααααΆβα«αβααΆααβααβα ααα½αβααΈαβαααβααααΌαβααΆαβαααα αΌαβαααβα’αααβααααΎΒ α
α§ααΆα ααα α
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