程序基本结构

.,2.3程序基本结构,.,顺序结构,选择结构,循环结构,程序基本结构：,.,一、顺序结构,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循环变量=初始值To终止值（Step步长）循环体Next循环变量,Dowhile条件循环体Loop,Dowhileloop循环和DoLoopwhlie循环,Do循环体Loopwhile条件,先判断，后执行,先执行，后判断,.,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语句更适合用于循环次数容易确定的情况，而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,.,三、循环结构-双重循环,For循环变量=初始值To终止值（Step步长）循环体Next循环变量,复习回顾For-next循环结构：,1、编程计算S=1+2+3+100的值2、编程计算1到100之间所有偶数的和，要求Step值为23、在程序运行过程中任意输入一个自然数n,求1到n之间所有偶数的和,.,例1:,请用for-next循环结构编写如下图所示的图形,结论：如果想让下一个print语句显示的内容与上一个print语句的内容连在一起，则在上一个Print后面加一个“分号”即可。我们称之为续行符。,.,提出问题，思考,如何用for-next循环结构实现如图所示的图形,双重循环,循环体内部还有循环语句的循环叫做多重循环，又叫多层循环或嵌套循环。如果内部只有一层循环，叫双重循环。,.,PrivateSubForm_Click()DimiAsInteger,jAsIntegerFori=1To5Forj=1To5Print*;NextjPrintNextiEndSub,内循环，j控制每行的*个数,外循环，i控制输出的行数,例2:,.,例3:,PrivateSubForm_Click()DimiAsInteger,jAsIntegerFori=1To5Forj=1To2*i-1Print*;NextjPrintNextiEndSub,.,补充知识点：,1、双重循环的执行过程是外循环执行一次，内循环执行一遍，在内循环结束后，再进行下一次外循环，如此反复，直到外循环结束。2、对于双重循环，各层循环的循环控制变量不能同名。3、外循环必须完全包含内循环，不能交叉。,总结：,.,PrivateSubForm_C