6 左右 编写程序 For 循环部分For i = 1 To 99 S = S + (-1) ^ (i + 1) * 1 / (i * i) Next i 完整程序 Private Sub Command1_Click() Dim i As Integer, n As Integer n = InputBox(\请输入\For i = 1 To n If i Mod 2 <> 0 Then sum1 = sum1 + 1 / (i * i) Else sum2 = sum2 + (-1) * 1 / (i * i) Next i Sum = sum1 + sum2 Print Sum End Sub 演示 理解 通过流程图加深理解，突破难点 通过实例突出重点 分析指导 思考 2 上机 实践 引导 探究 分层教学 3 调试运行 例 2：π/4=1-1/3+1/5-1/7+…… 利用以上公式求 π 的近似值，直到发现某一项的绝对值小于 10-6 为止。（该项不累加） 分析问题：此问题本质上是一个有限数列求和问题。 循环控制条件到某一项的绝对值小于 10-6 为止。循环次数不定，应使用 DO 循环完成。 加深理解 师生归纳 协作小结 知识目标学习 分析讲解 思考 学会 通过实践加深理解 9 分层教学 程序设计 Private Sub Command1_Click() Dim i As Long, pi As Single, s As Single, n As Double i = 1 Do n = (-1) ^ (i + 1) * 1 / (2 * i - 1) s = s + n pi = 4 * s i = i + 1 Loop Until Abs(n) < 10 ^ (-6) Print pi End Sub 分析指导 思考实践 布置 探究 调试运行： 案例 3：小球弹跳问题 小球从 10 米高处自由下落，每次弹起的高度是下落高度的一半，当小球弹起的高度不足原高度的千分之一时,小球会停止跳动。 (1)计算小球在整个弹跳过程中所经历的总路程。(2)计算第 10 次小球落地时经历的总路程。 分析问题：此问题本质上累加求和问题。 （1）循环控制条当小球弹起的高度不足原高度的千分之一时,小球会停止跳动。循环次数不定，应使用 DO 循 环完成。 （2）循环次数已知，应使用 FOR 循环完成。 程序设计 Private Sub Command1_Click() Dim D As Single, U As Single, S As Single S = 10 D = 10 Do D = D * 0.5 S = S + D * 2 Loop Until D < 10 / 1000 Print \小球移动的总路程是：\米\ End Sub 调试运行： 例 4： 编写程序：输出 2～10000 以内的完全数。 完全数：因子（不算自身）之和等于它本身的数称为完全数。如 28 的因子是 1,2,4,7,14,且 1+2+4+7+14=28，则 28 是完全数。 分析问题：应先设计出判断一个数是否是完全数的程序 ， 再使用嵌套循环完成出输 2～10000 以内的完全数。 程序设计 Private Sub Command1_Click() Dim m As Integer, i As Integer, Sum As Integer For m = 2 To 10000 i = 0: Sum = 0 Do i = i + 1 If m Mod i = 0 Then Sum = Sum + i Loop Until i = m-1 If m = Sum Then Print m; \是完全数\Next m End Sub 调试运行 3 三、不同循环语句的比较 ⒈ For 循环语句和 Do 循环语句的比较 For 循环语句：适合于描述预先知道重复次数的循环，是一种计数循环。 Do 循环语句：适合于描述难以预先确定重复的次数的循环。 四、总结归纳： 如果一个算法涉及到循环结构，一定要分析以下几点： ⒈分析循环次数：已知或未知 ⒉分析进入和退出循环体条件。 ⒊分析循环体内容：①需要重复的内容 ②改变循环变量值的方法。 不同问题，用同一种循环语句解决；同一个问题， 可以用不同循环语句解决，具体问题具体分析。
相关推荐：
loading