判断结构select...case语句

对于多选一的情况时，使用select...case语句可以让代码更简单、易读。下面我们就先介绍基础知识，然后结合示例来学习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语句示例

下面我们将上节评分的示例使用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结束。