VB第5章电子讲稿.pdf

《VB第5章电子讲稿.pdf》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

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

2、hile...WendForEach...Next最常用的是For...Next和Do...Loop语句5.1循环语句5.1.1For...Next循环语句按指定次数执行循环体例5.1在窗体上显示2至10各偶数的平方数采用Print直接在窗体上输出结果，程序代码：PrivateSubForm_Load()DimkAsIntegerShow程序运行结果：Fork=2To10Step24Printk*k16Nextk36EndSub64100说明：上述程序，循环变量k的初值、终值和步长值分别为2，10和2，即从2开始，每次加2，到10为止，控制循环5次。每次循环都将循环体

3、(Printk*k)执行一次格式：For循环变量＝初值To终值[Step步长值]Next循环变量功能：本语句指定循环变量取一系列数值，并且对循环变量的每一个值把循环体执行一次初值、终值和步长值都是数值表达式，步长值可以是正数(称为递增循环)，也可以是负数(称为递减循环)若步长值为1，则Step1可以省略For...Next语句的执行步骤(1)求出初值、终值和步长值，并保存起来(2)将初值赋给循环变量(3)判断循环变量值是否超过终值(步长值为正时，指大于终值；步长值为负时，指小于终值)。超过终值时，退出循环，执行Next(4)执行循环体(5)遇到Next语句时，修改循环

4、变量值，即把循环变量的当前值加上步长值再赋给循环变量(6)转到(3)去判断循环条件例5.1的执行过程例5.2求S=1+2+3+…+8采用Print直接在窗体上输出结果，程序代码：PrivateSubForm_Load()Shows=0Fork=1To8s=s+kNextkPrint"s=";sEndSubs＝36语句s＝s+k(循环体语句)的执行过程例5.3求T=8!=1×2×3×…×8采用Print直接在窗体上输出结果，程序代码：PrivateSubForm_Load()Showt=1Forc=1To8t=t*cNextcPrint"T=";tEndSubT＝403

5、20语句t=t*c也称乘法器。先将t置1(不能置0)在循环程序中，常用累加器和累乘器来完成各种计算任务例5.4用π/4＝1-1/3+1/5-1/7+……级数求π的近似值(取前5000项来进行计算)采用Print直接在窗体上输出结果，程序代码如下：PrivateSubForm_Load()ShowDimpiAsSingle,cAsInteger,sAsIntegerpi=0s=1's表示加或减运算Forc=1To10000Step2pi=pi+s/cs=-s'交替改变加、减号NextcPrint"π=";pi*4EndSub程序运行结果是：π＝3.141397例5.5用

6、100元买100只鸡，母鸡3元1只，小鸡1元3只，问各应买多少只?下面采用“穷举法”来解此题。其做法是：从所有可能解中，逐个进行试验，若满足条件，就得到一个解，否则不是。直到条件满足或判别出无解为止。令母鸡为x只，小鸡为y只，根据题意可知y=100–x开始先让x初值为1，以后逐次加1，求x为何值时，条件3x+y/3=100成立。如果当x达到30时还不能使条件成立，则可以断定此题无解采用Print直接在窗体上输出结果，程序代码：PrivateSubForm_Load()DimxAsInteger,yAsIntegerShowForx=1To30y=100-xIf3*x+

7、y/3=100ThenPrint"母鸡只数为:";x,Print"小鸡只数为:";yEndIfNextxEndSub运行结果：母鸡只数为：25小鸡只数为：755.1.2Do...Loop循环语句For...Next循环主要是用在知道循环次数的情况下，若事先不知道循环次数，可以使用当型循环Do...LoopDo...Loop两种格式：前测型循环结构和后测型循环结构。两者区别在于判断条件的先后次序不同1.前测型Do...Loop循环格式：Do[{While

8、Until}条件]循环体LoopDoWhile...Loop语句的功能：当条件成立(为真)时，执行