VB课件第4章循环结构.ppt

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

1、第4循环结构程序设计采用循环程序可以解决一些按一定规则重复执行的问题。例如，统计一个班几十名学生，甚至全校几千名学生的学期成绩，如求平均分、不及格人数等。本章主要内容循环语句For...Next/Do...Loop/While...Wend循环出口语句(Exit)多重循环程序举例4.3循环结构设计循环是指在指定的条件下多次重复执行一组语句。被重复执行的一组语句称为循环体。VB提供的循环语句有:For...NextDo...LoopWhile/UntilDoWhile/Until...LoopWhile...Wend最常用的是For.

2、..Next和Do...Loop语句按指定次数执行循环体4.3.1For...Next循环循环变量超过终值？FT循环变量增加步长循环体循环变量获得初值格式：For循环变量＝初值To终值[Step步长值]循环体Next循环变量功能：当循环变量的值在初值到终值范围内时，执行一次循环体的语句代码，并使初值增加一个步长。当循环变量的值不在初值到终值范围内时，就退出循环，执行Next后面的语句。说明：循环变量是一个数值变量，初值、终值和步长值都是数值表达式，步长值可以是正数(称为递增循环)，也可以是负数(称为递减循环)；若步长值为1，则Ste

3、p1可以省略。说明:循环次数的一般计算公式：Int((终值-初值)/步长)+1事先已知循环次数，则可使用For-Next循环结构语句——计数循环PrivateSubForm_Load()ShowDimsumAsInteger计算1至100的和，存放在sum中’显示结果Print"sum=";sumEndSubsum=sum+1sum=sum+2……sum=sum+100sum=sum+ii=1~100采用Print直接在窗体上输出结果PrivateSubForm_Load()ShowDimsumAsIntegerDimiAsInte

4、gerFori=1To100sum=sum+iNextiPrint"sum=";sumEndSubYesNosum=sum+ii=1i<=100i=i+1执行过程:Fori=1To100sum=sum+iNexti示例2：求T=8!=1×2×3×…×8采用Print直接在窗体上输出结果，程序代码：PrivateSubForm_Load()Showt=1Forc=1To8t=t*cNextcPrint"T=";tEndSub程序运行结果是：T＝40320语句t=t*c也称累乘器。先将t置1(不能置0)。在循环程序中，常用累加器和累乘器

5、来完成各种计算任务。如果要求N!呢???思考：x=5Fori=1To20Step5x=x+i5Nexti思考：s=5Fori=2.6To4.9Step0.6s=s+1Nexti思考：PrivateSubForm_Click()x=5:k=5Fork=1To10Step-2x=x+kNextkPrintk;xEndSub思考：PrivateSubForm_Click()DimsumAsDouble,xAsDoublesum=0n=0Fori=1To5x=n/in=n+1sum=sum+xNextiEndSub下面采用“穷举法”来解此

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

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

8、Until

9、}条件]循环体LoopDoWhile...Loop语句的功能：当条件成立(为真)时，执行循环体；当条件不成立(为假时)，终止循环。DoUntil...Loop语句的功能：当条件不成立(为假)时，执行循环体，直到条件成立(为真)时，终止