VBA基础
select case后面语句块的值的四种格式
2013-11-04 17:32:05

(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