第八章執(zhí)行語(yǔ)句

1、運(yùn)算符和表達(dá)式算術(shù)運(yùn)算符算術(shù)運(yùn)算符n+ - * /n整除整除 mod求余求余 乘冪乘冪整除整除n如果操作數(shù)有小數(shù)先四舍五入，后計(jì)算。如果操作數(shù)有小數(shù)先四舍五入，后計(jì)算。對(duì)于對(duì)于.5有些例外，四舍五入的結(jié)果是離有些例外，四舍五入的結(jié)果是離它最近的偶數(shù)。絕對(duì)值小于等于它最近的偶數(shù)。絕對(duì)值小于等于0.5的數(shù)的數(shù)不能作為除數(shù)。因?yàn)椴荒茏鳛槌龜?shù)。因?yàn)?.5會(huì)四舍五入變成會(huì)四舍五入變成離它最近的偶數(shù)離它最近的偶數(shù)0求余求余n如果被除數(shù)是負(fù)數(shù)，余數(shù)也是負(fù)數(shù)，如如果被除數(shù)是負(fù)數(shù)，余數(shù)也是負(fù)數(shù)，如果被除數(shù)是正數(shù)，余數(shù)也是正數(shù)。果被除數(shù)是正數(shù)，余數(shù)也是正數(shù)。n如果有小數(shù)，則四舍五入，規(guī)則同整除。如果有小數(shù)，則四舍

2、五入，規(guī)則同整除。字符串連接運(yùn)算符字符串連接運(yùn)算符n&強(qiáng)制連接為字符串強(qiáng)制連接為字符串n+只有左右都是字符串時(shí)才連接只有左右都是字符串時(shí)才連接運(yùn)算符的優(yōu)先級(jí)（看書(shū)上的表）運(yùn)算符的優(yōu)先級(jí)（看書(shū)上的表）n11*39/2 Mod 3n11*39/2 Mod 3 + truen注意：邏輯值再算術(shù)表達(dá)式里注意：邏輯值再算術(shù)表達(dá)式里,True被當(dāng)被當(dāng)做是做是-1,False被當(dāng)做是被當(dāng)做是0.n=一種是賦值，比如一種是賦值，比如a=10，單獨(dú)出現(xiàn)在，單獨(dú)出現(xiàn)在一行的一行的n=一種是比較運(yùn)算符，相等的，比如性一種是比較運(yùn)算符，相等的，比如性別別=“男男”，和其他語(yǔ)句放在一起，和其他語(yǔ)句放在一起8.4 VBA

3、流程控制語(yǔ)句流程控制語(yǔ)句n賦值語(yǔ)句賦值語(yǔ)句nDim age as integer nage=20nDebug.Print agenLet age=30nMsgBox age n筆試經(jīng)?？嫉娜N顯示形式：筆試經(jīng)常考的三種顯示形式：debug.print;msgbox;text1=;n順序結(jié)構(gòu)順序結(jié)構(gòu)8.4.2 條件語(yǔ)句條件語(yǔ)句-1.單分支結(jié)構(gòu)單分支結(jié)構(gòu)n如果不努力，大家就沒(méi)辦法通過(guò)二級(jí)考試。如果不努力，大家就沒(méi)辦法通過(guò)二級(jí)考試。n如果我有如果我有300多快錢(qián)，我就請(qǐng)你吃烤鴨。多快錢(qián)，我就請(qǐng)你吃烤鴨。n如果如果 滿(mǎn)足條件滿(mǎn)足條件 那么那么 執(zhí)行操作執(zhí)行操作 結(jié)束判斷結(jié)束判斷If 條件條件 then

