VBA程序流程控制語(yǔ)句課件

本節(jié)內(nèi)容及要求：

1.熟練掌握行if語(yǔ)句、塊if結(jié)構(gòu)、SelectCase情況選擇結(jié)構(gòu)有使用，掌握選擇的嵌套結(jié)構(gòu)；

2.熟練掌握實(shí)現(xiàn)循環(huán)結(jié)構(gòu)的For/Next循環(huán)結(jié)構(gòu)及ExitFor語(yǔ)句、Do/Loop循環(huán)結(jié)構(gòu)的使用，掌握多重循環(huán)。本章重點(diǎn)：

選擇結(jié)構(gòu)及循環(huán)結(jié)構(gòu)的實(shí)現(xiàn)及其應(yīng)用本章難點(diǎn)：選擇的嵌套及多重循環(huán)結(jié)構(gòu)VBA程序流程控制語(yǔ)句1執(zhí)行語(yǔ)句分為3種結(jié)構(gòu)：順序結(jié)構(gòu)：順序結(jié)構(gòu)是最基本的程序結(jié)構(gòu)，按程序中語(yǔ)句編寫(xiě)的先后順序逐條執(zhí)行。條件結(jié)構(gòu)：根據(jù)條件選擇運(yùn)行的結(jié)果。循環(huán)結(jié)構(gòu)：對(duì)程序中的某段代碼重復(fù)執(zhí)行時(shí)，可以使用循環(huán)結(jié)構(gòu)。2分支語(yǔ)句Goto語(yǔ)句形式:GoTo{標(biāo)號(hào)|行號(hào)}

作用是無(wú)條件地轉(zhuǎn)移到標(biāo)號(hào)或行號(hào)指定的那行語(yǔ)句.

標(biāo)號(hào)是一個(gè)字符序列,行號(hào)是一個(gè)數(shù)字序列。例如：

Lp:………………gotolp

3條件測(cè)試語(yǔ)句2.If…Then…Else語(yǔ)句(雙分支結(jié)構(gòu))

If<表達(dá)式>Then<語(yǔ)句塊1>Else<語(yǔ)句塊2>EndIf

If<表達(dá)式>Then<語(yǔ)句1>Else<語(yǔ)句2>

雙分支選擇結(jié)構(gòu)執(zhí)行過(guò)程條件N語(yǔ)句序列1EndIf后面的語(yǔ)句Y語(yǔ)句序列25條件測(cè)試語(yǔ)句例如：輸出x,y兩個(gè)中值較大的一個(gè)值。IFX>YThenPrintXElsePrintYEndIf也可以寫(xiě)成如下的單行形式：

IIF(X>Y,PrintX,PrintY)6條件測(cè)試語(yǔ)句If…Then…ElseIf語(yǔ)句(多分支結(jié)構(gòu))

形式:

If<表達(dá)式1>Then <語(yǔ)句塊1> ElseIf<表達(dá)式2>Then <語(yǔ)句塊2> … [Else

語(yǔ)句塊n+1] EndIf7條件測(cè)試語(yǔ)句

例：輸入一學(xué)生成績(jī)，評(píng)定其等級(jí)。方法是：90~100分為“優(yōu)秀”，80~89分為“良好”，70~79分為“中等”，60~69分為“及格”，60分以為“不合格”使用IF語(yǔ)句實(shí)現(xiàn)的程序段如下：Ifx>=90thenPrint"優(yōu)秀"ElseIfx>=80ThenPrint"良好"ElseIfx>=70ThenPrint"中等"ElseIfx>=60ThenPrint"及格"ElsePrint"不及格"EndIf8條件測(cè)試語(yǔ)句例如：將例

使用selectcase…..語(yǔ)句來(lái)實(shí)現(xiàn)的程序段如下：SelectCasexCase90to100Print"優(yōu)秀"Case80to89Print"良好"Case70to79Print"中等"Case60to69Print"及格"CaseElsePrint"不及格"EndSelect10條件測(cè)試語(yǔ)句5.選擇結(jié)構(gòu)的嵌套下面是兩種正確的嵌套形式：（1）

IF<條件1>Then…..IF<條件2>Then……Else…..EndIf….Else….IF<條件3>Then…..Else…..EndIf…..EndIF（2）IF<條件1>Then…..SelectCase…Case……IF<條件2>Then……Else…..EndIf……Case….…..EndSelect….EndIF11條件測(cè)試語(yǔ)句

注意：只要在一個(gè)分支內(nèi)嵌套，不出現(xiàn)交叉，滿足結(jié)構(gòu)規(guī)則，其嵌套的形式將有很多種，嵌套層次也可以任意多。對(duì)于多層IF嵌套結(jié)構(gòu)中，要特別注意IF與Else的配對(duì)關(guān)系，一個(gè)Else必須與IF配結(jié)，配對(duì)的原則是：在寫(xiě)含有多層嵌套的程序時(shí)，建議使用縮進(jìn)對(duì)齊方式，這樣容易閱讀和維護(hù)。13循環(huán)語(yǔ)句循環(huán)結(jié)構(gòu)

