在VB编程中的无条件转移语句（GOTO)是如何编写的?

来源：百度知道 编辑：UC知道 时间：2024/05/31 03:28:27
老师：在VB编程中，我编好了一段计算程序，运行都正常，下面要求转到另外一段程序上去，我不知如何写下去，请老师举一个最简单的例子，谢谢！

设定一个标号,然后直接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