第5章 基本的控制结构(循环)ppt课件.ppt

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

1、Visualbasic程序设计第五章（2）第五章基本的控制结构（二）循环概述5.3For循环5.3.1While循环5.3.2循环的退出5.3.5循环的嵌套5.3.4Do循环5.3.3在本节中，主要介绍循环结构中的DO、While、For循环等语句的使用。引言5.3循环概述所谓循环就是重复地执行一组语句VB提供了三种不同风格的循环语句（1）For…Next语句；（2）While…Wend语句；（3）Do…Loop语句。5.3.1For循环1.For循环格式：For循环变量=初值To终值[Step步长][循环体]Next[循环变量]例：计算1

2、～100所有奇数的和PrivateSubForm_Click()Dims%,x%s=0Forx=1To100Step2s=s+xNextxlabel1.caption=“1~100所有奇数的和是：”&sEndSub说明：（1）循环变量：也称作循环控制变量，通常为数值型（2）初值、终值：都是数值型，可以是数值表达式。（3）步长：循环变量的增量，是一个数值表达式。一般来说，其值为正，初值应小于终值；若为负，初值应大于终值。但步长不能是0。如果步长是1，Step1可略去不写。（4）循环体：在For语句和Next语句之间的语句序列（5）Next后面

3、的循环变量与For语句中的循环变量必须相同。当步长为正值时，循环变量大于终值为“超过”；当步长为负值时，循环变量小于终值为“超过”。2.执行过程（1）系统将初值赋给循环变量，并自动记下终值和步长。（2）检查循环变量的值是否超过终值。如果超过就结束循环，执行Next后面的语句；否则，执行一次循环体。（3）执行Next语句，将循环变量增加一个步长值再赋给循环变量，转到（2）继续执行。图2-1For循环语句执行流程3.其它说明（1）循环次数计算公式为：循环次数=Int（（终值-初值）/步长）+1（2）循环控制变量通常用整型数，也可以用单精度数或双

4、精度数。值得注意的是，无论初值、终值和步长值是什么数值类型，最后都要转换成循环控制变量的类型。例：求N！（N为自然数）分析：由阶乘的定义，我们可以得出N！=1*2*…*(N-2)*(N-1)*N=(N-1)！*N，也就是说，一个自然数的阶乘，等于该自然数与前一个自然数阶乘的乘积。程序代码如下：PrivateSubCommand1_Click()Dimt%,f&,n%n=Val(Text1.text)f=1Fort=1Tonf=f*tNexttlabel2.caption=n&“!结果是：”&fEndSub例：判断用户输入的数是否为素数分析：

5、素数的特征是只能被1和它自身整除。假设用户输入的正整数为N，我们只需确定在大于1小于等于N的正整数中是否存在能整除N的数。如果有，则N就不是素数；如果没有，则N就是素数。界面如图：PrivateSubCommand1_Click()Dims%,k%,i%s=Val(Text1.Text)k=Int(Sqr(s))Fori=2TokIfsModi=0ThenLabel1.Caption="这个数不是素数！"ExitForEndIfNextiIfi=k+1ThenLabel1.Caption="这个数是素数!"EndIfEndSub终止循环5.

6、3.2While循环For…Next循环，适用于循环次数能够确定的情况。对于只知道控制条件，但不能确定循环次数的情况，可以使用While循环。1.While语句格式：While条件[循环体]Wend说明“条件”可以是关系表达式或逻辑表达式While循环就是当“条件”为True时，执行循环体当“条件”为False时，不执行循环体因此While循环也叫当型循环2．执行过程（1）执行While语句，判断条件是否成立。（2）如果条件成立，就执行循环体；否则，不执行循环体，转到（4）。（3）执行Wend语句，转到（1）执行。（4）执行Wend语句下面

7、的语句。图2-2While语句执行流程3．While循环的几点说明（1）While循环语句本身不能修改循环条件，所以必须在循环体内设置相应语句，使得整个循环趋于结束，以避免死循环。（2）While循环语句先对条件进行判断，然后才决定是否执行循环体。如果开始条件就不成立，则循环体一次也不执行。（3）凡是用For…Next循环编写的程序，我们都可以用While…Wend语句实现。反之，则不然。例3：找出一个最大正整数N，使N！<1000分析：该题就是要找到一个正整数，使它的阶乘最接近1000但又不超过1000。因此，我们应该将从1开始的自然数累

8、乘，当积第一次大于1000时结束循环，累乘的最后一个数的前一个数即为所求。程序代码如下：PrivateSubCommand1_Click()Dimm%,p%m=0p=1While