1.For循環(huán)語(yǔ)句(一般用于循環(huán)次數(shù)已知)形式：

For循環(huán)變量＝初值to終值[Step步長(zhǎng)]

語(yǔ)句塊

[ExitFor]

語(yǔ)句塊

Next循環(huán)變量

>0初值<終值=1時(shí),可省略<0初值>終值=0死循環(huán)

步長(zhǎng)14循環(huán)語(yǔ)句循環(huán)次數(shù)例:ForI=2To13Step3PrintI,NextIPrint“I=“,I循環(huán)執(zhí)行次數(shù)：4輸出I的值分別為:25811出了循環(huán)輸出為:I=1415【例】求階乘n！循環(huán)語(yǔ)句17

編寫(xiě)程序代碼。PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimresultAsLongresult=1n=CInt(text1.text)Ifn<=0ThenLabel2.Caption="請(qǐng)輸入正整數(shù)！"ExitSub'結(jié)束過(guò)程

EndifFori=1Tonresult=result*iNextiLabel2.Caption=Str(n)+"!="+Str(result)EndSub循環(huán)語(yǔ)句18循環(huán)語(yǔ)句Do…Loop循環(huán)語(yǔ)句形式1：（當(dāng)型循環(huán)）

Do{While|Until}<條件>

語(yǔ)句塊

[ExitDo]

語(yǔ)句塊

Loop19循環(huán)語(yǔ)句條件語(yǔ)句塊語(yǔ)句塊TFExitDo條件語(yǔ)句塊語(yǔ)句塊TFExitDo

DoUntil…Loop執(zhí)行過(guò)程Do…LoopUntil執(zhí)行過(guò)程21循環(huán)語(yǔ)句說(shuō)明：（1）當(dāng)使用While<條件>構(gòu)成循環(huán)時(shí)，當(dāng)條件為“真”，則反復(fù)執(zhí)行循環(huán)體，當(dāng)條件為“假”，則退出循環(huán)。（2）當(dāng)使用Until<條件>構(gòu)成循環(huán)時(shí)，當(dāng)條件為“假”，則反復(fù)執(zhí)行循環(huán)體，直到條件成立，即為“真”時(shí)，則退出循環(huán)。

（3）在循環(huán)體內(nèi)一般應(yīng)有一個(gè)專(zhuān)門(mén)用來(lái)改變條件表達(dá)式中變量的語(yǔ)句，以使隨著循環(huán)的執(zhí)行，條件趨于不成立（或成立），最后達(dá)到退出循環(huán)。（4）語(yǔ)句ExitDo的作用是退出它所在的循環(huán)結(jié)構(gòu)，它只能用在DO/Loop結(jié)構(gòu)中，并且常常是同選擇結(jié)構(gòu)一起出現(xiàn)在循環(huán)結(jié)構(gòu)中，用來(lái)實(shí)現(xiàn)當(dāng)滿足某一條件時(shí)提前退出循環(huán)。22【例】用Do…Loop循環(huán)結(jié)構(gòu)實(shí)現(xiàn)求和sum=1+2+3+…+100。編寫(xiě)代碼如下：23解法二：采用直到型循環(huán)Do…Until…LoopPrivateSubCommand1_Click()DimiAsInteger,sumAsIntegeri=1'計(jì)數(shù)器初值置為1sum=0'累加器初值置為0DoUntili>100sum=sum+ii=i+1LoopLabel2.Caption=Str(sum)EndSub25循環(huán)結(jié)構(gòu)（續(xù)3）【例】利用Do循環(huán)求1+2+…+100和。

DimsumAsInteger,iAsIntegersum=0i=1DoUntili>100Sum=Sum+ii=i+1LoopDebug.Printsum26循環(huán)語(yǔ)句循環(huán)的嵌套——多重循環(huán)結(jié)構(gòu)

如果在一個(gè)循環(huán)內(nèi)完整地包含另一個(gè)循環(huán)結(jié)構(gòu)，則稱(chēng)為多重循環(huán)，或循環(huán)嵌套，嵌套的層數(shù)可以根據(jù)需要而定，嵌套一層稱(chēng)為二重循環(huán)，嵌套二層稱(chēng)為三重循環(huán)。上面介紹的幾種循環(huán)控制結(jié)構(gòu)可以相互嵌套，下面是幾種常見(jiàn)的二重嵌套形式：29循環(huán)語(yǔ)句（1）ForI=….…..ForJ=….….NextJ…..NextI（2）ForI=….…..DoWhile/Until….….Loop…..NextI（3）DoWhile….…..ForJ=….….NextJ…..

Loop（4）DoWhile/Until….…..DoWhile/Until….….Loop…..Loop30循環(huán)語(yǔ)句例如：打印九九乘法表.

Fori=1To9