首先看看SelectCase的语法如下

发布网友发布时间：2024-07-04 00:40

共1个回答

热心网友时间：2024-07-04 11:34

　　首先看看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 "优秀"