[VB.NET Tips]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