VB程序設(shè)計(jì) 習(xí)題及答案第5章 循環(huán)結(jié)構(gòu)程序設(shè)計(jì)

第5章循環(huán)結(jié)構(gòu)程序設(shè)計(jì)

5．1試編程序，打印出自然數(shù)1到20的立方數(shù)?！緟⒖即鸢浮砍绦虼a設(shè)計(jì)PrivateSubForm_Click()Form1.Print"x","x^2"Forx=1To20Form1.Printx,x^2NextxEndSub

PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"打印自然數(shù)1到20的立方數(shù)"Form1.Print"單擊窗體開(kāi)始"EndSub圖5-1程序運(yùn)行結(jié)果程序運(yùn)行結(jié)果如圖5-1所示：圖5-1程序運(yùn)行結(jié)果

5．2試編程序，打印出1到500之間所有偶數(shù)的和?！緟⒖即鸢浮砍绦虼a設(shè)計(jì)PrivateSubCommand1_Click()Sum=0Fork=1To500IfkMod2=0ThenSum=Sum+kNextkForm1.Print"1到500的偶數(shù)和為：";SumEndSub

PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.PrintForm1.Print"打印1到500之間所有偶數(shù)的和"Form1.Print圖5-2程序運(yùn)行結(jié)果EndSub圖5-2程序運(yùn)行結(jié)果程序運(yùn)行結(jié)果如圖5-2所示：

5．3試編寫(xiě)打印下面圖案的源程序。***************【參考答案】程序代碼設(shè)計(jì)PrivateSubCommand1_Click()Fori=1To5Form1.PrintTab(5+i);Forj=iTo5Form1.Print"*";NextjForm1.PrintNextiEndSub程序運(yùn)行結(jié)果如圖5-3所示：

圖5-3程序運(yùn)行結(jié)果

圖5-3程序運(yùn)行結(jié)果5．4試編寫(xiě)打印下面圖案的源程序。*************************

【參考答案】程序代碼設(shè)計(jì)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程序運(yùn)行結(jié)果Nextk圖5-4程序運(yùn)行結(jié)果EndSub程序運(yùn)行結(jié)果如圖5-4所示：

5．5編寫(xiě)程序，計(jì)算下面表達(dá)式的值（1）1!+3!+5!+……+(2N+1)!【參考答案】程序代碼設(shè)計(jì)PrivateSubCommand1_Click()n=Val(InputBox("請(qǐng)輸入N值"))Sum=1term=1Fork=3To2*n+1Step2term=term*(k-1)*kSum=Sum+termNextkForm1.Print"1!+3!+5!+……+(2N+1)!=";Sum圖5-5（1）程序運(yùn)行結(jié)果EndSub圖5-5（1）程序運(yùn)行結(jié)果

PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"計(jì)算1!+3!+5!+……+(2N+1)!"EndSub運(yùn)行結(jié)果:若n輸入的值為5,則程序運(yùn)行結(jié)果如圖5-5（1）所示。

