程序基本結構

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