1、主页计算机具有速度快、精度高的特点，特别适于进行重复性的工作，重复次数越多越能显示它的威力。所以，使用计算机时，应尽量把问题归纳为简单而有规则的重复运算和操作，以充分发挥计算机的特长。主页采用循环程序可以解决一些按一定规则重复执行的问题。例如，统计一个班几十名学生，甚至全校几千名学生的学期成绩，如求平均分、不及格人数等本章主要内容第 5章 循环结构程序设计Do.Loop For.Next退出循环 出口 语句 (Exit)循环语句多重 循环列表框与组合框常用算法程序举例主页循环 是指在指定的条件下多次重复执行一组语句被重复执行的一组语句称为 循环体VB提供的循环语句有For.NextDo.Loo
2、pWhile.WendFor Each.Next最常用的是 For.Next和 Do.Loop语句 假真循环体循环条件主页For.Next循环主要是用在知道循环次数的情况下；若事先不知道循环次数，可以使用当型循环 Do.Loop1. For.Next循环语句 (计数控制 )For 循环变量初值 To 终值 Step 步长值 循环体 Next 循环变量2. Do While.Loop语句 (条件控制 )Do While|Until 条件 循环体Loop5.1 循环语句 示例 求 S = 1 + 2 + 3 + + 8s = 0For k = 1 To 8s = s + kNext kPrint
3、“s=“; s程序运行结果如下： s 36n = 1: s = 0Do While n = 8s = s + n n = n + 1LoopPrint “s=“; s例 5.2K为循环变量专设变量 n来控制循环主页例 5.2 求 S = 1 + 2 + 3 + 8 ，把结果显示在窗体上。s = 0 累加器初值为 0For k = 1 To 8s = s + k 累加器，在原有和的基础上每次加一个数NextPrint “s= “; s程序执行结果是： s 36 分析 累加器 s = s + k旧值。前 n项之和新加的数k = 1s s + k0 1k = 3s s + k 1 + 2 3k =
4、2s s + k1 2k = 8s s + k 1 + 2 + 7 8主页 算法：通常采用重复运算来解决问题累加、累乘等如用级数 /4 1 - 1/3 + 1/5 - 1/7 + 来求 设置循环变量使每次运算变量值有所不同 控制循环计数控制或条件控制循环结构程序的实现求 S = 1 + 2 + 3 + + 8s = 0For k = 1 To 8s = s + kNext kPrint “s=“; s把长式子改为 8次加主页采用 Print直接在窗体上输出结果，程序代码：Private Sub Form_Load()Showt = 1For c = 1 To 8t = t * cNext cP
5、rint “T=“; tEnd Sub程序运行结果是： T 40320语句 t=t*c 称为乘法器。先将 t置 1(不能置 0)。 在循环程序中，常用累加和累乘来完成各种计算任务例 5.3 求 T = 8! = 1238例 5.3主页例 5.3 T = 8! = 123 8 ，把结果显示在网页上。t = 1 累乘器初值为For c = 1 To 8t = t * c 累乘器，在原有积的基础上每次乘一个数NextPrint “T=“; t程序执行结果是： T 40320分析c = 1t t * c1 1c = 3t t * c 1 * 2 3c = 2t t * c1 2c = 8t t * c
6、 1 * 2 * 7 8累乘器 t = t * k旧值。前 n项之积新乘的数主页采用 Print直接在窗体上输出结果，程序代码如下：Private Sub Form_Load()ShowDim pi As Single, c As Integer, s As Integerpi = 0s = 1 s表示加或减运算For c = 1 To 10000 Step 2pi = pi + s / cs = -s 交替改变加、减号Next cPrint “=“; pi * 4End Sub程序运行结果是： 3.141397例 5.4 用 /4 1 - 1/3 + 1/5 - 1/7 + 级数求 的近似值 (取前 5000项来进行计算 )例 5.4主页For t = 1 To 3If t = 1 Then a = 3If t = 2 Then a = 2If t = 3 Then a = 1Print a;Next tPrint tA. 3 3 3 3 B. 1 2 3 4C. 3 2 1 4 D. 1 1 1 4下列程序的运行结果是？想一想思考题D
