【试卷】程序设计语言VB综合设计题及答案

1、程序设计语言VB综合设计题1 .编制程序实现：在窗体上，单击按钮1,在文本框中动态显示当前时间；单击按钮2,则停止动态显示；单击按钮3,清除文本框内容。提示：可用定时器控制时间，用系统函数Now显示时间（如Textl.Text=Now）。2 .编制程序：求出100-200之间所有可以被3整除的数的总和，将结果用消息框显示输出。3 .编制程序：利用输入框输入10个不同的整数，将它们从小到大排序，并打印输出。4 .编制程序实现：设计在一框架中包含三个复选框，只有当其1,3选中而2未选中时，才在Text1中显示Hello字符。5 .编一程序能实现在窗体上打印出如下图所示的图形。AAAAAAAAAAA

2、AAAAABBBBBBBBBBBBBBBB6 .编一程序用于判断一正整数是否为素数。（提示：只能被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、bo9 .编一程序用于求所有的水仙花数。所谓水仙花数

3、是指一个3位数，其各位数字立方和等于该数本身。例如：153就是一水仙花数，因为153=13+53+33o10.设计一弹出式菜单，用于设置窗体的背景色，背景色包含白色、黄色、红色三种颜色。11 .编写程序实现：输入三角形的三条边a,b,c的值，根据其数值判断能否构成三角形。如果能，则判断三角形是否是直角三角形，若是则计算该直角三角形的面积。提示：判断能否构成三角形的方法是，求最长的一边，判断它的边长是否小于另外两边边长之和；或求最短的一边，判断它的边长是否大于另外两边之差。12 .编写程序：通过四个命令按钮Command1-Command4E图片框Picture1内分别实现画点、画线、画圆、擦除

4、等功能。13 .编写程序实现：在窗体上单击按钮1,可通过输入对话框输入两个字符串；单击按钮2,将输入的两个字符串连接为一个字符串，并计算该字符串长度，然后在消息框中显示出来。14 .编一程序：用三个文本框分别输入a、b、c,求一元二次方程ax2+bx+c=0的解x1和x2,只包括实根。15 .编一程序：利用输入对话框输入两个正整数，求最大公约数。答案1. PrivateSubCommand1_Click()Timerl.Interval=5Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubP

5、rivateSubCommand3_Click()Timer1.Enabled=FalseText1.Text=EndSubPrivateSubTimer1_Timer()Text1.Text=NowEndSub2. PrivateSubCommand1_Click()Dimi,sAsIntegerFori=100To200IfiMod3=0Thens=s+iNextiMsgBox(100-200之间所有可以被3整除的数的总和为：&Str(s)3. PrivateSubCommand1_Click()Dima(9),i,j,mAsIntegerFori=0To9a(i)=Val(InputBo

6、x(第&i+1&个数：)NextiFori=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=HelloEndSub5. PrivateSubCommand1_Click()Dimi,jAsIntegerFori=1To4Forj=1To(2*i-1)PrintA;Nex

7、tjPrintNextiFori=4To1Step-1Forj=(2*i-1)To1Step-1PrintB;NextjPrintNextiEndSub6. PrivateSubCommand4_Click()Dimn,k,i,tempAsIntegern=InputBox(请输入一个正整数)k=Int(Sqr(n)i=2temp=0DoWhilei=kAndtemp=0IfnModi=0Thentemp=1Else1 =i+1EndIfLoopIftemp=0ThenPrintn;是一个素数ElsePrintn;不是素数EndIfEndSub7. PrivateSubCommand1_Cli

8、ck()Dimn,pAsSinglen=Val(Textl.Text)SelectCasenCaseIsbThenc=aElsec=bEndSubPrivateSubCommand1_Click()Dima,b,cAsSinglea=Val(Text1.Text)b=Val(Text2.Text)Callc1(a,b,c)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八3Then

9、Printn;NextEndSub10. PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenuMenuAEndIfEndSubPrivateSubB_Click(IndexAsInteger)SelectCaseIndexCase 1Forml.BackColor=vbWhiteCase 2Forml.BackColor=vbYellowCaseElseForml.BackColor=vbRedEndSelect11. PrivateSubComma

10、nd1_Click()Dima(2),i,j,mAsIntegerFori=0To2a(i)=Val(InputBox(第&i+1&条边为：)NextiFori=0To2Forj=i+1To2Ifa(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不能构成三角形EndSub12. PrivateSubCommand1_Click

11、()Picturel.PSet(Picturel.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(请输入第二个字符串)EndSubPrivateSubCommand2_Click()c=a+bMsgBox连接后的字符串为：&c&。长度为：&Len(c)EndSub14. PrivateSubCommand4_Cli