VB程序设计 习题及答案第5章 循环结构程序设计

第5章循环结构程序设计

5．1试编程序，打印出自然数1到20的立方数。【参考答案】程序代码设计PrivateSubForm_Click()Form1.Print"x","x^2"Forx=1To20Form1.Printx,x^2NextxEndSub

PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"打印自然数1到20的立方数"Form1.Print"单击窗体开始"EndSub图5-1程序运行结果程序运行结果如图5-1所示：图5-1程序运行结果

5．2试编程序，打印出1到500之间所有偶数的和。【参考答案】程序代码设计PrivateSubCommand1_Click()Sum=0Fork=1To500IfkMod2=0ThenSum=Sum+kNextkForm1.Print"1到500的偶数和为：";SumEndSub

PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.PrintForm1.Print"打印1到500之间所有偶数的和"Form1.Print图5-2程序运行结果EndSub图5-2程序运行结果程序运行结果如图5-2所示：

5．3试编写打印下面图案的源程序。***************【参考答案】程序代码设计PrivateSubCommand1_Click()Fori=1To5Form1.PrintTab(5+i);Forj=iTo5Form1.Print"*";NextjForm1.PrintNextiEndSub程序运行结果如图5-3所示：

图5-3程序运行结果

图5-3程序运行结果5．4试编写打印下面图案的源程序。*************************

【参考答案】程序代码设计PrivateSubCommand1_Click()Fori=1To4Form1.PrintTab(10-i);Forj=1To2*i-1Form1.Print"*";NextjForm1.PrintNextiFork=3To1Step-1Form1.PrintTab(10-k);Forj=1To2*k-1Form1.Print"*";NextjForm1.Print图5-4程序运行结果Nextk图5-4程序运行结果EndSub程序运行结果如图5-4所示：

5．5编写程序，计算下面表达式的值（1）1!+3!+5!+……+(2N+1)!【参考答案】程序代码设计PrivateSubCommand1_Click()n=Val(InputBox("请输入N值"))Sum=1term=1Fork=3To2*n+1Step2term=term*(k-1)*kSum=Sum+termNextkForm1.Print"1!+3!+5!+……+(2N+1)!=";Sum图5-5（1）程序运行结果EndSub图5-5（1）程序运行结果

PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"计算1!+3!+5!+……+(2N+1)!"EndSub运行结果:若n输入的值为5,则程序运行结果如图5-5（1）所示。

（2）1+X/2!+X2/4!+X3/6!+……+XN/(2N)!【参考答案】程序代码设计PrivateSubCommand1_Click()x=Val(InputBox("请输入x值"))n=Val(InputBox("请输入N值"))Sum=1t1=1t2=1Fork=2To2*nStep2t1=t1*xt2=t2*(k-1)*kSum=Sum+t1/t2NextkForm1.Print"1+X/2!+X^2/4!+……+X^N/(2N)!=";SumEndSub

PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"计算1+X/2!+X^2/4!+……+X^N/(2N)!"EndSub运行结果：图5-5（2）程序运行结果若x输入值为：1.5,n输入值为:5,则程序运行结果如图5-5（2）所示。图5-5（2）程序运行结果

（3）1+1×3+1×3×5+……+1×3×……(2N+1)【参考答案】程序代码设计PrivateSubCommand1_Click()n=Val(InputBox("请输入N值"))Sum=1term=1Fork=3To2*n+1Step2term=term*kSum=Sum+termNextkForm1.Print"1+1×3+1×3×5+……+1×3×……(2N+1)=";SumEndSub

PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"计算1+1×3+1×3×5+……+1×3×……(2N+1)"EndSub运行结果:若n输入值为5,则程序运行结果如图5-5（3）所示：

图5-5（3）程序运行结果

图5-5（3）程序运行结果

（4）x-x3/3!+x5/5!-x7/7!+……【参考答案】程序代码设计PrivateSubCommand1_Click()x=Val(InputBox("请输入x值"))Sum=xt1=xt2=1f=1k=1While(t1/t2>0.0001)k=k+2t1=t1*x*xt2=t2*(k-1)*k图5-5（4）程序运行结果f=f*(-1)图5-5（4）程序运行结果Sum=Sum+f*t1/t2WendForm1.Print"x-x^3/3!+x^5/5!-x^7/7!+……=";SumEndSub

PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"计算x-x^3/3!+x^5/5!-x^7/7!+……"EndSub运行结果:若x输入值为:1.5,则程序运行结果如图5-5（4）所示：

（5）1+1/2+1/3+……+1/N（1/N<10-4）【参考答案】程序代码设计PrivateSubForm_Click()Sum=0k=1While(1/k>0.0001)Sum=Sum+1/kk=k+1WendForm1.Print"1+1/2+1/3+……+1/N=";SumEndSub

PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"计算1+1/2+1/3+……+1/N"Form1.Print"单击窗体开始"EndSub程序运行结果如图5-5（5）所示：图5-5（5）程序运行结果

图5-5（5）程序运行结果