（2）1+X/2!+X2/4!+X3/6!+……+XN/(2N)!【參考答案】程序代碼設(shè)計(jì)PrivateSubCommand1_Click()x=Val(InputBox("請(qǐng)輸入x值"))n=Val(InputBox("請(qǐng)輸入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"計(jì)算1+X/2!+X^2/4!+……+X^N/(2N)!"EndSub運(yùn)行結(jié)果：圖5-5（2）程序運(yùn)行結(jié)果若x輸入值為：1.5,n輸入值為:5,則程序運(yùn)行結(jié)果如圖5-5（2）所示。圖5-5（2）程序運(yùn)行結(jié)果

（3）1+1×3+1×3×5+……+1×3×……(2N+1)【參考答案】程序代碼設(shè)計(jì)PrivateSubCommand1_Click()n=Val(InputBox("請(qǐng)輸入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"計(jì)算1+1×3+1×3×5+……+1×3×……(2N+1)"EndSub運(yùn)行結(jié)果:若n輸入值為5,則程序運(yùn)行結(jié)果如圖5-5（3）所示：

圖5-5（3）程序運(yùn)行結(jié)果

圖5-5（3）程序運(yùn)行結(jié)果

（4）x-x3/3!+x5/5!-x7/7!+……【參考答案】程序代碼設(shè)計(jì)PrivateSubCommand1_Click()x=Val(InputBox("請(qǐng)輸入x值"))Sum=xt1=xt2=1f=1k=1While(t1/t2>0.0001)k=k+2t1=t1*x*xt2=t2*(k-1)*k圖5-5（4）程序運(yùn)行結(jié)果f=f*(-1)圖5-5（4）程序運(yùn)行結(jié)果Sum=Sum+f*t1/t2WendForm1.Print"x-x^3/3!+x^5/5!-x^7/7!+……=";SumEndSub

PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"計(jì)算x-x^3/3!+x^5/5!-x^7/7!+……"EndSub運(yùn)行結(jié)果:若x輸入值為:1.5,則程序運(yùn)行結(jié)果如圖5-5（4）所示：

（5）1+1/2+1/3+……+1/N（1/N<10-4）【參考答案】程序代碼設(shè)計(jì)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"計(jì)算1+1/2+1/3+……+1/N"Form1.Print"單擊窗體開(kāi)始"EndSub程序運(yùn)行結(jié)果如圖5-5（5）所示：圖5-5（5）程序運(yùn)行結(jié)果

圖5-5（5）程序運(yùn)行結(jié)果

5.6由隨機(jī)函數(shù)產(chǎn)生10道一位整數(shù)與兩位整數(shù)相加的加法題，產(chǎn)生的加法題依次顯示在屏幕上，每產(chǎn)生一道題后，由用戶(hù)輸入答案，如果答案正確，記10分；如果答案錯(cuò)誤，允許第二次輸入答案，第二次輸入答案正確，記5分，錯(cuò)誤記0分。最后給出總得分?！緟⒖即鸢浮砍绦虼a設(shè)計(jì)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"單擊窗體開(kāi)始"EndSub圖5-6程序運(yùn)行結(jié)果程序運(yùn)行結(jié)果如圖5-6所示：圖5-6程序運(yùn)行結(jié)果

5.7編寫(xiě)計(jì)算還貸款年限的程序，從貸款的第三年開(kāi)始還貸，貸款年利按復(fù)利計(jì)算。貸款額10萬(wàn)元，年利率7%，每年還款數(shù)3萬(wàn)元，要求輸出經(jīng)過(guò)多少年才能還清貸款，以及最后一年的還款數(shù)?！緟⒖即鸢浮砍绦虼a設(shè)計(jì)PrivateSubForm_Click()DimpAsSinglep=10r=0.07n=0While(p>0)p=p*(1+r)n=n+1Ifn>=3Thenp=p-3WendForm1.Print"還清貸款時(shí)間"&n;"年"Form1.Print"最后一年的還款數(shù)"&(3+p)&"萬(wàn)"EndSub

PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"貸款額10萬(wàn)元，年利率7%"Form1.Print"計(jì)算還貸數(shù)據(jù)"Form1.Print"單擊窗體開(kāi)始"EndSub圖5-7程序運(yùn)行結(jié)果程序運(yùn)行結(jié)果如圖5-7所示：圖5-7程序運(yùn)行結(jié)果

5.8輸入三角形的三條邊A、B、C，根據(jù)A、B、C的數(shù)值判斷三角形的性質(zhì)，并給出如下信息：（1）等邊三角形；（2）等腰三角形；（3）任意三角形；（4）不能構(gòu)成三角形?！緟⒖即鸢浮?1)用戶(hù)界面設(shè)計(jì)(2)控件屬性設(shè)置(略)(3)程序代碼設(shè)計(jì)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="不能構(gòu)成三角形"Elsestr1="任意三角形"EndIfLabel2.Caption=str1EndSub圖5-8程序運(yùn)行結(jié)果程序運(yùn)行結(jié)果如圖5-8所示。圖5-8程序運(yùn)行結(jié)果

5．9一個(gè)球從10米的高處落下，它每次反彈的高度為前一次下落高度的2/3，編寫(xiě)程序計(jì)算球第10【參考答案】程序代碼設(shè)計(jì)PrivateSubForm_Click()h=10s=hFori=1To9h=h*2/3s=s+2*hNextis=CInt(100*s)/100Form1.Print"球第10次落地時(shí)的總路程為";s;"米"EndSub圖5-9程序運(yùn)行結(jié)果

圖5-9程序運(yùn)行結(jié)果

PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"計(jì)算球第10次落地時(shí)的總路程"Form1.Print"單擊窗體開(kāi)始"EndSub程序運(yùn)行結(jié)果如圖5-9所示。

5．10編寫(xiě)程序把一個(gè)分?jǐn)?shù)化為最簡(jiǎn)分?jǐn)?shù)。對(duì)一個(gè)分?jǐn)?shù)化簡(jiǎn)，實(shí)際是要尋找分子N與分母M的最大公因子?！緟⒖即鸢浮砍绦虼a設(shè)計(jì)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="化簡(jiǎn)后分子"&m&",分母"&nEndSub程序運(yùn)行結(jié)果如圖5-10所示：圖5-10程序運(yùn)行結(jié)果

