[VB.NET]Select Case语句拾遗

正常的Select 语句如下：

        Dim status As Integer = 5

        Select Case status
            Case 0
                Console.WriteLine("状态是:0")
            Case 1
                Console.WriteLine("状态是:1")
            Case 2
                Console.WriteLine("状态是:2")
            Case Else
                Console.WriteLine("其它状态!")
        End Select

也可以比较数值范围，确定数值范围的两个值用关键字To连接。如果Select表达式在这个范围中，则执行該Case语句。

        Dim status As Integer = 5

        Select Case status
            Case 0
                Console.WriteLine("状态是:0")
            Case 1 To 5
                Console.WriteLine("状态是:1到5")
            Case Else
                Console.WriteLine("其它状态!")
        End Select

        Console.Read()

如果需要相等以外的比较方式，则可以在Case关键字之后使用Is关键字，然后加上比较运算符和表达式，这样就会按指定的方式进行比较。

        Dim status As Integer = 7

        Select Case status
            Case 0
                Console.WriteLine("状态是:0")
            Case Is <= 5
                Console.WriteLine("状态是:1到5")
            Case Is <= 10
                Console.WriteLine("状态是:6到10")
            Case Else
                Console.WriteLine("其它状态!")
        End Select

也可以把多种情形合并在一起，Case表达式之间使用逗号分隔

        Dim status As Integer = 7

        Select Case status
            Case 0
                Console.WriteLine("状态是:0")
            Case 1, 3, 5, 7, 9
                Console.WriteLine("状态是奇数")
            Case 2, 4, 6, 8, 10
                Console.WriteLine("状态是偶数")
        End Select