VB第5章电子讲稿.ppt

第
5
循环结构设计
计算机具有速度快、精度高的特点,特别适于进行重复性的工作,重复次数越多越能显示它的威力。所以,使用计算机时,应尽量把问题归纳为简单而有规则的重复运算和操作,以充分发挥计算机的特长。
采用循环程序可以解决一些按一定规则重复执行的问题。例如,统计一个班几十名学生,甚至全校几千名学生的学期成绩,如求平均分、不及格人数等
本章主要内容
循环语句
For...Next / Do...Loop / While...Wend
循环出口语句(Exit)
多重循环
列表框与组合框
程序举例
第5章循环结构设计
 循环是指在指定的条件下多次重复执行一组语句。被重复执行的一组语句称为循环体
VB提供的循环语句有
Do...Loop
For...Next
While...Wend
For Each...Next
最常用的是For...Next和Do...Loop语句
For...Next循环语句
按指定次数执行循环体
 在窗体上显示2至10各偶数的平方数
 采用Print直接在窗体上输出结果,程序代码:
Private Sub Form_Load()
Dim k As Integer
Show
For k = 2 To 10 Step 2
Print k * k
Next k
End Sub
程序运行结果:
4
16
36
64
100
循环语句
说明:上述程序,循环变量k的初值、终值和步长值分别为2,10和2,即从2开始,每次加2,到10为止,控制循环5次。每次循环都将循环体(Print k*k)执行一次
格式: For 循环变量=初值 To 终值[Step 步长值] 循环体 Next 循环变量
 功能:本语句指定循环变量取一系列数值,并且对循环变量的每一个值把循环体执行一次
初值、终值和步长值都是数值表达式,步长值可以是正数(称为递增循环),也可以是负数(称为递减循环)
若步长值为1,则Step 1可以省略
(1)求出初值、终值和步长值,并保存起来
(2)将初值赋给循环变量
 (3)判断循环变量值是否超过终值(步长值为正时,指大于终值;步长值为负时,指小于终值)。超过终值时,退出循环,执行Next之后的语句 (4)执行循环体
 (5)遇到Next语句时,修改循环变量值,即把循环变量的当前值加上步长值再赋给循环变量
(6)转到(3)去判断循环条件

For...Next语句的执行步骤
采用Print直接在窗体上输出结果,程序代码:
Private Sub Form_Load()
Show
s = 0
For k = 1 To 8
s = s + k
Next k
Print "s="; s
End Sub
程序运行结果如下: s=36
语句s=s+k(循环体语句)的执行过程
求S = 1 + 2 + 3 + …+ 8
采用Print直接在窗体上输出结果,程序代码: Private Sub Form_Load()
Show
t = 1
For c = 1 To 8
t = t * c
Next c
Print "T="; t
End Sub
程序运行结果是: T=40320语句t=t*c也称乘法器。先将t置1(不能置0)。在循环程序中,常用累加器和累乘器来完成各种计算任务
求T = 8! = 1×2×3×…×8
采用Print直接在窗体上输出结果,程序代码如下:
Private Sub Form_Load()
Show
Dim pi As Single, c As Integer, s As Integer
pi = 0
s = 1 's表示加或减运算
For c = 1 To 10000 Step 2
pi = pi + s / c
s = -s '交替改变加、减号
Next c
Print "π="; pi * 4
End Sub
程序运行结果是: π=
用π/4=1 - 1/3 + 1/5 - 1/7 + ……级数求π的近似值(取前5000项来进行计算)
下面采用“穷举法”来解此题。
其做法是:从所有可能解中,逐个进行试验,若满足条件,就得到一个解,否则不是。直到条件满足或判别出无解为止。
 令母鸡为x只,小鸡为y只,根据题意可知
y = 100 – x
开始先让x初值为1,以后逐次加1,求x为何值时,条件3x+y/3=100成立。如果当x达到30时还不能使条件成立,则可以断定此