圖5-10程序運(yùn)行結(jié)果

5．11幼兒園的小朋友分吃一堆糖果。第一天吃了一半，又吃了一顆；第二天，同樣吃了剩下的一半，又多吃了一顆。到第十天一看，只剩一顆糖果。問(wèn)原來(lái)共有多少顆糖果?！緟⒖即鸢浮砍绦虼a設(shè)計(jì)PrivateSubForm_Click()num=1Fork=9To1Step-1num=(num+1)*2NextkForm1.Print"糖果數(shù)為";numEndSub

PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"計(jì)算糖果數(shù)"Form1.Print"單擊窗體開(kāi)始"EndSub程序運(yùn)行結(jié)果如圖5-11所示：

圖5-11程序運(yùn)行結(jié)果

圖5-11程序運(yùn)行結(jié)果5．12求解方程X3+Y3-Z3=3，其中X、Y、Z均為正整數(shù)，且X、Y、Z均≥1，同時(shí)X、Y、Z均≤6。【參考答案】程序代碼設(shè)計(jì)PrivateSubForm_Click()Forx=1To6Fory=1To6Forz=1To6Ifx^3+y^3-z^3=3ThenForm1.Printx;y;zEndIfNextzNextyNextxEndSub圖5-12程序運(yùn)行結(jié)果

圖5-12程序運(yùn)行結(jié)果PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"解方程X^3+Y^3-Z^3=3"Form1.Print"單擊窗體開(kāi)始"EndSub程序運(yùn)行結(jié)果如圖5-12所示：

5．1336塊磚，36人搬，男搬4、女搬3、兩個(gè)小兒抬一磚，要求一次全搬完，問(wèn)男、女、小兒需若干？方程：x+y+z=364*x+3+y+z/2=36【參考答案】程序代碼設(shè)計(jì)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"單擊窗體開(kāi)始"圖5-13程序運(yùn)行結(jié)果EndSub圖5-13程序運(yùn)行結(jié)果程序運(yùn)行結(jié)果如圖5-13所示：

5．14打印出3～100之間的所有素?cái)?shù)（質(zhì)數(shù)）?！緟⒖即鸢浮砍绦虼a設(shè)計(jì)PrivateSubForm_Click()k=0Forn=3To100Fori=2Ton-1IfnModi=0ThenExitForNextiIfi>n-1Thenk=k+1:PrintFormat(n,"@@@@