<< 向前        下一页 >>

ID : 131

GoTo

功能

转移至标签。

格式

GoTo 标签名

指定项目

标签名
指定标签名。

解说

转移至标签名指定的标签。

相关项目

On Error、 标签名

注意事项

转移位置仅限过程范围内，不可转移至其它过程。

应用示例

'!TITLE "无条件执行程序分支"
' 判定aaa和bbb的大小，在各标签中显示结果
Sub Sample_GoTo

  Dim aaa As Integer
  Dim bbb As Integer

  aaa = 1
  bbb = 10

  ' 判定aaa和bbb的大小
  If aaa > bbb Then

    ' aaa > bbb时，转移至LABEL1
    Goto LABEL1

  ElseIf aaa < bbb Then

    ' aaa < bbb时，转移至LABEL2
    Goto LABEL2

  Else

    ' aaa = bbb时，转移至LABEL3
    Goto LABEL3

  End If

  Exit Sub

LABEL1:

  ' 在讯息输出视窗中显示判定结果( aaa > bbb )
  PrintDbg ( aaa & " > " & bbb )

  Exit Sub

LABEL2:

  ' 在讯息输出视窗中显示判定结果( aaa < bbb )
  PrintDbg ( aaa & " < " & bbb )

  Exit Sub

LABEL3:

  ' 在讯息输出视窗中显示判定结果( aaa = bbb )
  PrintDbg ( aaa & " = " & bbb )

  Exit Sub

End Sub

ID : 131

<< 向前        下一页 >>