流程控制的选择语句使用的是Select Case 语句@H_301_1@

以 Select Case 开头，以End Select 结尾，其中有一个或多个 Case 和匹配值，如果匹配就执行该Case 下面的语句块。@H_301_1@

基本形式如下：@H_301_1@

Select Case 表达式(此表达式的计算结果必须为某个基本数据类型)
Case 匹配值1
处理语句块1
Case 匹配值2
处理语句块2
......
处理语句块n
Case Else
处理语句块n+1
End Select@H_301_1@

可以在每个 Case 子句中使用多个表达式或范围：@H_301_1@

Case 1 To 4,7 To 9,11,13,Is > maxNumber@H_301_1@

例如：@H_301_1@

    Sub Main()
        Dim s As String
        Console.WriteLine("选择 a、b、c 方案")
        s = Console.ReadLine()
        Select Case s
            Case "a"
                Console.WriteLine("选择了 a号 方案")
            Case "b"
                Console.WriteLine("选择了 b号 方案")
            Case "c"
                Console.WriteLine("选择了 c号 方案")
            Case Else
                Console.WriteLine("选择了 其他 方案")
        End Select
        Console.ReadKey()
    End Sub

运行结果：@H_301_1@

@H_301_1@

第二个例子，case 后面接判断@H_301_1@

    Sub Main()
        Dim a As Integer = 0
        Select Case a
            Case < 0
                Console.WriteLine("a小于0")
            Case = 0
                Console.WriteLine("a等于0")
            Case > 0
                Console.WriteLine("a大于0")
        End Select
        Console.ReadKey()
    End Sub

结果：@H_301_1@

第三个例子，case后面多个值@H_301_1@

    Sub Main()
        Dim a As Integer = 12
        Select Case a
            Case 1,2,3
                Console.WriteLine("第1季度")
            Case 4,5,6
                Console.WriteLine("第2季度")
            Case 7,8,9
                Console.WriteLine("第3季度")
            Case 10,12
                Console.WriteLine("第4季度")
        End Select
        Console.ReadKey()
    End Sub

结果：@H_301_1@

@H_301_1@

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。@H_301_1@

学习更多vb.net知识，请参看 vb.net 教程 目录@H_301_1@