VBA中 Select Case End Select 判断条件语句的基础知识
时 间:2019-06-29 09:56:05
作 者:浪子心 ID:7270 城市:广州
摘 要:VBA中 Select Case End Select 判断条件语句的基础知识
正 文:
rivate Sub cmdTest_Click() Dim lngValue As Integer lngValue = Val(txtValue) '将文本转换为数字 Select Case lngValue Case 1 '一个变量的判断 lblTip.Caption = "变量为1" Case 2, 3 '二个变量的判断 lblTip.Caption = "变量为2或3" Case 4 To 8 '多个变量的判断 lblTip.Caption = "变量为4到8" Case 9 '一个变量的判断 lblTip.Caption = "变量为9"Case Case Is > 10, Is < 20 '范围值 lblTip.Caption ="大于10 小于20" Case Else '不符合上面的判断 lblTip.Caption = "变量为其他数" End Select End Sub
在select case结构中,如果要表示某个具体的数,可以这样: case 1 如果要表示某几个具体的数,可以这样: case 1, 3, 7 如果要表示某个范围内的数,可以这样: case 3 to 8 '从3到8的所有数,包含3和8 但是,如果要表示的数的范围只有下限没有上限(比如大于3),或者反过来只有上限没有下限(比如小于等于6),这怎么表示呢?这时候就要用到is了: case is > 3 case is <= 6 所以,这个is就跟上面那个to一样,就是个命令词而已,没啥特殊的。如果你非要解释,那它就是代表了这个数(即select case后面那个表达式的值)本身。
Dim number As Integer = 8 Select Case number Case 1 To 5 Debug.WriteLine("1到5之间") Case 6, 7, 8 Debug.WriteLine("可选几项:6,7,8") Case 9 To 10 Debug.WriteLine("9到10") Case Else Debug.WriteLine("其它值") End Select
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)
- 显示文件夹中所有文件的修改时间(04.11)
- 铁路工程管理系统;铁路工程管理小程...(04.10)