4、 要執(zhí)行的語(yǔ)句要執(zhí)行的語(yǔ)句End if運(yùn)行下面的程序，輸入不同的結(jié)運(yùn)行下面的程序，輸入不同的結(jié)構(gòu)。窗體中有一個(gè)標(biāo)簽，一個(gè)文構(gòu)。窗體中有一個(gè)標(biāo)簽，一個(gè)文本框和一個(gè)按鈕本框和一個(gè)按鈕nDim age as integernage=Text1nIf age =18 Thenn Msgbox “歡迎來(lái)到歡迎來(lái)到*網(wǎng)吧。網(wǎng)吧。”nEnd if nMsgBox “門(mén)打開(kāi)了。門(mén)打開(kāi)了?！崩?.4nIf Hour(Time()=12 thennMsgBox “下午好下午好”nEnd If n單分支結(jié)構(gòu)，判斷當(dāng)條件為真時(shí)，要執(zhí)單分支結(jié)構(gòu)，判斷當(dāng)條件為真時(shí)，要執(zhí)行的語(yǔ)句，但沒(méi)有做出條件為假時(shí)，該行的語(yǔ)句，但沒(méi)有

5、做出條件為假時(shí)，該如何執(zhí)行。如何執(zhí)行。2.雙分支結(jié)構(gòu)雙分支結(jié)構(gòu)nIf 條件條件 then n 語(yǔ)句塊語(yǔ)句塊1nElsen 語(yǔ)句塊語(yǔ)句塊2nEnd ifnDim age as integernage=Text1nIf age =18 Thenn Msgbox “歡迎來(lái)到歡迎來(lái)到*網(wǎng)吧。網(wǎng)吧。”nElse n Msgbox “對(duì)不起，你不到法定年齡，請(qǐng)離對(duì)不起，你不到法定年齡，請(qǐng)離開(kāi)開(kāi)”nEnd if nMsgBox “門(mén)打開(kāi)了。門(mén)打開(kāi)了?！?.多分支結(jié)構(gòu)多分支結(jié)構(gòu)n如果我有如果我有300多塊錢(qián)，我請(qǐng)你吃烤鴨多塊錢(qián)，我請(qǐng)你吃烤鴨n否則否則 如果我有如果我有200多塊錢(qián)，我請(qǐng)你吃燒雞。多塊錢(qián)，我請(qǐng)你

6、吃燒雞。n否則否則 如果我有如果我有100多塊錢(qián)，我請(qǐng)你吃烤羊肉串。多塊錢(qián)，我請(qǐng)你吃烤羊肉串。n否則否則 如果我有如果我有50多塊錢(qián)，我請(qǐng)你吃燒餅。多塊錢(qián)，我請(qǐng)你吃燒餅。n否則否則 如果我有如果我有1塊多錢(qián)，我請(qǐng)你喝小米粥。塊多錢(qián)，我請(qǐng)你喝小米粥。n否則否則 還是你請(qǐng)我吃吧。還是你請(qǐng)我吃吧。nmymoney=Text1nIf mymoney=300 Thenn Msgbox “吼吼吼吼吃烤鴨嘍吃烤鴨嘍”nElseif mymoney =200 thenn Msgbox “吃燒雞去吃燒雞去”nElseif mymoney =100 thenn Msgbox”烤羊肉串也不錯(cuò)烤羊肉串也不錯(cuò)”nEls

7、eif mymoney=50 thennMsgbox “錢(qián)不多，吃燒餅吧。錢(qián)不多，吃燒餅吧?！眓Elseif mymoney =1 thennMsgbox “管你喝飽管你喝飽”nElsenMsgbox “還是你請(qǐng)我把還是你請(qǐng)我把”nEnd if 例例8.6n自己課后去看自己課后去看If 語(yǔ)句的嵌套語(yǔ)句的嵌套n例例8.7nX=Text1nIf x0 then n MsgBox Sqr(x)nElsen if x=0 Thenn msgbox 0n Elsen msgbox Abs(x)n End ifnEnd if 4.另外一種多分支結(jié)構(gòu)另外一種多分支結(jié)構(gòu)nSelect case 表達(dá)式表達(dá)式n

8、 case 表達(dá)式表達(dá)式1n 語(yǔ)句塊語(yǔ)句塊n case 表達(dá)式表達(dá)式2n 語(yǔ)句塊語(yǔ)句塊n case 表達(dá)式表達(dá)式3n 語(yǔ)句塊語(yǔ)句塊n case elsen 語(yǔ)句塊語(yǔ)句塊nEnd select例例nX=Text1nSelect Case xn case is=18n msgbox “你可以玩所有的玩具。你可以玩所有的玩具?！眓 case 12 to 17n msgbox “你可以在學(xué)校里玩。你可以在學(xué)校里玩。”n case 7 to 11n msgbox “你應(yīng)該在父母的指導(dǎo)下玩。你應(yīng)該在父母的指導(dǎo)下玩?！眓Case 2,3,4,5,6n msgbox “你能玩小孩玩的玩具你能玩小孩玩的玩具”n

9、Case Elsen msgbox “你還是躺著吧。你還是躺著吧?！眓End Select根據(jù)成績(jī)輸出相關(guān)內(nèi)容根據(jù)成績(jī)輸出相關(guān)內(nèi)容nDim score as integernScore =55nIf score=90 then n msgbox “優(yōu)秀優(yōu)秀”nElseif score=80 thenn msgbox “良好良好”nElseif score =60 thenn msgbox “中等中等”nElse n msgbox “不及格不及格”nEnd if nDim score as integernScore=55nSelect Case Int(score/10)nCase 10,9n

10、 msgbox “優(yōu)秀優(yōu)秀”nCase 8n msgbox “良好良好”nCase 7,6 n msgbox “中等中等”nCase Elsen msgbox “不及格不及格”nEnd Select這部分多分支的結(jié)構(gòu)就講到這這部分多分支的結(jié)構(gòu)就講到這里里n對(duì)大家的要求就是：能看懂，會(huì)做筆試對(duì)大家的要求就是：能看懂，會(huì)做筆試題，就可以了。題，就可以了。n上機(jī)不做要求。上機(jī)不做要求。5.條件函數(shù)條件函數(shù)nIIF函數(shù)函數(shù)(條件表達(dá)式，表達(dá)式條件表達(dá)式，表達(dá)式1，表達(dá)式，表達(dá)式2)nX=Text1nMsgbox IIf(x0,”你輸入了大于你輸入了大于0的的數(shù)數(shù)”,”你輸入了小于等于你輸入了小于等于0

11、的數(shù)的數(shù)”)Switch 函數(shù)函數(shù)nY=switch(x0,1,x=0,0,x0,1,x=0,0,x 0n如果循環(huán)變量比終值大，循環(huán)體不會(huì)執(zhí)行。如果循環(huán)變量比終值大，循環(huán)體不會(huì)執(zhí)行。nStep=0n如果循環(huán)變量如果循環(huán)變量終值，不執(zhí)行；終值，不執(zhí)行；nStep=終值，執(zhí)行；終值，執(zhí)行；n如果循環(huán)變量如果循環(huán)變量終值，循環(huán)結(jié)束。終值，循環(huán)結(jié)束。判斷循環(huán)次數(shù)判斷循環(huán)次數(shù)n1.要看初值和終值，看步長(zhǎng)要看初值和終值，看步長(zhǎng)n2.看循環(huán)變量是否改變了看循環(huán)變量是否改變了n以下的代碼在執(zhí)行后，在立即窗口中能看到幾以下的代碼在執(zhí)行后，在立即窗口中能看到幾個(gè)個(gè)a?變量變量I的值是多少？的值是多少？nDim I

12、 as integernFor I =1 to 10 step 2n Debug.Print “a”nNext InDim I as integernFor I =1 To 10 Step 2n Debug.print “a”n I = I +2nNext I nDim i as IntegernFor i=1 to 10 Step -2n Debug.Print “a”n i=i+2nNext i nDebug.Print “a”nDim i as IntegernFor i=1 to 10 Step 0n Debug.Print “a”n i=i+2nNext i nDebug.Print

13、 “a”例題例題nDim k as integernFor k=5 to 10 Step 2n k=k*2nNext knDebug.Print k步長(zhǎng)可以是實(shí)數(shù)步長(zhǎng)可以是實(shí)數(shù)nS=5nFor i=2.6 to 4.9 Step 0.6n s=s+1nNext InMsgbox s提前退出循環(huán)提前退出循環(huán)Exit for語(yǔ)句語(yǔ)句P230nFor I to 40 n if I =10 Then n Exit for n End if n s=s+1 n Next I nMsgbox s nFor I to 40 n S=s+1 n if I =10 Then n Exit for n End i

14、f n Next I nMsgbox s 例例ndim str$(26) nFor i=1 to 26nstr$(i)=chr$(i+64) nMsgbox str(i)nNext InDim str(26) as stringnFor i=1 to 26nstr(i)=chr(i+64)nMsgbox str(i)nNext I 看如下程序看如下程序nConst Max=5nDim str as String nStr=“”nFor n=1 to Maxn str=str+”*”nNext nnFor n=1 to Max n Debug.Print strnNext nDo While L

15、oop 語(yǔ)句語(yǔ)句（P231）nDo while 條件條件n 循環(huán)體循環(huán)體nLoopn條件為真時(shí)，才執(zhí)行循環(huán)條件為真時(shí)，才執(zhí)行循環(huán)n提前退出循環(huán)的語(yǔ)句是提前退出循環(huán)的語(yǔ)句是exit do n例例8.15nDim str$(26)ni=1nDo while i26n Str(i)=Chr(i+64)n MsgBox Str(i)n i=i+1nLoopn將將換成換成5n m=m+1n n=n+1nLoop nMsgBox mDo循環(huán)條件也可以放到后面循環(huán)條件也可以放到后面nDon 循環(huán)體循環(huán)體nLoop While 條件條件n注意：因?yàn)槭窍葟纳贤⒁猓阂驗(yàn)槭窍葟纳贤聢?zhí)行，所以不管條件下執(zhí)行，所以

