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
(责任编辑:admin)
- ·关于 Partition 函数在分组查询中的应
- ·Access算术运算符的含义和说明表
- ·mid函数的另类用法
- ·access制作程序运行进度框
- ·Function与Sub的异同(函数调用)
- ·Access判断某个数值是否为某个数据类型
- ·select case后面语句块的值的四种格式
- ·vba条件语句的两种表示方法
- ·Access几种数据类型初始化的值
- ·Access vba null与""空字符串的区别
- ·access vba 数据类型表
- ·Access变量的命名规则
- ·Access中EXIT Sub与End Sub的区别
- ·Access vba中参数前关键字ByRef和ByVal
- ·Access列表框快速全选的技巧【最快】
- ·vba函数的数据类型强制转换