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

.,2.3程序基本結(jié)構(gòu),.,順序結(jié)構(gòu),選擇結(jié)構(gòu),循環(huán)結(jié)構(gòu),程序基本結(jié)構(gòu)：,.,一、順序結(jié)構(gòu),P33例PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSinglea=Val(InputBox(輸入a)b=Val(InputBox(輸入b)Print交換前:a=;a,b=;bc=aa=bb=cMsgBox“交換后a=”sEndSub,Y,.,小猴在某天摘桃子若干個(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)*2,.,For循環(huán)變量=初始值To終止值（Step步長(zhǎng)）循環(huán)體Next循環(huán)變量,Dowhile條件循環(huán)體Loop,Dowhileloop循環(huán)和DoLoopwhlie循環(huán),Do循環(huán)體Loopwhile條件,先判斷，后執(zhí)行,先執(zhí)行，后判斷,.,PrivateSubForm_Click()DimiAsIntegerFori=1To10PrintiNextiEndSub,PrivateSubForm_Click()DimiAsIntegeri=1DoWhilei=10Printii=i+1LoopEndSub,.,PrivateSubForm_Click()DimiAsIntegerdimsAsIntegeri=1s=0DoWhilei=100s=s+ii=i+1LoopPrint和是：;sEndSub,PrivateSubForm_Click()DimiAsIntegerdimsAsIntegers=0Fori=1To100s=s+iNextiPrint和是;sEndSub,.,注：ForNext語(yǔ)句和DowhileLoop語(yǔ)句在許多情況下是可以通用的，但是ForNext語(yǔ)句更適合用于循環(huán)次數(shù)容易確定的情況，而DowhileLoop語(yǔ)句的使用則更靈活些。,例：假設(shè)我國(guó)現(xiàn)有人口12億，若年增長(zhǎng)率為1.5%，試計(jì)算多少年后我國(guó)人口將增加到20億。,r為年增長(zhǎng)率，i為年數(shù)，則i年后人口數(shù)為p=p(1+r)i,.,PrivateSubForm_Click()DimpAsSingle,rAsSingle,iAsIntegerp=12r=0.015i=0DoWhilep20p=p*(1+r)i=i+1LoopPrintI;“年后，我國(guó)人口將達(dá)到”;p;億EndSub,.,三、循環(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ù)的和,.,例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)”即可。我們稱(chēng)之為續(xù)行符。,.,提出問(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)。,.,PrivateSubForm_Click()DimiAsInteger,jAsIntegerFori=1To5Forj=1To5Print*;NextjPrintNextiEndSub,內(nèi)循環(huán)，j控制每行的*個(gè)數(shù),外循環(huán)，i控制輸出的行數(shù),例2:,.,例3:,PrivateSubForm_Click()DimiAsInteger,jAsIntegerFori=1To5Forj=1To2*i-1Print*;NextjPrintNextiEndSub,.,補(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)控制變量不能同名。3、外循環(huán)必須完全包含內(nèi)循環(huán)，不能交叉。,總結(jié)：,.,PrivateSubForm_C