16、不管條件如何，循環(huán)體都會(huì)執(zhí)行如何，循環(huán)體都會(huì)執(zhí)行一次，然后開(kāi)始判斷條一次，然后開(kāi)始判斷條件，如果為真就再次執(zhí)件，如果為真就再次執(zhí)行循環(huán)體，直到條件為行循環(huán)體，直到條件為假時(shí)停止假時(shí)停止nDo n 循環(huán)體循環(huán)體nLoop Until 條件條件n注意：因?yàn)槭窍葟纳贤⒁猓阂驗(yàn)槭窍葟纳贤聢?zhí)行，所以不管條件下執(zhí)行，所以不管條件如何，循環(huán)體都會(huì)執(zhí)行如何，循環(huán)體都會(huì)執(zhí)行一次，然后開(kāi)始判斷條一次，然后開(kāi)始判斷條件，如果為假就再次執(zhí)件，如果為假就再次執(zhí)行循環(huán)體，直到條件為行循環(huán)體，直到條件為真時(shí)停止真時(shí)停止后兩種形式和前兩種形式的不同？后兩種形式和前兩種形式的不同？總結(jié)的先做還是后做的問(wèn)題?？偨Y(jié)的先做還是后

17、做的問(wèn)題。nN=1nS=11nDo while s=10n n=n+1n s=s+1nLoopnMsgbox nnN=1nS=11nDon n=n+1n s=s+1nLoop while s=10n n=n+1n s=s-1nLoopnMsgbox nnN=1nS=11nDo n n=n+1n s=s- 1nLoop until s=10nMsgbox nWhile-wend 語(yǔ)句語(yǔ)句n與與do while-loop語(yǔ)句類(lèi)似，不能在循語(yǔ)句類(lèi)似，不能在循環(huán)體中使用環(huán)體中使用exit do語(yǔ)句語(yǔ)句09-3-34nX=1nDo n x=x+2nLoop Until _n運(yùn)行程序，要求循環(huán)體執(zhí)行三次后

