DO循环例题(带答案)

《DO循环例题(带答案)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、【例14】编程计算0~200之间所有偶数之和。前面我们用For循环编写过类似的程序。(用多种格式改写)前测型PrivateSubForm_Click()DimX%,S%S=0X=2DoWhileX<=200‘或者用DoUntilX>200S=S+XX=X+2LoopPrintSEndSub后测型PrivateSubForm_Click()DimX%,S%S=0X=2DoS=S+XX=X+2LoopWhileX<=200'或者用LoopUntilX>200PrintSEndSub【例15】求两个整数的最大公约数（辗转相除法）、最小公倍数PrivateSubFor

2、m_Click()A=Val(InputBox("请输入第一个数"))B=Val(InputBox("请输入第二个数"))C=A*BR=AModBDoWhileR<>0A=BB=RR=AModBLoopPrint"最大公约数为"&BPrint"最小公倍数为"&C/BEndSub【例16】编写程序用键盘输入一个大于2的整数，并判断该数是否是素数。(用DO……LOOP格式写)PrivateSubForm_Click()DimiAsInteger,mAsInteger,AAsIntegerm=Val(InputBox("请输入一个大于2的整数"))A=Int(Sqr

3、(m))i=2DoWhilei<=AIfmModi=0ThenExitDoEndIfi=i+1LoopIfi>AThenMsgBoxm&"是素数"ElseMsgBoxm&"不是素数"EndIfEndSubDO循环求和问题：1.编写程序计算S的值，直到最后一项小于10-4为止（要求将存放结果的变量类型定义成单精度型）S=+++…PrivateSubForm_Click()Dims!,i%,t!s=0i=1Dot=1/(i*(i+1))s=s+ti=i+2LoopUntilt<0.0001PrintsEndSub2.编写程序计算S的近似值，直到最后一项的绝对值小于

4、10-5次方为止，并用PRINT方法输出计算结果。其中S=1-+-+…+(-1)K+1PrivateSubForm_Click()Dims!,i&,t!s=0i=1Dot=(-1)^(i+1)/is=s+ti=i+1LoopUntilAbs(t)<0.00001PrintsEndSub1.利用公式可以求出自然对数的底e的近似值，要求累加到最后一项的值小于0.000001为止。PrivateSubForm_Click()Dime!,i%,t!e=1:i=1:t=1Dot=t*ie=e+1/ti=i+1LoopUntil1/t<0.000001PrinteEndS

5、ub2.编写程序计算S的近似值，直到最后一项的绝对值小于10-6为止（要求将存放结果的变量类型定义成单精度型）S=+++…答案1：PrivateSubForm_Click()Dims!,i%,t!s=0:i=2:t=1Dot=t*(i-1)*is=s+1/ti=i+2LoopUntil1/t<0.000001PrintsEndSub答案2：PrivateSubForm_Click()Dims!,i%,t!s=0:i=2Dot=1Forx=1Toit=t*xNextxs=s+1/ti=i+2LoopUntil1/t<0.000001PrintsEndSub