对于多选一的情况时,使用select...case语句可以让代码更简单、易读。下面我们就先介绍基础知识,然后结合示例来学习select...case语句。
在学习过if...then语句后,同为判断结构的select...case语句相对容易理解,直接来看一下select...case的语法格式。
Select Case 测试表达式
Case 表达式列表1
语句序列1
Case 表达式列表2
语句序列2
... ....
Case 表达式列表n
语句序列n
End Select
其中select case后的测试表达式通常是一个数值型或字符型变量。case后的表达式列表就是变量符合的条件。语句序列就是符合case条件后,执行的结果。
该语句结构中主要变化的只是表达式列表。(有三种简单书写规则在示例完后说明。)
下面我们将上节评分的示例使用select case语句来书写代码
确定规则小于0分和大于100分的为输入错误,100分为满分,90分以上为优秀,80分以上为良好,60分以上为及格,其他为不及格。
下面我们对代码中select....case语句做简要的说明,最后end select结束,具体代码如下:
Sub test1()
Dim i As Integer, j As String
i = InputBox("请输入分数")
Select Case i
Case Is < 0, Is > 100
j = "分数输入错误"
Case 100
j = "满分"
Case 90 To 99
j = "优秀"
Case 80 To 89
j = "良好"
Case 60 To 79
j = "及格"
Case Else
j = "不及格"
End Select
MsgBox j
End Sub
在select case语句开始,变量i就是测试表达式。
case后即不同条件表达式列表,可以根据条件对应查看。在示例中就使用了3种方式。
1、罗列具体值,如示例中的case 100。如果有更多值用英文逗号间隔即可。
2、表达式A to 表达式B,通常表示一个数据范围,如示例中的case 90 to 99
3、IS比较运算符表达式,使用比较符号如< > = 时,如示例中的 case is <0 ,>100等,在输入过程中可以只输入<0,>100即可,程序会自动添加IS。
最后将三种方式混合同时使用也可以,以英文逗号间隔即可。
select...case语句的主要点时case表达式列表的三种书写方式,包括罗列值、表达式A TO 表达式B 、IS比较运算符表达式,通过表达式来确定我们的判断规则,注意规则不要相互冲突。
select..case语句最后需要用end select结束。
本文分享自 Excel和Access学习笔记 微信公众号,前往查看
如有侵权,请联系 cloudcommunity@tencent.com 删除。
本文参与 腾讯云自媒体同步曝光计划 ,欢迎热爱写作的你一起参与!