10-程序流程控制——Select Case语句介绍

excel交流

Select Case语句同IF语句一样，也是条件判断的语句。它的功能也可以用IF语句来完成。但是，当程序的条件太多，用IF语句来判断的话就存在一些不足了，比如程序是否美观？是否便于阅读？程序的执行效率等等。Select Case语句在执行的效率上，同IF语句相比，肯定是要快得多。

[Select Case语句的语法]
　　Select Case 测试表达式
     　　 Case 条件表达式1
           　　 语句块1
     　　 Case 条件表达式2
         　　   语句块2
     　　Case 条件表达式3
         　　   语句块3
    　　 ......
  　　   Case 条件表达式n
       　　     语句块n
    　　 Case Else
       　　     语句块Else
     End Select.

当某个条件表达式与测试表达式相匹配时，则执行其后的语句块，否则执行Case Else后的语句块，然后结束Select Case块的执行。同IF语句一样，可以不要Case Else语句。
“如对A1单元格的学生成绩进行等级评定，小于等于30分的为差，30分到59分的为不及格，60分到79分的为及格，80分到89分的为良好，90到100分的为优秀。”用Select Case语句来解决就是：

1. 
   
2. Sub test()
   
3.   If [a1].Value = "" Then
   
4.       MsgBox "A1单元格没有输入数字。"
   
5.       Exit Sub '     退出程序
   
6.   End If
   
7.   Select Case [a1].Value
   
8.       Case 0 To 29
   
9.           MsgBox "差"
   
10.       Case 30 To 59
    
11.           MsgBox "不及格"
    
12.       Case 60 To 79
    
13.           MsgBox "及格"
    
14.       Case 80 To 89
    
15.           MsgBox "良好"
    
16.       Case Else
    
17.           MsgBox "优秀"
    
18.   End Select
    
19. End Sub
    

复制代码