Dowhile循

《Dowhile循》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、复习for…next循环编写程序计算1+2+3+…+100的和。s=0Fori=1to100s=s+iNextiPrints已知S=1+2+3+…+n，找出一个最大的整数n，使得S<30000。程序的循环结构（二）——dowhile…Loop语句Dowhile…loop循环Dowhile<条件表达式>语句组（循环体）Loop已知S=1+2+3+…+n，找出一个最大的整数n，使得S<30000。i=0s=0Dowhiles<30000i=i+1s=s+iLoopprinti题1：Dims,iasintegers=0i=1doWhilei<=100s=s+iloopprintsA)50

2、50B)5051c)死循环D)无穷大的数阅读程序，写出运行结果i始终等于1,s不断自增题2：Dima,sasintegern=5s=0doWhilen<=1s=s+nn=n-1loopprints尝试改动程序的一处地方，使程序计算1+2+3+4+5的结果。条件n<=1不成立，始终没有进入循环CN>=1假设纸的长度足够长，厚度为0.1毫米，对折一次厚度增加1倍，现在对折纸张，直到总厚度超过珠穆朗玛峰的高度为之（珠穆朗玛峰的高度为8848.13米），求对折纸张的次数。Dowhile…loop循环Dowhile<条件表达式>语句组（循环体）Loopi=0S=0.1Dowhiles<=88

3、48130i=i+1S=s*2LoopPrinti你估算一下？采用For语句比Dowhile…Loop更加简明。一般情况下，能够预先确定循环次数时，应优先采用For语句，否则的话应该使用Dowhile…Loop语句Dowhile…loop循环练习(2010HK)以下VisualBasic程序段是一个完整的Do语句，则划线处的语句应该是DoWhilen<10n=n+3:s=s*n_______A）LoopB）EndDoC）EndSubD）NextnA练习(2012HK)有如下的VisualBasic程序段：x=-3DoWhilex<0x=x+2Loop该程序段运行后，变量X的值

4、是A）-1B）-3C）3D）1D练习有如下VB程序段：s=0:i=1Dowhilei<=10IfImod2=0thens=s+II=I+1Elsei=I+1EndIfLoopPrints该程序段运行之后，其输出结果为A.30B.0C.10D.20A练习下列程序段的执行结果是PrivateSubCm1_Click()Dima,bAsIntegera=1:b=0DoWhilea<=5b=b+a*a:a=a+1LoopPrinta,bEndSubA）655B）554C）654D）555A若s=1*2*3*4*…*n，下列VB程序的功能是求s不大于1000时的最大n值：dims,nasi

5、ntegers=1:n=1Dowhile①.n=n+1②.Loopprint“n=“;n-1请将程序中横线处补充完整，①和②分别是A）①s<=1000②s=s*nB）①s<=1000②s=nC）①n<=1000②n=s*nD）①n<=1000②s=s*nA年份Year已荒漠化面积S下一年荒漠化面积XS——已荒漠化的面积X——下一年荒漠化的面积Year——年份050200+1=150+20=7020+5=251+1=270+25=9525+5=30………………2+1=395+30=12530+5=35当S<1000的时候，进入循坏，过程如下当S>=1000的时候，跳出循坏，输出Y

6、ear变量的值第0年就是刚刚开始的初值得出规律：Year=Year+1得出规律：S=S+X得出规律：X=X+5循坏语句：Year=Year+1S=S+XX=X+5荒漠化荒漠化程序段如下：DimSAsDouble'已被荒漠化总面积DimXAsDouble‘下一年被荒漠化面积DimYearAsInteger'年份Year=0S=50X=20DoWhileS<1000Year=Year+1S=S+XX=X+5LoopText1.Text=Str(Year)定义变量赋初值循环语句输出程序段如下：DimmAsDouble‘日排放量DimdayAsInteger‘需要天数day=0m=400D

7、oWhilem>300m=m*0.95day=day+1LoopText1.Text=Str(day)1.2002.500S<2000A=a+20程序段如下：DimSAsinteger‘已经有的树木DimyearAsInteger‘需要年份DimaAsInteger‘下一年增加数目day=0S=500A=200DoWhileS<2000S=S*0.97S=S+aa=a+20year=year+1LoopText1.Text=Str(year)