IBM Lotus Symphony
|
Continua com a execução do programa numa Sub ou Function numa linha de procedimento indicada por um rótulo.
Ver Parâmetros
Sub/Function
bloco de instruções
GoTo Label1
Label2:
bloco de instruções
Exit Sub
Label1:
bloco de instruções
GoTo Label2
End Sub/Function
Utilize a instrução GoTo para indicar ao IBM® Lotus® Symphony™ Basic que deverá continuar a execução do programa noutro local do procedimento. A posição terá de ser indicada por um rótulo. Para definir um rótulo, atribua um nome e, em seguida, termine o rótulo com (":").
Aviso: Não é possível utilizar a instrução GoTo para sair de uma Sub ou Function.
Sub ExampleOnGosub
Dim iVar As Integer
Dim sVar As String
iVar = 2
sVar =""
On iVar GoSub Sub1, Sub2
On iVar GoTo Line1, Line2
Exit Sub
Sub1:
sVar =sVar & " From Sub 1 to" : Return
Sub2:
sVar =sVar & " From Sub 2 to" : Return
Line1:
sVar =sVar & " Label 1"
Line2:
sVar =sVar & " Label 2"
Print sVar
End Sub