第一讲 循环结构程序设计ppt课件.ppt

《第一讲 循环结构程序设计ppt课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VisualBasic程序设计ch4第一讲循环结构程序设计计算机具有速度快、精度高的特点，特别适于进行重复性的工作，重复次数越多越能显示它的威力。所以，使用计算机时，应尽量把问题归纳为简单而有规则的重复运算和操作，以充分发挥计算机的特长。程序结构清晰，可读性好，也易于查错和修改具有单入口，单出口的特点(a)(b)(c)顺序结构选择结构循环结构AB假真LE真假ABE结构化程序的基本结构引例1+2+3+……+n和的过程可以描述如下：Sum=Sum+1Sum=Sum+2Sum=Sum+3重复执行Sum=Sum+i的过程……S

2、um=Sum+nSum=0Fori=1Tonstep1sum=sum+iNexti[实例4.1]求1+2+3+……+n的和。窗体界面如图所示。任务一求正整数N的阶乘如：10！=1*2*3*4*…*10算法分析(1)1*2*3*……+n和的过程可以描述如下：fac=fac*1fac=fac*2fac=fac*3重复执行fac=fac*i的过程……fac=fac*nfac=1Fori=1tonfac=fac*iNexti实例拓展1、求1—n之间的奇数和的代码段为：Fori=1to（n+1)2Sum=Sum+2*i-1Nex

3、ti当然，也可以通过调整步长解决，代码段为：Fori=1tonStep2Sum=Sum+iNexti2、求1+1/2+1/3+……1/n的代码段为：Fori=1tonSum=Sum+1/iNexti补充作业：求n!1、For语句（一般用于循环次数已知）For循环变量＝初值to终值[Step步长]语句块[ExitFor]语句块Next循环变量循环体>0初值<终值(=1时,可省略)步长<0初值>终值=0死循环循环次数(1)为循环变量赋初值。(2)判断循环变量值是否超过终值(步长值为正时，指大于终值；步长值为负时，指小于终值)

4、。超过终值时，退出循环，执行Next之后的语句；没有超过，则执行循环体(3)遇到Next语句时，修改循环变量值（即循环变量=循环变量+步长值），再转到(2)去判断循环条件。For...Next语句的执行步骤Fort=1To3Ift<=1Thena=3Ift<=2Thena=2Ift<=3Thena=1Printa;NexttPrinttA.3333B.1234C.3214D.1114下列程序的运行结果是？想一想思考题Ds="ABCDEFGHIJ":c=""Fork=2ToLen(s)Step3a=Mid(s,k)c=c+

5、Left(a,1)NextkPrintcA.BDFB.CFIC.BEHD.BEI下列程序的运行结果是？想一想思考题C(1)问题中的共性：程序设计中需要按照某种规律反复不断执行某一段程序；能够完成此功能的程序结构成为“循环结构”，被反复执行的“程序段”成为“循环体语句”。(2)循环结构的三要素：A.构成循环的基本条件是什么？B.循环体要完成的功能是什么？C.在什么情况下结束循环过程?任务二实现1*2*3*……*n的操作，当阶乘值>5000时结束操作。i=1fac=1Whilefac<=5000fac=fac*ii=i+1W

6、end算法分析(1)1*2*3*……+n和的过程可以描述如下：fac=fac*1fac=fac*2fac=fac*3重复执行fac=fac*i的过程……fac=fac*n(2)循环的次数未确定，所以用While循环。循环体为fac=fac*i，循环条件为累乘积fac<=5000。i=1fac=1Whilefac<=5000fac=fac*ii=i+1Wend1.2、While语句（一般用于循环次数未知）While条件循环体Wend（1）功能：当条件成立(为真)时，执行循环体；当条件不成立(为假)时，终止循环。（2）说明：

7、A.逻辑表达式作为进入循环的条件，当条件成立时进入循环.B.循环体由若干条语句构成，在循环体中至少包含一条不断修正逻辑表达式的语句，使得循环过程朝退出的方向发展。C.一直循环到逻辑表达式不成立为止。（1）求出条件表达式的值，如果值为True（非0值），则执行（2），否则执行Wend后的语句（2）执行“循环体”，当遇到Wend语句转到步骤（1）While...Wend语句的执行步骤[实例4.2]实现1*2*3*……*n的操作，当阶乘值>5000时结束操作。窗体界面如图所示。“计算”命令按钮代码用来计算累乘积；“手动计算”按

8、钮代码是执行一次累乘积操作，主要目的是用于演示1*2*3*……*n的过程。“手动计算”Ifj=0Thenfact=1Iffact<=5000Thenj=j+1fact=fact*jtxtcyc.Text=jtxtfac.Text=factElseCmdcalh.Enabled=FalseEndIf任务三用wile…w