【文章內(nèi)容簡介】 +1］ End If 23 （ 2）說明 ? 語句塊 1到語句塊 n+1中只有一個被執(zhí)行，無論哪個被執(zhí)行后，流程都會到 End If后下一條語句去。 ? ElseIF不能寫成 Else If。 ? 當(dāng)多分支中有多個條件同時滿足，則只執(zhí)行第一個與之匹配的語句塊。因此，要注意對多分支的條件的書寫次序，防止某些值被過濾。 ? If 和 End If 必須成對出現(xiàn)。 （ 3）功能 依次測試條件 1到條件 n，當(dāng)條件 i成立時（ i為 1到 n之間的整數(shù)），執(zhí)行語句塊 i，然后執(zhí)行 End If后面的下一條語句；如果所有的條件都不成立，并且 Else 語句塊 n+1 存在，則執(zhí)行語句塊 n+1 24 其流程見圖： 25 【 例 】 輸入某位學(xué)生的百分制成績，要求輸出成績的等級：假設(shè) 90分以上為 A等， 8089分為 B等， 7079分為 C等， 6069為 D等， 60分以下為 E等。 Private Sub Form_Click() Dim Score As Integer Score = InputBox(請輸入學(xué)生的百分制分?jǐn)?shù) ) If Score = 90 Then MsgBox 學(xué)生的成績?yōu)?A等 ElseIf Score = 80 Then MsgBox 學(xué)生的成績?yōu)?B等 ElseIf Score = 70 Then MsgBox 學(xué)生的成績?yōu)?C等 ElseIf Score = 60 Then MsgBox 學(xué)生的成績?yōu)?D等 Else MsgBox 學(xué)生的成績?yōu)?E等 End If End Sub 26 Select Case語句 Select Case語句（又稱為情況語句）。 Select Case語句是根據(jù)一個表達式的值，判斷它的所屬范圍，選擇執(zhí)行不同的語句塊，是多分支選擇的另一種語句實現(xiàn)方法?？梢匀〈鶬f…Then…ElseIf 語句。 （ 1）格式 Select Case 測試表達式 Case 表達式列表 1 語句塊 1 Case 表達式列表 2 語句塊 2 … Case 表達式列表 n 語句塊 n [Case Else 語句塊 n+1] End Select 27 （ 2）功能 根據(jù)測試表達式的值，依次與表達式列表 1到表達式列表 n所描述的“域值”范圍進行比較，如果與表達式列表 i的“域值”范圍相匹配，則選擇執(zhí)行語句塊 i（ i為 1到 n之間的整數(shù)），然后到 End Case后下一條語句去。 如果與所有表達式列表的“域值”范圍都不匹配，并且 Else 語句塊 n+1 存在，則執(zhí)行語句塊 n+1，然后到 End Case后下一條語句去。 28 其流程見圖： 29 （ 3）說明 ① 表達式列表 i是由逗號分隔開的下列 3種成分組成： ? 表達式； ? 表達式 1 To 表達式 2； ? Is關(guān)系表達式 ② 表達式列表 1到表達式列表 n的值與測試表達式的值的類型必須相同。 ③ 如果測試表達式的值與多個表達式列表 i中的“域值”范圍相匹配，則選擇執(zhí)行相匹配的 第一個 Case表達式列表 i后面的語句塊 ④語句塊 1到語句塊 n+1中只有一個被執(zhí)行，無論哪個被執(zhí)行后，流程都會到 End Case后下一條語句去。 ⑤ Select Case和 End Case必須成對出現(xiàn)。 30 【 例 】 某商店進行購物打折優(yōu)惠活動促銷，根據(jù)每位顧客一次性購物的消費額給予不同的折扣，具體方法如下： (1)購物 1500元以上的九五折優(yōu)惠， (2)購物 2022元以上的九折優(yōu)惠， (3) 購物 2500元以上的八五折優(yōu)惠， (4) 購物 4000元以上的八折優(yōu)惠。 程序代碼如下： Private Sub Command1_Click() Dim x As Single, y As Single x = InputBox(請輸入購物金額： ) Select Case x Case Is 1000 Print 不優(yōu)惠 31 y = x Case Is 2022 Print 九五折優(yōu)惠 y = * x Case Is 3000 Print 九折優(yōu)惠 y = * x Case Is 5000 Print 八五折優(yōu)惠 y = * x Case Is = 5000 Print 八折優(yōu)惠 y = * x End Select Print 優(yōu)惠后應(yīng)收款額為： 。 y End Sub 32 也可以用 If…Then…ElseIf 語句實現(xiàn) : Private Sub Form_Click() Dim x As Single, y As Single x = InputBox(請輸入購物金額： ) If x 0 Then Print 輸入的的金額有誤 ElseIf x 1500 Then Print 不優(yōu)惠 y = x ElseIf x 2022 Then Print 九五折優(yōu)惠 y = * x ElseIf x 2500 Then Print 九折優(yōu)惠 y = * x ElseIf x 4000 Then 33 Print 八五折優(yōu)惠 y = * x Else Print 八折優(yōu)惠 y = * x