[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