admin 管理员组文章数量: 1087139
2024年4月26日发(作者：安卓游戏框架下载)
Select Case语句也是条件语句之一，而且是功能最强大的条件语句。它主要用于多条件判断，
而且其条件设置灵活、方便，在工作中使用频率极高。本节介绍Select Case语句的语法及
应用案例．
Select Case语句的语法如下：
Select Case testexpression
[Case expressionlist-n
[statements-n]] ...
[Case Else
[elsestatements]]
End Select
Select Case语句包括四部分，每部分详细含义如表38-1所示。
表38-1 Select Case语句各部分含义
部 分
描 述
testexpression
必要参数。任何数值表达式或字符串表达式
如果有 Case 出现，则为必要参数。其形式为 expression，expression To
expression，Is comparisonoperator。expression的一个或多个组成的分界列
表。To关键字可用来指定一个数值范围。如果使用 To 关键字，则较小的数
expressionlist-n
值要出现在To 之前。使用 Is 关键字时，则可以配合比较运算符
（除 Is 和 Like 之外）来指定一个数值范围。如果没有提供，则 Is 关键字会
被自动插入
statements-n
elsestatements
可选参数。一条或多条语句，当testexpression匹配expressionlist-n中的任
何部分时执行
可选参数。一条或多条语句，当testexpression不匹配Case子句的任何部分
时执行
在以上语法列表中，省略号代表可以使用多个条件。只要有一个Case就需要有一个
statements-n，表示条件及符合条件时的执行条件。
其中elsestatements表示不符合指定条件时的执行语句，是可选参数。可以忽略
elsestatements，也可以执行一条或者一组语句，为了让程序能够处理一些不可预见的情况，
尽量使用elsestatements语句处理不符合条件时该如何回应。
在Select Case的多个参数中，最复杂的是expressionlist-n部分，它有多种表达形式，包括：
lExpression——直接声明一个条件值，例如5
lexpression To expression——声明一个条件的范围，例如5-10
lIs comparisonoperator——声明一种比较方式，例如is >5
下面的实例可以展示参数中expressionlist-n部分的多种表达形式。
实例1：多条件时间判断
根据当前的时间判断是上午、中午，还是下午、晚上、午夜。
要求中条件比较多，使IF…Then…需要多层嵌套，而Select Case语句会更简单。代码如下：
___________________________________________________
Sub 时间()
Dim Tim As Byte, msg As String
Tim = Hour(Now)
Select Case Tim
Case 1 To 11
msg = "上午"
Case 12
msg = "中午"
Case 13 To 16
msg = "下午"
Case 17 To 20
msg = "晚上"
Case 23, 24
msg = "午夜"
End Select
MsgBox "现在是：" & msg
End Sub
__________________________________________
以上代码中，“Case 1 To 11”表示当前时间在1点到11点，用于限定一个范围；“Case 12”是
表示当前时间为12点时返回True，可用于限制一个具体的值，或者多个值。如果需要罗列
多个具体的值，那么需要在每个值之间使用逗号分隔，例如“Case 23, 24”。
本例中不存在例外的情况，所以忽略“Case Else”语句。
实例2：根据成绩返回评语
如果成绩小于60则返回“不及格”，60到80之间则返回“良”，80到99则返回“优”，100分
则返回“满分”，如果成绩大于100则是输入了错误值。利用一个Function过程来处理，其代
码如下：
________________________________________
Function 成绩(rng As Range)
Select Case rng
Case Is < 0, Is > 100
成绩 = "输入错误"
Case Is < 60
成绩 = "不及格"
Case 60
成绩 = "及格"
Case 60 To 80
成绩 = "良"
Case 81 To 99
成绩 = "优"
Case Else
成绩 = "满分"
End Select
End Function
_____________________________________
版权声明：本文标题：VBA中的Select Case语句 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/p/1714062024a663884.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论