[VB.NET] Select Case示例

’可以使用比较符号

Select Case NUM

　Case Is < 10

      Do0

   Case Is <100  '=10 TO 99

      Do1

　Case 100 To 999  '= Is <1000
      Do2

　Case 1000 To 9999,  20000, 30000 '複数でOK

      Do3

　Case Else  

      DoElse

End Select

‘甚至像IF一样。

Select Case true
        Case (value >= 0 andalso value <= 49.99)
            Debug.WriteLine("first group")
        Case (value >= 50 andalso value <= 99.99)
            Debug.WriteLine("second group")
        Case (value >= 100 andalso value <= 199.99)
            Debug.WriteLine("third group")
        Case Else
            Debug.WriteLine("fourth group")
    End Select