select case后面语句块的值的四种格式

（1）单一数值或一行并列的数值，用来与“表达式”的值相比较。成员间以逗号隔开。
（2）由关键字To分隔开的两个数值或表达式之间的范围。前一个值必须比后一个值要小，否则没有符合条件的情况。字符串的比较是从它们的第一个字符的ASCII码值开始比较的，直到分出大小为止。
（3）关键字Is接关系运算符，如<>、<=、=、>=或>，后面再接变量或精确的值。
（4）关键字Case Else后的表达式，是在前面的Case条件都不满足时执行的。

<表达式列表>与<变量或表达式>                 例如：
    表达式                                   "A"
    一组枚举表达式(用逗号分隔)             2,4,6,8      
    表达式1  To  表达式2                   60  To  100 
    Is  关系运算符表达式                   Is  < 60

请看下面的示例：
Private Sub Form_Click()
   Dim iMonth As Integer          ‘定义月份变量
    iMonth = 1                      ’为变量赋值   
      Select Case iMonth         ' 计算月份
    Case Is <= 3                   '月份为1、2、3
    　MsgBox("春天")
    Case 4 To 6                    '月份为4、5、6
    　MsgBox("夏天")
    Case 7, 8, 9                     '月份为7、8、9
    　MsgBox("秋天")
    Case Else                       '月份为10、11、12
    　MsgBox("冬天")
    End Select
End Sub