復(fù)習(xí)考試模塊第二次課

1、 VBA程序流程控制語句1. 語句：是能夠完成某項(xiàng)操作的一條命令。 VBA程序就是由大量語句串命令構(gòu)成。 2.VBA程序語句的分類：（1）聲明語句：用于給變量、常量或過程定義命名（2）執(zhí)行語句：用于執(zhí)行程序中的某些操作。執(zhí)行語句的三種結(jié)構(gòu)（1）順序結(jié)構(gòu)：按照語句順序順次執(zhí)行。（2）條件結(jié)構(gòu)：又被稱為選擇結(jié)構(gòu)，根據(jù)條件選擇執(zhí)行路徑（3）循環(huán)結(jié)構(gòu)：重復(fù)執(zhí)行某一段程序語句。2.賦值語句 是為變量指定一個(gè)具體值或表達(dá)式，通常用等號(hào) （）連接。 格式：Let 變量名值或表達(dá)式（其中Let可省略） 例：Dim a As Integer a=56 表示：定義一個(gè)整形變量，變量名稱為a，給a賦值（取 值）為5

2、63.條件語句根據(jù)條件表達(dá)式的值選擇程序運(yùn)行語句。 格式：If 條件表達(dá)式 then 語句1 else 語句2 end if例：Dim a As integer, b As integer, c As integer a=8： b=6 if ab then c=a-b else c=a+b 程序運(yùn)行結(jié)果為：c= end if Select caseend select 結(jié)構(gòu)格式： Select case 表達(dá)式 case 表達(dá)式1 語句 1 case 表達(dá)式2 語句 2 case 表達(dá)式n 語句 n case else 以上情況均不符合時(shí)執(zhí)行的語句 end select 例：Select ca

3、se x case 1 Print “one” case 2 Print “two” case 3 Print “three” case else Print “bed” end select 三個(gè)條件函數(shù) IIf 函數(shù) 格式：IIf (條件式，表達(dá)式1，表達(dá)式2) 例：aIIf（8=6,x+y,x-y） Switch 函數(shù) 格式：switch (條件式1，表達(dá)式1,條件式2,表達(dá)式2) 注意：條件式和表達(dá)式必須對(duì)應(yīng) Choose 函數(shù)格式：choose (索引式，選項(xiàng)1,選項(xiàng)2,選項(xiàng)3) 索引式值為1，結(jié)果為“選項(xiàng)1”的值，索引式值為2，結(jié)果為“選項(xiàng)2”的值，以此類推。4. 循環(huán)語句循環(huán)語句

4、可以實(shí)現(xiàn)重復(fù)執(zhí)行一行或幾行程序代碼 ForNext 語句格式： for 循環(huán)變量初值 to 終值 step 步長 循環(huán)體 條件語句序列 exit for 結(jié)束條件語句序列 next 循環(huán)變量例：s=0 for i=1 to 10 step 2 s=s+1 i=i*2 next i 程序結(jié)果：s= i= Do while(until).loop語句格式1： do while 條件式 循環(huán)體 條件語句序列 exit for 結(jié)束條件語句序列 loop例：Dim k As integer, n As integer, m As integer 2005.4 n=10: m=1: k=1 do whi

5、le k=n m=m*2 k=k+1 loop MsgBox m 程序運(yùn)行,消息框輸出的結(jié)果為：注意：do untilloop語句和do whileloop語句正好相反，當(dāng)條件式 值為假時(shí)，執(zhí)行循環(huán)體，直到條件式值為真時(shí)停止循環(huán)。格式2：do 循環(huán)體 條件語句序列 exit for 結(jié)束條件語句序列 loop while（until）條件式 過程調(diào)用和參數(shù)傳遞1.過程調(diào)用 子過程的調(diào)用格式： call 子過程名（） 或 子過程名注意：使用call,參數(shù)括號(hào)必須有，不使用call，括號(hào)必須去掉 函數(shù)過程調(diào)用格式: 函數(shù)名()例：function m(x as integer,y as integ

6、er)as integer m=iif(xy,x,y) end function private sub f( ) dim a as integer,b as integer a=1 b=2 MsgBox m(a,b) end sub 程序運(yùn)行結(jié)果顯示為：2.參數(shù)傳遞ByVal 傳值ByRef 傳址常用操作方法：1.打開和關(guān)閉窗體2.打開和關(guān)閉報(bào)表3.輸入框（inputbox）4.消息框（msgbox）1.程序執(zhí)行后，i的值是（）i=1S=0Do S=S+i i+Loop Until S=15A 5 B 6 C 15 D 82執(zhí)行下列程序段后，i的值為（）,s的值為（）S=0For i= 1 to 20 step 2S=S+1i=i*4Next i3.程序運(yùn)行后，彈出的消息框中a的值為（）a=1For i=1to 3 select case I case 1,3 a=a+1 case 2,4 a=a+2 end select next IMsgbox a歷年考題1.下列case語句中錯(cuò)誤的是（）2007.4 A.Case 0 to10 B.case iS10 C.Case is10 and is102.下列不是分支結(jié)構(gòu)的語句是（）2007.9 A.ifthenend if B.whilew end C.ifthenelseend if D.selectcaseend