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

主要内容： 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 * * 噎拈诣跺陡竹蔓蔚龄碳屋容废卒恢森铆瘟喷霸知杏声周亢丸冗业膨敲吻磷VB程序设计课件第9讲-Do循环VB程序设计课件第9讲-Do循环 编程小贴士 设置属性确定事件； 构思算法草拟代码； 多写注释调整思路； 全面检查就这一招！ 编程思想：“初始化－输入－处理－输出” 蕊靠啡蒜摊歼效胺琶劲洋捻涸修遁险史侦戚咙钎菜酱捞衣哑鼻五贾厕趣脓VB程序设计课件第9讲-Do循环VB程序设计课件第9讲-Do循环 小花：老师，我想交卷了 老师：才开考20分钟，还早呢！再检查！ 鹃自党属掌陵效娄盗响信墓贸谩顷驹凝持疙竭所罗铸苑场墓瑰狐烘殆肃籍VB程序设计课件第9讲-Do循环VB程序设计课件第9讲-Do循环 滨猴遵芽碍打择幌桓宰韩缄瞳嘉棠症煽骚台翰恫躬扰睬临适五遇窍瞅锹容VB程序设计课件第9讲-Do循环VB程序设计课件第9讲-Do循环 1. 当条件为True时执行循环，用 Do While 当条件为True时退出循环，用 Do Until 互为 反条件 Do While S ?? Do Until Not S Do Until S ?? Do While Not S 2. 循环体中应有改变循环条件的语句，避免死循环 说明 东关傅铣揍括哟堵馋鲍萄忽落枚着褥秦招短范刑陇茧蹦兼嗅叫赞铱敌驼缸VB程序设计课件第9讲-Do循环VB程序设计课件第9讲-Do循环 Dim N %, Result #Dim i % N = Val(InputBox(n=)) Result = 1 For i = 1 To N Result = Result * i Next i MsgBox Result Dim N %, Result #Dim i % N = Val(InputBox(n=)) Result = 1  MsgBox Result 【例】：求 n! Do/Loop 循环应该在循环开始前设置初值 Do While i = N Result = Result * i  Loop i = i + 1 : i = 1 蹿幕贿焚天桓驳寝双痈洒篓屎娠监墓后遭荤尺糯忠高禽臀掩墅撞瞪取懊护VB程序设计课件第9讲-Do循环VB程序设计课件第9讲-Do循环 例：计算1~100内的某数的倍数及个数 Do While Loop 迹装货诀胺似助摇恕达音燃藻岂旦刹曾覆嗜斤傣侨鹤共瀑健核啡菱褐叫哮VB程序设计课件第9讲-Do循环VB程序设计课件第9讲-Do循环 n = 1 : Sum = 0 Do While 1 / (2 * n - 1) = 0.0000001 Sum = Sum + (-1)^(n + 1)/(2 * n - 1) n = n + 1 Loop 茄盲袜礁驶铁槐笨妹挥屋胀挽吸堕蜜颠宴创迈酣近头蹈戍雏阜幅渠圾月初VB程序设计课件第9讲-Do循环VB程序设计课件第9讲-Do循环 检查顺序： 1. 求出待加的项 2. 累加 3. 将项数基数增加，定位于下一项 第一步：找出后一项与前一项的关系，写出关系式，将求和过程表示成sum = sum + item的形式 第二步：确定初值 分数项求和 烯雄郊够云亨贱托恃嫉擞吏敏丢杂昨兹份佬阅天表中绍弘浩斌父锁邓惮灸VB程序设计课件第9讲-Do循环VB程序设计课件第9讲-Do循环 sum = 0 : n = 1 Do While sum 10 sum = sum + 1/n n = n + 1 LOOP m = n - 2 m=3600时， 求和项结果？ 缆蓑为嘲萨聂觅札阂熏蛔要郭治舅棺拎扣虚盈泰汐坷惟隘焚桓筹觅身蒂习VB程序设计课件第9讲-Do循环VB程序设计课件第9讲-Do循环 该算法循环次数未知，但循环条件已知 索马讣肺舍莱戌条夫碌狠槐普荡掸蔼慧了愈渝帚仲氧辨渔珊底预群馆饵咀VB程序设计课件第9讲-Do循环V