VB程序设计课件第9讲Do循环.pptVIP

主要内容： Do/Loop语句 对只知道循环终止条件，可采用Do/Loop循环 【例】 求π的值。直到最后一项0.0000001 【例】 输入两整数，求最大公约数和最小公倍数。 求最大公约数可用辗转相除法（带余除法）： (1) 已知两数, A 除以 B 得余数 r (2) 若 r = 0，则B为最大公约数，结束；否则执行(3) (3) A ? B，B ? r，再求余数并重复执行(2) 作用是退出Do/Loop循环，执行Loop后面的语句 往往与If语句合用 如：Do While (1) Result = Result * i i = i + 1 If i N Then Exit Do TextBox1.Text = i  Loop * * 编程小贴士 设置属性确定事件； 构思算法草拟代码； 多写注释调整思路； 全面检查就这一招！ 编程思想：“初始化－输入－处理－输出” 小花：老师，我想交卷了 老师：才开考20分钟，还早呢！再检查！ 1. 当条件为True时执行循环，用 Do While 当条件为True时退出循环，用 Do Until 互为 反条件 Do While S ?? Do Until Not S Do Until S ?? Do While Not S 2. 循环体中应有改变循环条件的语句，避免死循环 说明 Dim N %, Result #Dim i % N = Val(InputBox(n=)) Result = 1  MsgBox Result Dim N %, Result #Dim i % N = Val(InputBox(n=)) Result = 1 For i = 1 To N Result = Result * i Next i MsgBox Result 【例】：求 n! Do/Loop 循环应该在循环开始前设置初值 Do While i = N Result = Result * i  Loop i = i + 1 : i = 1 例：计算1~100内的某数的倍数及个数 Do While Loop n = 1 : Sum = 0 Do While 1 / (2 * n - 1) = 0.0000001 Sum = Sum + (-1)^(n + 1)/(2 * n - 1) n = n + 1 Loop 检查顺序： 1. 求出待加的项 2. 累加 3. 将项数基数增加，定位于下一项 第一步：找出后一项与前一项的关系，写出关系式，将求和过程表示成sum = sum + item的形式 第二步：确定初值 分数项求和 sum = 0 : n = 1 Do While sum 10 sum = sum + 1/n n = n + 1 LOOP m = n - 2 m=3600时， 求和项结果？ 该算法循环次数未知，但循环条件已知 Exit Do语句 几种循环比较 1 111 11111 1111111 111111111 打印图形 循环，借助 space、trim、mid、str 1．Do … Loop的各种格式，while和until的区别 2. 多项式累加，找前后项的关系，设定初值 3. 利用循环和space、trim、mid、str函数打印图形 内 容 小 结