IBM Lotus Symphony
|
Chame uma sub-rotina indicada por uma etiqueta de uma sub-rotina ou função. As instruções contidas na etiqueta são executadas até a próxima instrução Return. Posteriormente, o programa continuará com a instrução subsequente à instrução GoSub.
consulte Parâmetros
Sub/Function
bloco de instruções
Etiqueta
bloco de instruções
GoSub Label
Exit Sub/Function
Label:
bloco de instruções
Return
End Sub/Function
A instrução GoSub chama uma sub-rotina local indicada por uma etiqueta de uma sub-rotina ou uma função. O nome da etiqueta deve terminar com dois pontos (":").
![]() |
Se o programa encontrar uma instrução Return não precedida por GoSub, o Lotus® Symphony™ Basic retornará uma mensagem de erro. Use Exit Sub ou Exit Function para assegurar-se de que o programa deixa um Sub ou Function antes de chegar na próxima instrução Return. |
O exemplo a seguir demonstra o uso de GoSub e Return. Ao executar uma seção do programa duas vezes, o programa calcula a raiz quadrada de dois números digitados pelo usuário.
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