18、結(jié)束循環(huán)，運(yùn)行程序，要求循環(huán)體執(zhí)行三次后結(jié)束循環(huán)，空白處填入的語(yǔ)句是（空白處填入的語(yǔ)句是（ ）nA.x=7 B.x=7 C.x708-4-11n在窗體中有一個(gè)名為在窗體中有一個(gè)名為Command1 的命令按鈕，的命令按鈕，Click事件的代碼如下：事件的代碼如下： nPrivate Sub Command1_Click( )n f=0 n For n=1 To 10 Step 2 n f=f+n n Next nn Me!Lb1.Caption=f nEnd Sub n單擊命令按鈕后，標(biāo)簽顯示的結(jié)果是單擊命令按鈕后，標(biāo)簽顯示的結(jié)果是_。 08-9-34n在窗體中有一個(gè)命令按鈕（在窗體中有一個(gè)命

19、令按鈕（run34），對(duì)應(yīng)的事件代），對(duì)應(yīng)的事件代碼如下：碼如下：nPrivate sub run34_click()n sum=0n For i=10 to 1 step -2n sum=sum+1n Next In msgbox sumnEnd subn運(yùn)行以上事件，程序輸出的結(jié)果是運(yùn)行以上事件，程序輸出的結(jié)果是多重循環(huán)多重循環(huán)n循環(huán)里面嵌套循環(huán)，循環(huán)里面嵌套循環(huán)，n例子：例子：nFor n=1 to 3n for n=1 to 2n debug.print “a”n next nNext 09-3-35nDim m as integernDim n as integernM=24nN=1

