首先看看Select Case的语法如下。

　　[Select Case语句的语法]

　　Select Case 测试表达式

　　Case 条件表达式1

　　语句块1

　　Case 条件表达式2

　　语句块2

　　Case 条件表达式3

　　语句块3

　　......

　　Case 条件表达式n

　　语句块n

　　Case Else

　　语句块Else

　　End Select.

　　注意哦，这种语句是在VBA代码当中使用的。下面提供例子，其功能用来评判成绩的等级的，分别为优秀、良好、及格、不及格等情况。

　　If [a1].Value = "" Then

　　MsgBox "A1单元格没有输入数字。"

　　Exit Sub ' 退出程序

　　End If

　　Select Case [a1].Value

　　Case Is < 30

　　MsgBox "差"

　　Case Is < 60

　　MsgBox "不及格"

　　Case Is < 80

　　MsgBox "及格"

　　Case Is < 90

　　MsgBox "良好"

　　Case Else

　　MsgBox "优秀"

　　End Select