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

《程序设计语言vb综合设计题及答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

2、图形。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

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

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

5、bPrivateSubCommand2_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))EndS

6、ub3.PrivateSubCommand1_Click()Dima(9),i,j,mAsIntegerFori=0To9a(i)=Val(InputBox("第"&i+1&"个数："))Nexti...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=0ThenT

7、ext1.Text="Hello"EndIfEndSub5.PrivateSubCommand1_Click()Dimi,jAsIntegerFori=1To4Forj=1To(2*i-1)Print"A";NextjPrintNextiFori=4To1Step-1Forj=(2*i-1)To1Step-1Print"B";NextjPrintNextiEndSub6.PrivateSubCommand4_Click()Dimn,k,i,tempAsIntegern=InputBox("请输入一个正整数")...k=Int(Sqr(n))i=2temp=0Do