模块与VBA编程基础讲解材料.pptVIP

说明： （1）执行过程是先计算Select Case后的变量或表达式的值，然后从上至下逐个比较，决定执行哪一个语句块。如果有多个Case后的表达式列表与其相匹配，则只执行第一个Case后的语句块。 （2）Select Case后的变量或表达式只能是数值型或字符型表达式。 （3）Case表达式可以是： ? 单一数值： 5 ? 用逗号分隔的一组枚举表达式： 2, 4, 6, 8 ? 表达式1 To 表达式2 60 to 100 Is 关系运算符表达式 Is 60 例8.8使用Select Case-End Select完成定义过程Pro3 功能：如果当前系统时间为8至12点钟之间，在立即窗口显示“上午好！”，系统时间为12点至18点，则显示“下午好！”，其他时间均显示“欢迎下次光临！” Sub Proe3() Select Case Hour(Time()) Case 8 To 11 Debug.Print “上午好！” Case 12 to 17 Debug.Print “下午好！” Case Else