20、8nDo while mnn do while mnn m=m-nn Loop n Do while mnn n=n-mn loopn Loop nMsgbox m8.5 過(guò)程調(diào)用和參數(shù)傳遞過(guò)程調(diào)用和參數(shù)傳遞n什么是過(guò)程什么是過(guò)程 ？ P200 由由VBA代碼編寫(xiě)而成，是模塊的組成單元。代碼編寫(xiě)而成，是模塊的組成單元。n過(guò)程的分類(lèi)過(guò)程的分類(lèi)n sub子過(guò)程子過(guò)程 n 事件過(guò)程（在窗體中創(chuàng)建的過(guò)程，名字是不事件過(guò)程（在窗體中創(chuàng)建的過(guò)程，名字是不能隨便改的）能隨便改的）n 通用過(guò)程（如何創(chuàng)建）通用過(guò)程（如何創(chuàng)建）nFunction 函數(shù)過(guò)程函數(shù)過(guò)程過(guò)程調(diào)用過(guò)程調(diào)用n子過(guò)程調(diào)用形式有兩種：子過(guò)程調(diào)用

21、形式有兩種：n Call 子過(guò)程名子過(guò)程名(實(shí)參實(shí)參)n 子過(guò)程名子過(guò)程名(實(shí)參實(shí)參)n函數(shù)過(guò)程的調(diào)用形式只有一種：函數(shù)過(guò)程的調(diào)用形式只有一種：n 函數(shù)過(guò)程名函數(shù)過(guò)程名(實(shí)參實(shí)參)參數(shù)傳遞參數(shù)傳遞n1.按值傳遞參數(shù)按值傳遞參數(shù)n當(dāng)在進(jìn)行聲明時(shí)，如果在形參名稱(chēng)前使當(dāng)在進(jìn)行聲明時(shí)，如果在形參名稱(chēng)前使用了用了ByVal 關(guān)鍵字的話(huà)，則是按值傳遞關(guān)鍵字的話(huà)，則是按值傳遞參數(shù)。其特征時(shí)，當(dāng)將實(shí)參的值賦值給參數(shù)。其特征時(shí)，當(dāng)將實(shí)參的值賦值給形參之后，兩者之間沒(méi)有了任何關(guān)系。形參之后，兩者之間沒(méi)有了任何關(guān)系。即以后在過(guò)程上修改了形參的值，對(duì)實(shí)即以后在過(guò)程上修改了形參的值，對(duì)實(shí)參沒(méi)有任何的影響。參沒(méi)有任何的影

