10-程序流程控制——Select Case語句介紹

excel交流

Select Case語句同IF語句一樣，也是條件判斷的語句。它的功能也可以用IF語句來完成。但是，當(dāng)程序的條件太多，用IF語句來判斷的話就存在一些不足了，比如程序是否美觀？是否便于閱讀？程序的執(zhí)行效率等等。Select Case語句在執(zhí)行的效率上，同IF語句相比，肯定是要快得多。

[Select Case語句的語法]
　　Select Case 測試表達(dá)式
     　　 Case 條件表達(dá)式1
           　　 語句塊1
     　　 Case 條件表達(dá)式2
         　　   語句塊2
     　　Case 條件表達(dá)式3
         　　   語句塊3
    　　 ......
  　　   Case 條件表達(dá)式n
       　　     語句塊n
    　　 Case Else
       　　     語句塊Else
     End Select.

當(dāng)某個條件表達(dá)式與測試表達(dá)式相匹配時，則執(zhí)行其后的語句塊，否則執(zhí)行Case Else后的語句塊，然后結(jié)束Select Case塊的執(zhí)行。同IF語句一樣，可以不要Case Else語句。
“如對A1單元格的學(xué)生成績進(jìn)行等級評定，小于等于30分的為差，30分到59分的為不及格，60分到79分的為及格，80分到89分的為良好，90到100分的為優(yōu)秀�！庇肧elect Case語句來解決就是：

1. 
   
2. Sub test()
   
3.   If [a1].Value = "" Then
   
4.       MsgBox "A1單元格沒有輸入數(shù)字。"
   
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 "優(yōu)秀"
    
18.   End Select
    
19. End Sub
    

復(fù)制代碼