GoSub...Return Statement
āĻāĻāĻāĻŋ āϏāĻžāĻŦāϰā§āĻāĻŋāύ āĻāϞ āĻāϰāĻž āĻšā§ āϝāĻž āĻāĻāĻāĻŋ āϏāĻžāĻŦāϰā§āĻāĻŋāύ āĻ āĻĨāĻŦāĻž āĻĢāĻžāĻāĻļāύā§āϰ āĻāĻāĻāĻŋ āϞā§āĻŦā§āϞā§āϰ āĻŽāĻžāϧā§āϝāĻŽā§ āύāĻŋāϰā§āĻĻā§āĻļāĻŋāϤ āĻšā§āĨ¤ āĻĒāϰāĻŦāϰā§āϤ⧠āĻĒā§āϰāĻĻāĻžāύ āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻĒāϰā§āϝāύā§āϤ āϞā§āĻŦā§āϞ āĻ āύā§āϏāϰāĻŖāĻāĻžāϰ⧠āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻāĻžāϞāĻžāύ⧠āĻšā§āĨ¤ āĻĒāϰāĻŦāϰā§āϤā§āĻāĻžāϞā§, GoSub āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻ āύā§āϏāϰāĻŖāĻāĻžāϰ⧠āϏā§āĻā§āĻāĻŽā§āύā§āĻ āϏāĻš āĻĒā§āϰā§āĻā§āϰāĻžāĻŽ āĻāĻžāϞāύāĻž āĻŦāĻšāĻžāϞ āϰāĻžāĻā§āĨ¤
āϏāĻŋāύāĻā§āϝāĻžāĻā§āϏ:
āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ āĻĻā§āĻā§āύ
āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ:
āϏāĻžāĻŦ/āĻĢāĻžāĻāĻļāύ
āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻŦā§āϞāĻ
āϞā§āĻŦā§āϞ
āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻŦā§āϞāĻ
GoSub āϞā§āĻŦā§āϞ
Exit Sub/Function
āϞā§āĻŦā§āϞ:
āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻŦā§āϞāĻ
āĻĒā§āϰāĻĻāĻžāύ
End Sub/Function
āĻāĻāĻāĻŋ āϏāĻžāĻŦāϰā§āĻāĻŋāύ āĻ āĻĨāĻŦāĻž āĻĢāĻžāĻāĻļāύ āĻĨā§āĻā§ āĻāĻāĻāĻŋ āϞā§āĻŦā§āϞ āĻĻā§āĻŦāĻžāϰāĻž āύāĻŋāϰā§āĻĻā§āĻļāĻŋāϤ āϞā§āĻā§āϝāĻžāϞ āϏāĻžāĻŦāϰā§āĻāĻŋāύ GoSub āϏā§āĻā§āĻāĻŽāύā§āĻā§āϰ āϏāĻžāĻšāĻžāϝā§āϝ⧠āĻāϞ āĻāϰāĻž āĻšā§āĨ¤ āϞā§āĻŦā§āϞā§āϰ āύāĻžāĻŽāĻāĻŋ āĻ āĻŦāĻļā§āϝāĻ āĻāĻāĻāĻŋ āĻā§āϞāύ (":") āĻĻā§āĻŦāĻžāϰāĻž āĻļā§āώ āĻšāĻŦā§āĨ¤
āϝāĻĻāĻŋ āĻĒā§āϰā§āĻā§āϰāĻžāĻŽāĻāĻŋāϤ⧠āĻāĻŽāύ āĻāĻāĻāĻŋ āĻĒā§āϰāĻĻāĻžāύ āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻĨāĻžāĻā§ āϝāĻžāϰ āĻĒā§āϰā§āĻŦā§ GoSub āĻŦāĻŋāĻĻā§āϝāĻŽāĻžāύ āύā§, āϤāĻžāĻšāϞ⧠LibreOffice āĻŦā§āϏāĻŋāĻ āĻāĻāĻāĻŋ āϤā§āϰā§āĻāĻŋ āĻŦāĻžāϰā§āϤāĻž āĻĒā§āϰāĻĻāĻžāύ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤ āĻĒāϰāĻŦāϰā§āϤ⧠āĻĒā§āϰāĻĻāĻžāύ āϏā§āĻā§āĻāĻŽā§āύā§āĻā§ āĻĒā§āĻāĻāĻžāϰ āĻĒā§āϰā§āĻŦā§ āϏāĻžāĻŦ āĻ āĻĨāĻŦāĻž āĻĢāĻžāĻāĻļāύ āĻĨā§āĻā§ āĻāĻāĻāĻŋ āĻĒā§āϰā§āĻā§āϰāĻžāĻŽ āĻ āĻĒāϏāĻžāϰāĻŖ āύāĻŋāĻļā§āĻāĻŋāϤ āĻāϰāĻžāϰ āĻāύā§āϝ Exit Sub āĻ āĻĨāĻŦāĻž Exit Function āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻāϰāĻž āĻšā§āĨ¤
āύāĻŋāĻā§āϰ āĻāĻĻāĻžāĻšāϰāĻŖāĻāĻŋ 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