vb程序设计课件第9讲-do循环

《vb程序设计课件第9讲-do循环》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第九讲Do...Loop循环编程小贴士设置属性确定事件；构思算法草拟代码；多写注释调整思路；全面检查就这一招！编程思想：“初始化－>输入－>处理－>输出”主要内容：Do/Loop语句小花：老师，我想交卷了老师：才开考20分钟，还早呢！再检查！2对只知道循环终止条件，可采用Do/Loop循环Do/Loop（条件循环）31.当条件为True时执行循环，用DoWhile当条件为True时退出循环，用DoUntil互为反条件DoWhileSDoUntilNotSDoUntilSDoWhileNotS2.循环体中应有改变循环条件的语句，避免死循环说明4DimN

2、%,Result#Dimi%N=Val(InputBox("n="))Result=1Fori=1ToNResult=Result*iNextiMsgBoxResultDimN%,Result#Dimi%N=Val(InputBox("n="))Result=1MsgBoxResult【例】：求n!Do/Loop循环应该在循环开始前设置初值DoWhilei<=NResult=Result*iLoopi=i+1:i=15例：计算1~100内的某数的倍数及个数DoWhileLoop6【例】求π的值。直到最后一项<0.0000001n=1:Sum=0D

3、oWhile1/(2*n-1)>=0.0000001Sum=Sum+(-1)^(n+1)/(2*n-1)n=n+1Loop7检查顺序：1.求出待加的项2.累加3.将项数基数增加，定位于下一项第一步：找出后一项与前一项的关系，写出关系式，将求和过程表示成sum=sum+item的形式第二步：确定初值分数项求和8sum=0:n=1DoWhilesum<10sum=sum+1/nn=n+1LOOPm=n-2m=3600时，求和项结果？9【例】输入两整数，求最大公约数和最小公倍数。求最大公约数可用辗转相除法（带余除法）：(1)已知两数,A除以B得余数r(2)若r=0

4、，则B为最大公约数，结束；否则执行(3)(3)AB，Br，再求余数并重复执行(2)该算法循环次数未知，但循环条件已知10作用是退出Do/Loop循环，执行Loop后面的语句往往与If语句合用如：DoWhile(1)Result=Result*ii=i+1Ifi>NThenExitDoTextBox1.Text=iLoopExitDo语句11几种循环比较121111111111111111111111111打印图形循环，借助space、trim、mid、str131．Do…Loop的各种格式，while和until的区别2.多项式累加，找前后项的关系，

5、设定初值3.利用循环和space、trim、mid、str函数打印图形内容小结14