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

　　[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.

　　注意哦，這種語句是在VBA代碼當(dāng)中使用的。下面提供例子，其功能用來評判成績的等級的，分別為優(yōu)秀、良好、及格、不及格等情況。

　　If [a1].Value = "" Then

　　MsgBox "A1單元格沒有輸入數(shù)字。"

　　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 "優(yōu)秀"

　　End Select