程序设计语言VB综合设计题及答案

第1页共7页《程序设计语言VB》综合设计题1.编制程序实现：在窗体上，单击按钮1，在文本框中动态显示当前时间；单击按钮2，则停止动态显示；单击按钮3，清除文本框内容。提示：可用定时器控制时间，用系统函数Now显示时间（如Text1.Text=Now）。2.编制程序：求出100-200之间所有可以被3整除的数的总和，将结果用消息框显示输出。3.编制程序：利用输入框输入10个不同的整数，将它们从小到大排序，并打印输出。4.编制程序实现：设计在一框架中包含三个复选框，只有当其1,3选中而2未选中时，才在Text1中显示Hello字符。5.编一程序能实现在窗体上打印出如下图所示的图形。AAAAAAAAAAAAAAAABBBBBBBBBBBBBBBB6.编一程序用于判断一正整数是否为素数。（提示：只能被1和本身整除的正整数称为素数。为了判断一个数n是不是素数，可以将n被2到sqr(n)之间的所有整数除，如果都除不尽，则n就是素数，否则n是非素数。）7.选用If和Select判断结构中任意一种编写满足下列条件的计税要求的程序：少于1600元，免税；1601-5000元，征2%的税；多于5000元，超过部分征5%的税。8.有a、b、c三个数，编一程序实现通过文本框给a、b赋值；再调用能完成a、b比较大小的子过程，用c将大数回传。要求按值传送a、b。9.编一程序用于求所有的水仙花数。所谓水仙花数是指一个3位数，其各位数字立方和等于该数本身。例如：153就是一水仙花数，因为153=13+53+33。10.设计一弹出式菜单，用于设置窗体的背景色，背景色包含白色、黄色、红色三种颜色。11.编写程序实现：输入三角形的三条边a,b,c的值，根据其数值判断能否构成三角形。如果能，则判断三角形是否是直角三角形，若是则计算该直角三角形的面积。提示：判断能否构成三角形的方法是，求最长的一边，判断它的边长是否小于另外两边边长之和；或求最短的一边，判断它的边长是否大于另外两边之差。12.编写程序：通过四个命令按钮Command1-Command4，在图片框Picture1内分别实现画点、画线、画圆、擦除等功能。13.编写程序实现：在窗体上单击按钮1，可通过输入对话框输入两个字符串；单击按钮第2页共7页2，将输入的两个字符串连接为一个字符串，并计算该字符串长度，然后在消息框中显示出来。14.编一程序：用三个文本框分别输入a、b、c，求一元二次方程ax2+bx+c=0的解x1和x2，只包括实根。15.编一程序：利用输入对话框输入两个正整数，求最大公约数。答案1.PrivateSubCommand1_Click()Timer1.Interval=5Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubCommand3_Click()Timer1.Enabled=FalseText1.Text=EndSubPrivateSubTimer1_Timer()Text1.Text=NowEndSub2.PrivateSubCommand1_Click()Dimi,sAsIntegerFori=100To200IfiMod3=0Thens=s+iNextiMsgBox(100-200之间所有可以被3整除的数的总和为：&Str(s))EndSub3.PrivateSubCommand1_Click()Dima(9),i,j,mAsIntegerFori=0To9a(i)=Val(InputBox(第&i+1&个数：))Nexti第3页共7页Fori=0To9Forj=i+1To9Ifa(i)a(j)Thenm=a(i)a(i)=a(j)a(j)=mEndIfNextjNextiFori=0To9Printa(i);NextiEndSub4.PrivateSubCommand1_Click()IfCheck1.Value=1AndCheck2.Value=1AndCheck3.Value=0ThenText1.Text=HelloEndIfEndSub5.PrivateSubCommand1_Click()Dimi,jAsIntegerFori=1To4Forj=1To(2*i-1)PrintA;NextjPrintNextiFori=4To1Step-1Forj=(2*i-1)To1Step-1PrintB;NextjPrintNextiEndSub6.PrivateSubCommand4_Click()Dimn,k,i,tempAsIntegern=InputBox(请输入一个正整数)第4页共7页k=Int(Sqr(n))i=2temp=0DoWhilei=kAndtemp=0IfnModi=0Thentemp=1Elsei=i+1EndIfLoopIftemp=0ThenPrintn;是一个素数ElsePrintn;不是素数EndIfEndSub7.PrivateSubCommand1_Click()Dimn,pAsSinglen=Val(Text1.Text)SelectCasenCaseIs=1600p=0Case1600To5000p=(n-1600)*0.02CaseElsep=5000*0.02+(n-5000)*0.05EndSelectEndSub8.PrivateSubc1(ByValaAsSingle,ByValbAsSingle,c)IfabThenc=aElsec=bEndSubPrivateSubCommand1_Click()Dima,b,cAsSinglea=Val(Text1.Text)b=Val(Text2.Text)Callc1(a,b,c)第5页共7页PrintcEndSub9.PrivateSubCommand1_Click()Dima,b,c,nAsIntegerForn=100To999a=Int(n/100)b=Int((n-a*100)/10)c=n-(a*100+b*10)Ifn=a^3+b^3+c^3ThenPrintn;NextEndSub10.PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenuMenuAEndIfEndSubPrivateSubB_Click(IndexAsInteger)SelectCaseIndexCase1Form1.BackColor=vbWhiteCase2Form1.BackColor=vbYellowCaseElseForm1.BackColor=vbRedEndSelectEndSub11.PrivateSubCommand1_Click()Dima(2),i,j,mAsIntegerFori=0To2a(i)=Val(InputBox(第&i+1&条边为：))NextiFori=0To2Forj=i+1To2第6页共7页Ifa(i)a(j)Thenm=a(i)a(i)=a(j)a(j)=mEndIfNextjNextiIfa(0)+a(1)a(2)ThenIfa(0)^2+a(1)^2=a(2)^2ThenPrint能构成直角三角形,面积为：&a(0)*a(1)/2ElsePrint能构成三角形，但不是直角三角形EndIfElsePrint不能构成三角形EndIfEndSub12.PrivateSubCommand1_Click()Picture1.PSet(Picture1.Width/2,Picture1.Height/2)EndSubPrivateSubCommand2_Click()Picture1.Line(0,0)-(Picture1.Width,Picture1.Height)EndSubPrivateSubCommand3_Click()Picture1.Circle(Picture1.Width/2,Picture1.Height/2),800EndSubPrivateSubCommand4_Click()Picture1.ClsEndSub13.Dima,b,cAsStringPrivateSubCommand1_Click()a=InputBox(请输入第一个字符串)b=InputBox(请输入第二个字符串)EndSub第7页共7页PrivateSubCommand2_Click()c=a+bMsgBox连接后的字符串为：&c&。长度为：&Len(c)EndSub14.PrivateSubCommand4_Click()a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Ifa=0Thenx=-c/bPrintxElset=b*b-4*a*cIft0ThenPrint无解ElseX1=(-b+Sqr(t))/2/aX2=(-b-Sqr(t))/2/aPrintX1,X2EndIfEndIfEndSub15.PrivateSubCommand1_Click()m=Val(InputBox(第一个数：)):n=Val(InputBox(第二个数：))IfnmThent=m:m=n:n=tEndIfr=m-nDoWhiler0IfnrThent=n:n=r:r=tEndIfm=n:n=r:r=m-nLoopPrintnEndSub