VBA程序流程控制語句課件

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

1.熟練掌握行if語句、塊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語句、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程序流程控制語句1執(zhí)行語句分為3種結(jié)構(gòu)：順序結(jié)構(gòu)：順序結(jié)構(gòu)是最基本的程序結(jié)構(gòu)，按程序中語句編寫的先后順序逐條執(zhí)行。條件結(jié)構(gòu)：根據(jù)條件選擇運(yùn)行的結(jié)果。循環(huán)結(jié)構(gòu)：對程序中的某段代碼重復(fù)執(zhí)行時，可以使用循環(huán)結(jié)構(gòu)。2分支語句Goto語句形式:GoTo{標(biāo)號|行號}

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

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

Lp:………………gotolp

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

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

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

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

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

形式:

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

語句塊n+1] EndIf7條件測試語句

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

使用selectcase…..語句來實(shí)現(xiàn)的程序段如下：SelectCasexCase90to100Print"優(yōu)秀"Case80to89Print"良好"Case70to79Print"中等"Case60to69Print"及格"CaseElsePrint"不及格"EndSelect10條件測試語句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條件測試語句

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

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

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

語句塊

[ExitFor]

語句塊

Next循環(huán)變量

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

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

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

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

Do{While|Until}<條件>

語句塊

[ExitDo]

語句塊

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

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

（3）在循環(huán)體內(nèi)一般應(yīng)有一個專門用來改變條件表達(dá)式中變量的語句，以使隨著循環(huán)的執(zhí)行，條件趨于不成立（或成立），最后達(dá)到退出循環(huán)。（4）語句ExitDo的作用是退出它所在的循環(huán)結(jié)構(gòu)，它只能用在DO/Loop結(jié)構(gòu)中，并且常常是同選擇結(jié)構(gòu)一起出現(xiàn)在循環(huán)結(jié)構(gòu)中，用來實(shí)現(xiàn)當(dāng)滿足某一條件時提前退出循環(huán)。22【例】用Do…Loop循環(huán)結(jié)構(gòu)實(shí)現(xiàn)求和sum=1+2+3+…+100。編寫代碼如下：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)語句循環(huán)的嵌套——多重循環(huán)結(jié)構(gòu)

如果在一個循環(huán)內(nèi)完整地包含另一個循環(huán)結(jié)構(gòu)，則稱為多重循環(huán)，或循環(huán)嵌套，嵌套的層數(shù)可以根據(jù)需要而定，嵌套一層稱為二重循環(huán)，嵌套二層稱為三重循環(huán)。上面介紹的幾種循環(huán)控制結(jié)構(gòu)可以相互嵌套，下面是幾種常見的二重嵌套形式：29循環(huán)語句（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)語句例如：打印九九乘法表.

Fori=1To9