5.6由随机函数产生10道一位整数与两位整数相加的加法题，产生的加法题依次显示在屏幕上，每产生一道题后，由用户输入答案，如果答案正确，记10分；如果答案错误，允许第二次输入答案，第二次输入答案正确，记5分，错误记0分。最后给出总得分。【参考答案】程序代码设计PrivateSubForm_Click()s=0Fori=1To10a=Int(10*Rnd)b=Int(10+90*Rnd)str1$="第"&i&"题"&a&"+"&bc=Val(InputBox(str1$&"第一次回答"))Ifa+b=cThens=s+10str2$=str1$&"10分"Elsec=Val(InputBox(str1$&"第二次回答"))Ifa+b=cThens=s+5str2$=str1$&"5分"Elsestr2$=str1$&"0分"EndIfEndIfForm1.Printstr2$NextiForm1.Print"总分";sEndSub

PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"加法题，第一次回答正确10分，"Form1.Print"第二次回答正确5分"Form1.Print"单击窗体开始"EndSub图5-6程序运行结果程序运行结果如图5-6所示：图5-6程序运行结果

5.7编写计算还贷款年限的程序，从贷款的第三年开始还贷，贷款年利按复利计算。贷款额10万元，年利率7%，每年还款数3万元，要求输出经过多少年才能还清贷款，以及最后一年的还款数。【参考答案】程序代码设计PrivateSubForm_Click()DimpAsSinglep=10r=0.07n=0While(p>0)p=p*(1+r)n=n+1Ifn>=3Thenp=p-3WendForm1.Print"还清贷款时间"&n;"年"Form1.Print"最后一年的还款数"&(3+p)&"万"EndSub

PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"贷款额10万元，年利率7%"Form1.Print"计算还贷数据"Form1.Print"单击窗体开始"EndSub图5-7程序运行结果程序运行结果如图5-7所示：图5-7程序运行结果

5.8输入三角形的三条边A、B、C，根据A、B、C的数值判断三角形的性质，并给出如下信息：（1）等边三角形；（2）等腰三角形；（3）任意三角形；（4）不能构成三角形。【参考答案】(1)用户界面设计(2)控件属性设置(略)(3)程序代码设计PrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)If(a=bAndb=c)Thenstr1="等边三角形"ElseIf(a=bOrb=cOrc=a)Thenstr1="等腰三角形"ElseIf(a+b<=cOrb+c<=aOrc+a<=b)Thenstr1="不能构成三角形"Elsestr1="任意三角形"EndIfLabel2.Caption=str1EndSub图5-8程序运行结果程序运行结果如图5-8所示。图5-8程序运行结果

5．9一个球从10米的高处落下，它每次反弹的高度为前一次下落高度的2/3，编写程序计算球第10【参考答案】程序代码设计PrivateSubForm_Click()h=10s=hFori=1To9h=h*2/3s=s+2*hNextis=CInt(100*s)/100Form1.Print"球第10次落地时的总路程为";s;"米"EndSub图5-9程序运行结果

图5-9程序运行结果

PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"计算球第10次落地时的总路程"Form1.Print"单击窗体开始"EndSub程序运行结果如图5-9所示。

5．10编写程序把一个分数化为最简分数。对一个分数化简，实际是要寻找分子N与分母M的最大公因子。【参考答案】程序代码设计PrivateSubCommand1_Click()DimmAsInteger,nAsInteger,uAsInteger,vAsIntegerm=Val(Text1.Text)n=Val(Text2.Text)Ifm>nThenu=m:v=nElsev=m:u=nEndIfDor=uModvu=v:v=rLoopUntilr=0m=m/u:n=n/uLabel2.Caption="化简后分子"&m&",分母"&nEndSub程序运行结果如图5-10所示：图5-10程序运行结果

图5-10程序运行结果

5．11幼儿园的小朋友分吃一堆糖果。第一天吃了一半，又吃了一颗；第二天，同样吃了剩下的一半，又多吃了一颗。到第十天一看，只剩一颗糖果。问原来共有多少颗糖果。【参考答案】程序代码设计PrivateSubForm_Click()num=1Fork=9To1Step-1num=(num+1)*2NextkForm1.Print"糖果数为";numEndSub

PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"计算糖果数"Form1.Print"单击窗体开始"EndSub程序运行结果如图5-11所示：

图5-11程序运行结果

图5-11程序运行结果5．12求解方程X3+Y3-Z3=3，其中X、Y、Z均为正整数，且X、Y、Z均≥1，同时X、Y、Z均≤6。【参考答案】程序代码设计PrivateSubForm_Click()Forx=1To6Fory=1To6Forz=1To6Ifx^3+y^3-z^3=3ThenForm1.Printx;y;zEndIfNextzNextyNextxEndSub图5-12程序运行结果

图5-12程序运行结果PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"解方程X^3+Y^3-Z^3=3"Form1.Print"单击窗体开始"EndSub程序运行结果如图5-12所示：

5．1336块砖，36人搬，男搬4、女搬3、两个小儿抬一砖，要求一次全搬完，问男、女、小儿需若干？方程：x+y+z=364*x+3+y+z/2=36【参考答案】程序代码设计PrivateSubForm_Click()Forx=1To36Fory=1To36Forz=1To36Ifx+y+z=36And4*x+3*y+z/2=36ThenForm1.Printx;y;zEndIfNextzNextyNextxEndSub

PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"男、女、小儿需若干"Form1.Print"单击窗体开始"图5-13程序运行结果EndSub图5-13程序运行结果程序运行结果如图5-13所示：

5．14打印出3～100之间的所有素数（质数）。【参考答案】程序代码设计PrivateSubForm_Click()k=0Forn=3To100Fori=2Ton-1IfnModi=0ThenExitForNextiIfi>n-1Thenk=k+1:PrintFormat(n,"@@@@