VB中如何使用select case语句

近来,在网上找了一些关于VB选择语句的代码样例讲解,不过可惜关于Select case的讲解甚少(可能是查找方向有误),遂,作此,如有不足还望评论去添补

语法

Select Case <指示变量或表达式>

Select Case不是循环语句,是条件选择语句,与IF...ELSEIF...ELSEIF...END IF类似

<默认语句组,以上语句组都因情形不符合实际时执行>End Select其中,表述情形的关键字,有IS和TO,多个情形要并列在一起时,使用逗号(英文)连接。当省略Case Else语句并且语句组都因情形不符合实际时,语句的执行,会直接到达End Select。如果在执行语句的时候,有需要跳过没有必要再执行的语句而直接结束Select Case的情况时,请使用exit select

Option explicit
dim digital,hours,minutes,seconds,dn,ctime

digital = time
hours    =  Hour(digital)
minutes  =  Minute(digital)
seconds  =  second(digital)

Select Case True
Case hours<6
dn= "it is time to dream!"
Case hours>=6
dn= "get up and say good morning!"
Case hours>12 & hours<14
dn= "let's have a rest!"
Case else
	dn="I don't know what to do!"
End Select
msgbox dn

注意在“<指示变量或表达式>”不是True或False关键字时,逻辑运算(And、Or、Not)会没有意义。因为逻辑运算的结果是True或False,不是表述具体情况的值或者范围。

 

 

 

 

已标记关键词 清除标记
相关推荐
©️2020 CSDN 皮肤主题: 技术工厂 设计师:CSDN官方博客 返回首页