Question

请问VB中怎么使用Goto语句Goto行号

请问VB中怎么使用Goto语句Goto行号

Answer 1

设定一个标号,然后直接goto 标号
比如
Sub GotoStatementDemo()
Dim Number, MyString
Number = 1 ' 设置变量初始值。
' 判断 Number 的值以决定要完成那一个程序区段（以“程序标签”来表式）。
If Number = 1 Then GoTo Line1 Else GoTo Line2

Line1:
MyString = "Number equals 1"
GoTo LastLine ' 完成最后一行。
Line2:
' 下列的语句根本不会被完成。
MyString = "Number equals 2"
LastLine:
Debug.Print MyString ' 将“"Number equals 1"”显示在“立即”窗口。
End Sub

Answer 2

不被执行是正常的呀。
顺序：
Number=1，所以执行Line1，然后强制跳到LastLine，所以Line2被跳过了，当然不会执行了。