22、響。例如：例如：nSub swap(ByVal a as Integer,ByVal b as Integer )nDim c as interger nC=a:a=b:b=cnEnd sub nX=10:y=20nSwap(x,y)n請(qǐng)問(wèn)最后程序結(jié)束，請(qǐng)問(wèn)最后程序結(jié)束，x,y,a,b分別是多少？分別是多少？n分析：因?yàn)槁暶鲿r(shí)，參數(shù)分析：因?yàn)槁暶鲿r(shí)，參數(shù)名稱(chēng)前有名稱(chēng)前有ByVal關(guān)鍵字，關(guān)鍵字，故是按值傳遞參數(shù)的形式。故是按值傳遞參數(shù)的形式。在調(diào)用時(shí)，將實(shí)參的值賦在調(diào)用時(shí)，將實(shí)參的值賦給相應(yīng)的形參：給相應(yīng)的形參：a=x=10,b=y=20,之后，之后，a與與x,b與與y之間就是獨(dú)立之間就是獨(dú)立

23、的不同變量。當(dāng)執(zhí)行交換的不同變量。當(dāng)執(zhí)行交換語(yǔ)句后，語(yǔ)句后，a與與b的值進(jìn)行了的值進(jìn)行了交換，即交換，即a=20,b=10。此時(shí)，此時(shí)，x與與y的值不受影響，的值不受影響，還是原值，即還是原值，即x=10，y=20.n2.按引用傳遞參數(shù)按引用傳遞參數(shù)n當(dāng)在進(jìn)行聲明時(shí)，如果在形參名稱(chēng)前使當(dāng)在進(jìn)行聲明時(shí)，如果在形參名稱(chēng)前使用了用了ByRef關(guān)鍵字的話(huà)，則是按引用傳關(guān)鍵字的話(huà)，則是按引用傳遞參數(shù)。其特征時(shí)，實(shí)參與形參相應(yīng)于遞參數(shù)。其特征時(shí)，實(shí)參與形參相應(yīng)于同一個(gè)變量。即以后在過(guò)程上修改了形同一個(gè)變量。即以后在過(guò)程上修改了形參的值，就相當(dāng)于修改了實(shí)參的值。注參的值，就相當(dāng)于修改了實(shí)參的值。注意：當(dāng)參數(shù)

24、名稱(chēng)前沒(méi)有意：當(dāng)參數(shù)名稱(chēng)前沒(méi)有ByVal或或 ByRef時(shí)，其默認(rèn)是按引用傳遞參數(shù)時(shí)，其默認(rèn)是按引用傳遞參數(shù)(ByRef)。例如：例如：nSub swap(ByRef a as Integer,ByRef b as Integer )nDim c as interger nC=a:a=b:b=cnEnd sub nX=10:y=20nSwap(x,y)n請(qǐng)問(wèn)，程序結(jié)束之后，請(qǐng)問(wèn)，程序結(jié)束之后，x,y,a,b,分別是多少？分別是多少？n分析：因?yàn)槁暶鲿r(shí)，參分析：因?yàn)槁暶鲿r(shí)，參數(shù)名稱(chēng)前有數(shù)名稱(chēng)前有ByRef關(guān)鍵關(guān)鍵字，故是按引用傳遞參字，故是按引用傳遞參數(shù)的形式，此時(shí)，數(shù)的形式，此時(shí)，a相當(dāng)相當(dāng)于于x,b相當(dāng)于是相當(dāng)于是y.n交換前，交換前，a=x=10，b=y=20n交換后，交換后，x=a=20，y=b=102010-3n在窗體上有一個(gè)命令按鈕在窗體上有一個(gè)命令按鈕Commandl，編寫(xiě)事