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 * * 胜战嚼根秦卒玻工贯卯侨峦杖尺井拿酣欧锦猿壬她桨韧剑书奶指翘绝乖鞘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讲