计算机具有速度快、精度高地特点,特别适于进行重复性地.ppt

《计算机具有速度快、精度高地特点,特别适于进行重复性地.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第5循环结构程序设计计算机具有速度快、精度高的特点，特别适于进行重复性的工作，重复次数越多越能显示它的威力。所以，使用计算机时，应尽量把问题归纳为简单而有规则的重复运算和操作，以充分发挥计算机的特长。采用循环程序可以解决一些按一定规则重复执行的问题。例如，统计一个班几十名学生，甚至全校几千名学生的学期成绩，如求平均分、不及格人数等。本章主要内容第5章循环结构程序设计Do循环语句For循环语句退出循环出口语句(Exit)循环语句多重循环列表框与组合框常用算法程序举例循环是指在指定的条件下多次重复执行一组语句被重复执行的一组语句称为循环体VB提供

2、的循环语句有For循环(For...Next)Do循环(Do...Loop)While循环(While...Wend)ForEach...Next最常用的是For循环语句和Do循环语句假真循环体循环条件5.1.1For循环语句按指定次数执行循环体。格式：For循环变量＝初值To终值[Step步长值]循环体Next循环变量功能：本语句指定循环变量取一系列数值，并且对循环变量的每一个值把循环体执行一次。初值、终值和步长值都是数值表达式，步长值可以是正数(称为递增循环)，也可以是负数(称为递减循环)。若步长值为1，则Step1可以省略。5.1循环

3、语句PrivateSubForm_load()DimkAsIntegerShowFork=2To10Step2Printk*kNextkEndSub程序运行结果：例5.1在窗体上显示2至10各偶数的平方数。例5.14163664100循环变量k的初值、终值和步长值分别为2，10和2，即从2开始，每次加2，到10为止。控制循环5次。每次循环都将循环体(Printk*k)执行一次。循环次数：第1次第2次第3次第4次第5次k的值：246810显示：4163664100例5.2求S=1+2+3+…8，把结果显示在窗体上。s=0'累加器初值为0Fork

4、=1To8s=s+k'累加器，在原有和的基础上每次加一个数NextPrint"s=";s程序执行结果是：s＝36分析累加器s=s+k旧值。前n项之和新加的数k=1s←s+k01k=3s←s+k1+23k=2s←s+k12k=8s←s+k1+2+…78……例5.2采用Print直接在窗体上输出结果，程序代码：PrivateSubForm_Load()Showt=1Forc=1To8t=t*cNextcPrint"T=";tEndSub程序运行结果是：T＝40320语句t=t*c称为乘法器。先将t置1(不能置0)。在循环程序中，常用累加和

5、累乘来完成各种计算任务例5.3求T=8!=1×2×3×…×8例5.3分析例5.3程序求解T=8!=1×2×3×…8t=1'累乘器初值为１Forc=1To8t=t*c'累乘器，在原有积的基础上每次乘一个数NextPrint"T=";t程序执行结果是：T＝40320分析c=1t←t*c11c=3t←t*c1*23c=2t←t*c12c=8t←t*c1*2*…78……累乘器t=t*k旧值。前n项之积新乘的数PrivateSubForm_Load()ShowDimpiAsSingle,cAsInteger,sAsIntegerpi=0s=1's表示加

6、或减运算Forc=1To9999Step2pi=pi+s/cs=-s'交替改变加、减号NextcPrint"π=";pi*4EndSub程序运行结果是：π＝3.141397例5.4用π/4＝1-1/3+1/5-1/7+……级数求π的近似值(取前5000项来进行计算)例5.4真假输出4*pic>9999?pi=0s=1开始c=1pi=pi+s/cs=-sc=c+2结束For...Next循环通常用于知道循环次数的情况下，若事先不知道循环次数，可以使用当型循环Do...Loop。Do...Loop两种格式：前测型循环结构和后测型循环结构。前测型

7、Dowhile...Loop循环格式：DoWhile条件循环体Loop功能：当条件成立(为真)时，执行循环体；当条件不成立(为假时)，终止循环。5.1.2Do循环语句采用Do循环语句：PrivateSubForm_Click()DimnAsInteger,sAsLongn=1:s=0DoWhilen<=100s=s+n*nn=n+1LoopPrint"s=";sEndSub程序运行结果：S＝338350例5.5分别利用Do循环语句和For循环语句，计算S＝12+22+…+1002例5.5采用For循环语句：PrivateSubForm_Cl

8、ick()DimnAsInteger,sAsLongs=0Forn=2To100Step1s=s+n*nNextnPrint"s=";sEndSub读者可以比较这两