vb.net 教程 2-8 流程控制:跳转语句GOTO

执行GOTO语句将无条件地跳转到过程内的标签所在代码。
需要注意的是：由于GoTo的跳转使代码具有不确定性，而且阅读和维护会变得更加困难，应该尽可能的减少使用。

看以下代码，输出0-100，但是当等于5时，结束输出。

    Sub main()
        For i As Integer = 0 To 100
            Console.WriteLine(i)
            If i = 5 Then GoTo equal5
        Next
        Console.ReadKey()
        Exit Sub

equal5:
        Console.WriteLine("已经跳转")
        Console.ReadKey()
    End Sub

我们定义了一个标签：equal5，当i=5时就跳转到此处的代码，不再继续输出数字。运行如下：

再继续看以下代码：

    Sub Main()
        Dim i As Integer
        Console.WriteLine("请输入一个数字")
        i = CType(Console.ReadLine,Integer)

        Select Case i
            Case 0
                GoTo statements0
            Case 1
                GoTo statements1
            Case Else
                GoTo statementselse
        End Select

statements0:
        Console.WriteLine("输入数据为0")

statements1:
        Console.WriteLine("输入数据为1")

statementselse:
        Console.WriteLine("输入数据为其他")

        Console.ReadKey()
    End Sub

    Sub Main()
        Dim i As Integer
        Console.WriteLine("请输入一个数字")
        i = CType(Console.ReadLine,Integer)

        Select Case i
            Case 0
                GoTo statements0
            Case 1
                GoTo statements1
            Case Else
                GoTo statementselse
        End Select

statements0:
        Console.WriteLine("输入数据为0")
        GoTo endsub
statements1:
        Console.WriteLine("输入数据为1")
        GoTo endsub
statementselse:
        Console.WriteLine("输入数据为其他")
        GoTo endsub
endsub:
        Console.ReadKey()
    End Sub