VBA程序控制結構判斷結構本講內容If語句SelectCase語句程序控制結構程序一般是按照書寫的順序執行的，但有時候需要按照不同的條件執行不同的操作，這就是流程控制VBA中程序的控制結構分為：順序結構選擇結構循環結構順序結構AB選擇結構PAB循環結構PA判斷語句判斷語句用來根據條件表達式的結果控制程序的流程If語句SelectCase語句★If語句行結構

If<條件>Then<語句1>[Else<語句2>]塊結構

If<條件>Then <語句塊1>

[Else <語句塊2>] EndIfIf語句流程圖：語句1語句2表達式TrueFalseIf語句實例：設計一個找出兩個數中更大數的程序，界面設計如下圖所示。在B1和B2單元格分別輸入任意一個數，單擊“更大數”圓角矩形時，在B3單元格輸出兩數中更大的數If語句實踐1：設計一個找出三個數中最大數的程序，界面設計如下圖所示。在B1、B2和B3單元格分別輸入任意一個數，單擊“最大數”圓角矩形時，在B4單元格輸出三個數中更大的數If語句實踐2：編寫一個過程，用輸入框InputBox函數輸一個學生的成績，然后判斷此學生的成績是否合格，并將評判結果以“成績合格”或“成績不合格”用消息框顯示If語句實例：設計一個“健康秤”程序，界面設計如下圖所示。單擊“健康狀況”按鈕，根據公式：標準體重=身高-105

判斷某人的健康狀況。體重高于標準體重*1.1為偏胖，在B3單元格輸出“偏胖，注意節食”；體重低于標準體重*0.9為偏瘦，在B3單元格輸出“偏瘦，增加營養”；其它則在B3單元格輸出“正常，繼續保持”If<條件1>Then <語句1>Else If<條件2>Then <語句2> Else <語句3> EndIfEndIf嵌套的If語句If語句實踐3：編寫一個過程，用InputBox函數輸入某門課程的百分制成績x，然后將其按下表的評定條件轉換成等級制成績y，并將等級制成績用MsgBox函數輸出優良中及格不及格90≤x≤10080≤x<9070≤x<8060≤x<70x<60分支較多時，嵌套的If語句太煩？If語句 If<條件1>Then <語句塊1>

ElseIf<條件2>Then <語句塊2> ……

[ElseIf<條件n>Then <語句塊n>] [Else <語句塊n+1>] EndIfIf語句ElseIf語句的流程圖：語句2假真語句1表達式2表達式3語句3語句4真假假真表達式1If語句重新實現“實踐3”？If語句實踐4：根據杭州的氣候特點，通常認定3月~5月為春季，6月~8月為夏季，9月~11月為秋季，12月~次年2月為冬季。編寫一個程序，在B1單元格輸入當前的月份，單擊“判定”按鈕時，在B2單元格以“*月是*季”的形式輸出結果SelectCase語句SelectCase<測試表達式> Case<表達式值1> <語句塊1> ……

[Case<表達式值n> <語句塊n>]

[CaseElse <語句塊n+1>]EndSelect<測試表達式>:算術表達式或字符表達式，測試對象<表達式值>:下列格式中的一個或多個(,)精確表示：<表達式1>[,<表達式2>……]，如：1,3,5,7,9范圍表示：<表達式1>To<表達式2>，如："A"To"Z"關系表示：Is<關系運算符><表達式>，如：Is>=60功能：根據測試表達式的值，從多個語句塊中選擇符合條件的一個語句塊執行！SelectCase語句重新實現“實踐4”？SelectCase語句實踐：使用SelectCase語句重新實現“實踐3”程序？SelectCase語句實踐：某商場舉行周年慶購物促銷活動，活動規則如下：金額500元以下不享受優惠金額500元及以上且小于2000元優惠10%金