安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

VBA中 Select Case End Select 判断条件语句的基础知识

2017-08-19 17:13:00
zstmtony
原创
850

最近不少网友请教我Select Case 的语法问题,实在难以逐个回复,索性就这个VBA Select case语法问题写个简单的?#22363;?/p>



Private 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
如果要表示某?#29238;?#20855;体的数,可以这样:
case 1, 3, 7
如果要表示某个范围内的数,可以这样:
case 3 to 8    '从3到8的所有数,包含3和8
但是,如果要表示的数的范围只有下限没有上限(比如大于3),或者反过来只有上限没有下限(比如小于等于6),这怎么表示呢?这时候就要用到is了:
case is > 3
case is <= 6
所以,这个is就跟上面那个to一样,就是个命令?#35782;?#24050;,没啥特殊的。如果你?#19988;?#35299;释,那它就是代表了这个数(即select case后面那个表达式的值)?#26087;懟?br />



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
分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
内存占用:7.75MB
PHP 执行时间:0.17
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假