VBA編程及應(yīng)用基礎(chǔ)課件2 ForNext循環(huán)結(jié)構(gòu)

VBA程序控制結(jié)構(gòu)For...Next循環(huán)語(yǔ)句Exit語(yǔ)句本講內(nèi)容For…Next語(yǔ)句Exit語(yǔ)句一個(gè)問(wèn)題某商場(chǎng)約定其某款產(chǎn)品的銷(xiāo)售單價(jià)（原價(jià)為100元）根據(jù)不同的購(gòu)買(mǎi)數(shù)量有不同的折扣（如下表所示），試編寫(xiě)一個(gè)VBA過(guò)程，計(jì)算產(chǎn)品銷(xiāo)售單價(jià)工作簿中該產(chǎn)品各銷(xiāo)售數(shù)量情況下的折扣過(guò)的銷(xiāo)售單價(jià)購(gòu)買(mǎi)數(shù)量Q折扣Q<50095%500≤Q<60090%600≤Q<100080%1000≤Q<500070%Q≥500060%循環(huán)結(jié)構(gòu)當(dāng)程序中有規(guī)律地重復(fù)執(zhí)行某些操作時(shí)，可以用循環(huán)結(jié)構(gòu)實(shí)現(xiàn)循環(huán)結(jié)構(gòu)的執(zhí)行過(guò)程，總是在一定條件的控制下對(duì)循環(huán)體進(jìn)行重復(fù)操作，當(dāng)滿(mǎn)足某一終止條件時(shí)停止循環(huán)，并結(jié)束循環(huán)退出For…Next語(yǔ)句功能：以指定的次數(shù)重復(fù)執(zhí)行循環(huán)體格式：

For變量

=初值

To終值

[Step步長(zhǎng)]

語(yǔ)句塊

[ExitFor]

語(yǔ)句塊

Next[變量]變量又稱(chēng)循環(huán)控制變量、計(jì)數(shù)器變量，初值為循環(huán)起始值，終值為循環(huán)的結(jié)束值步長(zhǎng)為循環(huán)控制變量的每次改變?cè)隽?，缺省?ExitFor為強(qiáng)制退出循環(huán)語(yǔ)句循環(huán)體For…Next語(yǔ)句計(jì)算產(chǎn)品折扣后的銷(xiāo)售單價(jià)？For…Next語(yǔ)句實(shí)例1：求s=1+2+3+……+100?利用賦值語(yǔ)句可寫(xiě)出如下形式的代碼：

s=0

s=s+1

s=s+2

s=s+3

……

s=s+100實(shí)際上重復(fù)了同一個(gè)操作：s=s+i，只是i每次都增加1For…Next語(yǔ)句實(shí)踐1：編寫(xiě)一個(gè)宏，使用InputBox函數(shù)輸入一個(gè)正整數(shù)n，然后計(jì)算n的階乘（n!），并將計(jì)算結(jié)果用MsgBox函數(shù)輸出？For…Next語(yǔ)句實(shí)例2：編寫(xiě)一個(gè)宏MySub1，在Sheet1工作表的A1:A10區(qū)域各單元格中分別隨機(jī)生成[10,99]之間的整數(shù)；再編寫(xiě)一個(gè)宏MySub2，在Sheet1工作表的A1:A10區(qū)域中，將偶數(shù)所在的單元格設(shè)置為黃色背景For…Next語(yǔ)句實(shí)踐2：編寫(xiě)一個(gè)宏MySub1，在Sheet1工作表的A1:J1區(qū)域各單元格中分別隨機(jī)生成[100,999]之間的整數(shù)；再編寫(xiě)一個(gè)宏MySub2，在Sheet1工作表的A1:J1區(qū)域中，將奇數(shù)所在的單元格設(shè)置為紅色字體退出循環(huán)？Exit語(yǔ)句（P.32）ExitFor語(yǔ)句，用于跳出For循環(huán)以提前終止循環(huán)，例如：Exit語(yǔ)句一般與If語(yǔ)句結(jié)合使用另外，ExitDo語(yǔ)句可以用于跳出Do…Loop

循環(huán)Exit語(yǔ)句另外，Exit語(yǔ)句還可以退出過(guò)程、函數(shù)ExitSubExitFunction實(shí)例3Exit語(yǔ)句實(shí)踐3：小明2014年往銀行存入了10000元，已知銀行的年存款利率為3.6%，請(qǐng)問(wèn)到哪一年小明的存款本息