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

VBA程序控制結(jié)構(gòu)判斷結(jié)構(gòu)本講內(nèi)容If語(yǔ)句SelectCase語(yǔ)句程序控制結(jié)構(gòu)程序一般是按照書(shū)寫(xiě)的順序執(zhí)行的，但有時(shí)候需要按照不同的條件執(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判斷語(yǔ)句判斷語(yǔ)句用來(lái)根據(jù)條件表達(dá)式的結(jié)果控制程序的流程If語(yǔ)句SelectCase語(yǔ)句★If語(yǔ)句行結(jié)構(gòu)

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

If<條件>Then <語(yǔ)句塊1>

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

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

ElseIf<條件2>Then <語(yǔ)句塊2> ……

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

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

[CaseElse <語(yǔ)句塊n+1>]EndSelect<測(cè)試表達(dá)式>:算術(shù)表達(dá)式或字符表達(dá)式，測(cè)試對(duì)象<表達(dá)式值>:下列格式中的一個(gè)或多個(gè)(,)精確表示：<表達(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ù)測(cè)試表達(dá)式的值，從多個(gè)語(yǔ)句塊中選擇符合條件的一個(gè)語(yǔ)句塊執(zhí)行！SelectCase語(yǔ)句重新實(shí)現(xiàn)“實(shí)踐4”？SelectCase語(yǔ)句實(shí)踐：使用SelectCase語(yǔ)句重新實(shí)現(xiàn)“實(shí)踐3”程序？SelectCase語(yǔ)句實(shí)踐：某商場(chǎng)舉行周年慶購(gòu)物促銷(xiāo)活動(dòng)，活動(dòng)規(guī)則如下：金額500元以下不享受優(yōu)惠金額500元及以上且小于2000元優(yōu)惠10%金