程序基本結(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,.,小猴在某天摘桃子若干個，當(dāng)天吃掉一半多一個；第2天吃了剩下的桃子的一半多一個；以后每天都吃尚存桃子的一半多一個，到第7天要吃時只剩下一個，問小猴共摘了多少個桃子？,分析：這是一個“遞推”問題，先從最后一天推出倒數(shù)第2天的桃子樹，再從倒數(shù)第2天的桃子推出倒數(shù)第3天的桃子數(shù)設(shè)第n天的桃子為Xn,那么它是前一天的桃子數(shù)為Xn-1的一半減1，即Xn-1=(Xn+1)*2,.,For循環(huán)變量=初始值To終止值（Step步長）循環(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語句和DowhileLoop語句在許多情況下是可以通用的，但是ForNext語句更適合用于循環(huán)次數(shù)容易確定的情況，而DowhileLoop語句的使用則更靈活些。,例：假設(shè)我國現(xiàn)有人口12億，若年增長率為1.5%，試計算多少年后我國人口將增加到20億。,r為年增長率，i為年數(shù)，則i年后人口數(shù)為p=p(1+r)i,.,PrivateSubForm_Click()DimpAsSingle,rAsSingle,iAsIntegerp=12r=0.015i=0DoWhilep20p=p*(1+r)i=i+1LoopPrintI;“年后，我國人口將達(dá)到”;p;億EndSub,.,三、循環(huán)結(jié)構(gòu)-雙重循環(huán),For循環(huán)變量=初始值To終止值（Step步長）循環(huán)體Next循環(huán)變量,復(fù)習(xí)回顧For-next循環(huán)結(jié)構(gòu)：,1、編程計算S=1+2+3+100的值2、編程計算1到100之間所有偶數(shù)的和，要求Step值為23、在程序運行過程中任意輸入一個自然數(shù)n,求1到n之間所有偶數(shù)的和,.,例1:,請用for-next循環(huán)結(jié)構(gòu)編寫如下圖所示的圖形,結(jié)論：如果想讓下一個print語句顯示的內(nèi)容與上一個print語句的內(nèi)容連在一起，則在上一個Print后面加一個“分號”即可。我們稱之為續(xù)行符。,.,提出問題，思考,如何用for-next循環(huán)結(jié)構(gòu)實現(xiàn)如圖所示的圖形,雙重循環(huán),循環(huán)體內(nèi)部還有循環(huán)語句的循環(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控制每行的*個數(shù),外循環(huán)，i控制輸出的行數(shù),例2:,.,例3:,PrivateSubForm_Click()DimiAsInteger,jAsIntegerFori=1To5Forj=1To2*i-1Print*;NextjPrintNextiEndSub,.,補充知識點：,1、雙重循環(huán)的執(zhí)行過程是外循環(huán)執(zhí)行一次，內(nèi)循環(huán)執(zhí)行一遍，在內(nèi)循環(huán)結(jié)束后，再進(jìn)行下一次外循環(huán)，如此反復(fù)，直到外循環(huán)結(jié)束。2、對于雙重循環(huán)，各層循環(huán)的循環(huán)控制變量不能同名。3、外循環(huán)必須完全包含內(nèi)循環(huán)，不能交叉。,總結(jié)：,.,PrivateSubForm_C