GoSub

应用示例

'!TITLE "转移至标签后，返回转移源"
' 标签转移后，在aaa中加上10并在返回转移源后，在aaa中加上20
Sub Sample_GoSub

  Dim aaa As Integer

  aaa = 5

  ' 转移至LABEL1
  GoSub LABEL1

  aaa = aaa + 20

  ' 在讯息输出视窗中显示“35”
  PrintDbg aaa

  Exit Sub

LABEL1:

  aaa = aaa + 10

  ' 在讯息输出视窗中显示“15” 
  PrintDbg aaa

  ' 返回转移源
  Return

End Sub