select case 如果范围是一个值到跟多 怎么打

Select Case<testexpression>
------[Case<expressionlist_1>]
-----------[<statements_1>]
------[Case<expressionlist_2>]
-----------[<statements_2>]
……
……
------[Case Else]
-----------[<statements_n>]
End Select
-----------------------------
testexpression是测试表达式，下面的每个expressionlist是它的可能取值
情况语句的执行过程是：先对<testexpression>求值，然后顺序测试该值与哪个Case子句中的表达式表表列<expressionlist_i>相匹配；如果找到了，则执行该Case分支有关的语句块，然后把控制转移到End Select后面的语句；如果没有找到，则执行Case Else分支有关的语句，然后把控制转移到End Select后面的语句。