GoTo
无条件分支到过程中指定的行。
语法:
GoTo line
- line
- 任何行标签或行号。
GoTo 只能分支到它所在过程中的行。
INFO
过多的 GoTo 语句会使代码难以阅读和调试。尽可能使用结构化控制语句(Do...Loop、For...Next、If...Then...Else、Select Case)。
示例
本示例使用 GoTo 语句分支到过程中的行标签。
vb
Sub GotoStatementDemo()
Dim Number, MyString
Number = 1 ' Initialize variable.
' Evaluate Number and branch to appropriate label.
If Number = 1 Then GoTo Line1 Else GoTo Line2
Line1:
MyString = "Number equals 1"
GoTo LastLine ' Go to LastLine.
Line2:
' The following statement never gets executed.
MyString = "Number equals 2"
LastLine:
Debug.Print MyString ' Print "Number equals 1" in the Immediate window.
End Sub