2.3程序基本結(jié)構(gòu)

2.3程序基本結(jié)構(gòu)2021/6/271執(zhí)行語(yǔ)句a執(zhí)行語(yǔ)句b開(kāi)始結(jié)束語(yǔ)句2語(yǔ)句1條件NY開(kāi)始結(jié)束執(zhí)行a執(zhí)行b條件開(kāi)始結(jié)束NY順序結(jié)構(gòu)選擇結(jié)構(gòu)循環(huán)結(jié)構(gòu)程序基本結(jié)構(gòu)：2021/6/272一、順序結(jié)構(gòu)執(zhí)行語(yǔ)句a執(zhí)行語(yǔ)句b開(kāi)始結(jié)束P33例PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSinglea=Val(InputBox("輸入a"))b=Val(InputBox("輸入b"))Print"交換前:a=";a,"b=";bc=aa=bb=cMsgBox“交換后a=”&a&“b=”&b,vbOKOnly,“交換結(jié)果”EndSub2021/6/273★使用對(duì)話框

一、輸入框（InputBox）

a=Val（inputbox(“輸入a”))二、信息對(duì)話框(MsgBox)

msgbox"交換后a="&a&"b="&b,vbOKOnly,"交換結(jié)果"

2021/6/274二、選擇結(jié)構(gòu)條件語(yǔ)句序列1TrueFalse單分支選擇結(jié)構(gòu)例PrivateSubForm_Click()DimaAsDoublea=Val(InputBox("請(qǐng)輸入一個(gè)數(shù)"))If

a<0ThenMsgBox"你輸入的是一個(gè)負(fù)數(shù)"EndIfPrintaEndSub2021/6/275條件語(yǔ)句序列2TrueFalse語(yǔ)句序列1雙分支選擇結(jié)構(gòu)例P35PrivateSubcmdok_Click()DimvAsSinglev=Val(InputBox("輸入速度(km/s)"))Ifv>=7.91Thenlblshow.Caption="飛船成功飛行"Elselblshow.Caption="飛船不能升空"EndIfEndSub2021/6/276多分支選擇結(jié)構(gòu)2021/6/2770-59不及格60-69及格70-79中等80-89良好90-100優(yōu)秀2021/6/278Selectcase表達(dá)式case表達(dá)式列表1語(yǔ)句組1

case表達(dá)式列表2語(yǔ)句組2…………..

caseelse語(yǔ)句組nEndSelect2021/6/279PrivateSubForm_Click()DimxAsSinglex=Val(InputBox("請(qǐng)輸入成績(jī)"))Ifx>=90ThenPrint"優(yōu)秀"ElseIfx>=80ThenPrint"良好"ElseIfx>=70ThenPrint"中等"ElseIfx>=60ThenPrint"及格"ElsePrint"不及格"EndIfEndSubPrivateSubForm_Click()DimxAsSinglex=Val(InputBox("請(qǐng)輸入成績(jī)"))SelectCasex

CaseIs>=90Print"優(yōu)秀"

CaseIs>=80Print"良好"

CaseIs>=70Print"中等"

CaseIs>=60Print"及格"

CaseElsePrint"不及格"EndSelectEndSub2021/6/2710三、循環(huán)結(jié)構(gòu)For

循環(huán)變量=初始值To

終止值（Step步長(zhǎng)）循環(huán)體Next

循環(huán)變量PrivateSubForm_Click()DimiAsIntegerFor

i=1To10PrintiNextiEndSubFor–Next循環(huán)2021/6/2711PrivateSubForm_Click()DimiAsInteger,sAsIntegers=0Fori=1To100s=s+iNextiPrint"1-100之間所有數(shù)的和是";sEndSub開(kāi)始S=0I<=100S=s+i輸出s結(jié)束I=I+1NY2021/6/2712小猴在某天摘桃子若干個(gè)，當(dāng)天吃掉一半多一個(gè)；第2天吃了剩下的桃子的一半多一個(gè)；以后每天都吃尚存桃子的一半多一個(gè)，到第7天要吃時(shí)只剩下一個(gè)，問(wèn)小猴共摘了多少個(gè)桃子？分析：這是一個(gè)“遞推”問(wèn)題，先從最后一天推出倒數(shù)第2天的桃子樹(shù)，再?gòu)牡箶?shù)第2天的桃子推出倒數(shù)第3天的桃子數(shù)…設(shè)第n天的桃子為Xn,那么它是前一天的桃子數(shù)為Xn-1的一半減1，即Xn-1=(Xn+1)*22021/6/2713For

