IBM Lotus Symphony


Instrução GoSub...Return [Tempo de Execução]

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.

Sintaxe:

consulte Parâmetros

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 (":").

Ícone de Aviso 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.

Exemplo:

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


Feedback do Produto | Documentação Adicional | Marcas Registradas