欢迎来到天天文库
浏览记录
ID:46948964
大小:220.00 KB
页数:14页
时间:2019-12-01
《VB程序设计课件第9讲-Do循环》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、第九讲Do...Loop循环编程小贴士设置属性确定事件;构思算法草拟代码;多写注释调整思路;全面检查就这一招!编程思想:“初始化->输入->处理->输出”主要内容:Do/Loop语句小花:老师,我想交卷了老师:才开考20分钟,还早呢!再检查!2对只知道循环终止条件,可采用Do/Loop循环Do/Loop(条件循环)31.当条件为True时执行循环,用DoWhile当条件为True时退出循环,用DoUntil互为反条件DoWhileSDoUntilNotSDoUntilSDoWhileNotS2.循环体中应有改变循环条件的语句,避免死循环说明4DimN%,Result#Di
2、mi%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=0DoWhile1/(2*n-1)>=0.00000
3、01Sum=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,则B为最大公约数,结束;否则执行(3)(3)AB,Br,再求余数并
4、重复执行(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.多项式累加,找前后项的关系,设定初值3.利用循环和space、trim、mid、str函数打印图形内容小结14
此文档下载收益归作者所有