循環(huán)變量=初始值To

終止值（Step步長(zhǎng)）循環(huán)體Next

循環(huán)變量Dowhile條件循環(huán)體LoopDowhile…loop循環(huán)和Do…Loopwhlie循環(huán)Do循環(huán)體Loopwhile條件先判斷，后執(zhí)行先執(zhí)行，后判斷2021/6/2714PrivateSubForm_Click()DimiAsIntegerFor

i=1To10PrintiNextiEndSubPrivate

SubForm_Click()DimiAsIntegeri=1DoWhilei<=10Printii=i+1LoopEndSub2021/6/2715PrivateSubForm_Click()DimiAsIntegerdimsAsIntegeri=1s=0DoWhilei<=100s=s+ii=i+1LoopPrint"和是：";sEndSubPrivateSubForm_Click()DimiAsIntegerdimsAsIntegers=0Fori=1To100s=s+iNextiPrint"和是";sEndSub2021/6/2716注：For…Next語(yǔ)句和Dowhile…Loop語(yǔ)句在許多情況下是可以通用的，但是For…Next語(yǔ)句更適合用于循環(huán)次數(shù)容易確定的情況，而Dowhile…Loop語(yǔ)句的使用則更靈活些。例：假設(shè)我國(guó)現(xiàn)有人口12億，若年增長(zhǎng)率為1.5%，試計(jì)算多少年后我國(guó)人口將增加到20億。r為年增長(zhǎng)率，i為年數(shù)，則i年后人口數(shù)為p=p(1+r)i2021/6/2717PrivateSubForm_Click()DimpAsSingle,rAsSingle,iAsIntegerp=12r=0.015i=0DoWhilep<20p=p*(1+r)i=i+1LoopPrintI

;“年后，我國(guó)人口將達(dá)到”;

p;"億"EndSub2021/6/2718三、循環(huán)結(jié)構(gòu)-雙重循環(huán)For

循環(huán)變量=初始值To

終止值（Step步長(zhǎng)）循環(huán)體Next

循環(huán)變量復(fù)習(xí)回顧For-next循環(huán)結(jié)構(gòu)：1、編程計(jì)算S=1+2+3+…+100的值2、編程計(jì)算1到100之間所有偶數(shù)的和，要求Step值為23、在程序運(yùn)行過(guò)程中任意輸入一個(gè)自然數(shù)n, 求1到n之間所有偶數(shù)的和2021/6/2719例1:請(qǐng)用for-next循環(huán)結(jié)構(gòu)編寫(xiě)如下圖所示的圖形結(jié)論：如果想讓下一個(gè)print

語(yǔ)句顯示的內(nèi)容與上一個(gè)print語(yǔ)句的內(nèi)容連在一起，則在上一個(gè)Print后面加一個(gè)“分號(hào)”即可。我們稱之為續(xù)行符。2021/6/2720提出問(wèn)題，思考如何用for-next循環(huán)結(jié)構(gòu)實(shí)現(xiàn)如圖所示的圖形雙重循環(huán)循環(huán)體內(nèi)部還有循環(huán)語(yǔ)句的循環(huán)叫做多重循環(huán)，又叫多層循環(huán)或嵌套循環(huán)。如果內(nèi)部只有一層循環(huán)，叫雙重循環(huán)。2021/6/2721PrivateSubForm_Click()DimiAsInteger,jAsIntegerFori=1To5Forj=1To5Print"*";NextjPrintNextiEndSub內(nèi)循環(huán)，j控制每行的*個(gè)數(shù)外循環(huán)，i控制輸出的行數(shù)例2:2021/6/2722例3:PrivateSubForm_Click()DimiAsInteger,jAsIntegerFori=1To5Forj=1To2*i-1Print"*";NextjPrintNextiEndSub2021/6/2723補(bǔ)充知識(shí)點(diǎn)：1、雙重循環(huán)的執(zhí)行過(guò)程是外循環(huán)執(zhí)行一次，內(nèi)循環(huán)執(zhí)行一遍，在內(nèi)循環(huán)結(jié)束后，再進(jìn)行下一次外循環(huán)，如此反復(fù)，直到外循環(huán)結(jié)束。2、對(duì)于雙重循環(huán)，各層循環(huán)的循環(huán)控