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

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

基本形式如下：

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

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

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

例如：

    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

运行结果：

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

    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

结果：

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

    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

结果：

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

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