林卓然vb教程课件牛循环结构第5章教案.pptVIP

第5章 循环结构程序设计 采用循环程序可以解决一些按一定规则重复执行的问题。例如，统计一个班几十名学生，甚至全校几千名学生的学期成绩，如求平均分、不及格人数等 本章主要内容 循环是指在指定的条件下多次重复执行一组语句 被重复执行的一组语句称为循环体 VB提供的循环语句有 For...Next Do...Loop While...Wend For Each...Next 最常用的是For...Next和Do...Loop语句 5.1 循环语句 示例 求S = 1 + 2 + 3 + … + 8 For...Next循环主要是用在知道循环次数的情况下；若事先不知道循环次数，可以使用当型循环Do...Loop 1. For...Next循环语句 (计数控制) For 循环变量＝初值 To 终值 [Step 步长值] 循环体 Next 循环变量 2. Do While...Loop语句 (条件控制) Do [{While|Until} 条件] 循环体 Loop 例5.2 求S = 1 + 2 + 3 + … 8，把结果显示在窗体上。 s = 0 累加器初值为0 For k = 1 To 8 s = s + k 累加器，在原有和的基础上每次加一个数 Next k Print s= ; s 程序执行结果是：s＝36 分析 循环结构程序的实现 算法：通常采用重复运算来解决问题 累加、累乘等 如用级数 π/4＝1 - 1/3 + 1/5 - 1/7 + ……来求π 设置循环变量 使每次运算变量值有所不同 控制循环 计数控制或条件控制 例5.3 求T = 8! = 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)。在循环程序中，常用累加和累乘来完成各种计算任务 例5.3 T = 8! = 1×2×3×… 8，把结果显示在网页上。 t = 1 累乘器初值为１ For c = 1 To 8 t = t * c 累乘器，在原有积的基础上每次乘一个数 Next c Print T=; t 程序执行结果是：T＝40320 分析 采用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