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，不是表述具体情况的值或者范围。