VBA編程及應(yīng)用基礎(chǔ)課件1 選擇結(jié)構(gòu)

VBA程序控制結(jié)構(gòu)判斷結(jié)構(gòu)本講內(nèi)容If語句SelectCase語句程序控制結(jié)構(gòu)程序一般是按照書寫的順序執(zhí)行的，但有時候需要按照不同的條件執(zhí)行不同的操作，這就是流程控制VBA中程序的控制結(jié)構(gòu)分為：順序結(jié)構(gòu)選擇結(jié)構(gòu)循環(huán)結(jié)構(gòu)順序結(jié)構(gòu)AB選擇結(jié)構(gòu)PAB循環(huán)結(jié)構(gòu)PA判斷語句判斷語句用來根據(jù)條件表達(dá)式的結(jié)果控制程序的流程If語句SelectCase語句★If語句行結(jié)構(gòu)

If<條件>Then<語句1>[Else<語句2>]塊結(jié)構(gòu)

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

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

判斷某人的健康狀況。體重高于標(biāo)準(zhǔn)體重*1.1為偏胖，在B3單元格輸出“偏胖，注意節(jié)食”；體重低于標(biāo)準(zhǔn)體重*0.9為偏瘦，在B3單元格輸出“偏瘦，增加營養(yǎng)”；其它則在B3單元格輸出“正常，繼續(xù)保持”If<條件1>Then <語句1>Else If<條件2>Then <語句2> Else <語句3> EndIfEndIf嵌套的If語句If語句實踐3：編寫一個過程，用InputBox函數(shù)輸入某門課程的百分制成績x，然后將其按下表的評定條件轉(zhuǎn)換成等級制成績y，并將等級制成績用MsgBox函數(shù)輸出優(yōu)良中及格不及格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表達(dá)式2表達(dá)式3語句3語句4真假假真表達(dá)式1If語句重新實現(xiàn)“實踐3”？If語句實踐4：根據(jù)杭州的氣候特點(diǎn)，通常認(rèn)定3月~5月為春季，6月~8月為夏季，9月~11月為秋季，12月~次年2月為冬季。編寫一個程序，在B1單元格輸入當(dāng)前的月份，單擊“判定”按鈕時，在B2單元格以“*月是*季”的形式輸出結(jié)果SelectCase語句SelectCase<測試表達(dá)式> Case<表達(dá)式值1> <語句塊1> ……

[Case<表達(dá)式值n> <語句塊n>]

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