《程序设计语言VB综合设计题及答案-.pdf》由会员分享，可在线阅读，更多相关《程序设计语言VB综合设计题及答案-.pdf（7页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、第 1 页 共 7 页程序设计语言VB 综合设计题1.编制程序实现：在窗体上，单击按钮1，在文本框中动态显示当前时间；单击按钮2，则停止动态显示；单击按钮3，清除文本框内容。提示：可用定时器控制时间，用系统函数 Now 显示时间（如Text1.Text=Now）。2.编制程序：求出100-200 之间所有可以被3 整除的数的总和，将结果用消息框显示输出。3.编制程序：利用输入框输入10 个不同的整数，将它们从小到大排序，并打印输出。4.编制程序实现：设计在一框架中包含三个复选框，只有当其1,3 选中而2 未选中时，才在 Text1 中显示 Hello 字符。5.编一程序能实现在窗体上打印出如下
2、图所示的图形。A AAA AAAAA AAAAAAA BBBBBBB BBBBB BBB B 6.编一程序用于判断一正整数是否为素数。（提示：只能被 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 比较大小的子过程
3、，用c 将大数回传。要求按值传送a、b。9.编一程序用于求所有的水仙花数。所谓 水仙花数 是指一个3 位数，其各位数字立方和等于该数本身。例如：153 就是一水仙花数，因为153=13+53+33。10.设计一弹出式菜单，用于设置窗体的背景色，背景色包含白色、黄色、红色三种颜色。11.编写程序实现：输入三角形的三条边a,b,c 的值，根据其数值判断能否构成三角形。如果能，则判断三角形是否是直角三角形，若是则计算该直角三角形的面积。提示：判断能否构成三角形的方法是，求最长的一边，判断它的边长是否小于另外两边边长之和；或求最短的一边，判断它的边长是否大于另外两边之差。12.编写程序：通过四个命令按
4、钮Command1-Command4，在图片框Picture1 内分别实现画点、画线、画圆、擦除等功能。13.编写程序实现：在窗体上单击按钮1，可通过输入对话框输入两个字符串；单击按钮第 2 页 共 7 页2，将输入的两个字符串连接为一个字符串，并计算该字符串长度，然后在消息框中显示出来。14.编一程序：用三个文本框分别输入a、b、c，求一元二次方程ax2+bx+c=0 的解 x1 和x2，只包括实根。15.编一程序：利用输入对话框输入两个正整数，求最大公约数。答案1.Private Sub Command1_Click()Timer1.Interval=5 Timer1.Enabled=Tr
5、ue End Sub Private Sub Command2_Click()Timer1.Enabled=False End Sub Private Sub Command3_Click()Timer1.Enabled=False Text1.Text=End Sub Private Sub Timer1_Timer()Text1.Text=Now End Sub 2.Private Sub Command1_Click()Dim i,s As Integer For i=100 To 200 If i Mod 3=0 Then s=s+i Next i MsgBox(100-200之间所有
6、可以被3 整除的数的总和为：&Str(s)End Sub 3.Private Sub Command1_Click()Dim a(9),i,j,m As Integer For i=0 To 9 a(i)=Val(InputBox(第&i+1&个数：)Next i 第 3 页 共 7 页For i=0 To 9 For j=i+1 To 9 If a(i)a(j)Then m=a(i)a(i)=a(j)a(j)=m End If Next j Next i For i=0 To 9 Print a(i);Next i End Sub 4.Private Sub Command1_Click()
7、If Check1.Value=1 And Check2.Value=1 And Check3.Value=0 Then Text1.Text=Hello End If End Sub 5.Private Sub Command1_Click()Dim i,j As Integer For i=1 To 4 For j=1 To(2*i-1)Print A;Next j Print Next i For i=4 To 1 Step-1 For j=(2*i-1)To 1 Step-1 Print B;Next j Print Next i End Sub 6.Private Sub Comma
8、nd4_Click()Dim n,k,i,temp As Integer n=InputBox(请输入一个正整数)第 4 页 共 7 页k=Int(Sqr(n)i=2 temp=0 Do While i=k And temp=0 If n Mod i=0 Then temp=1 Else i=i+1 End If Loop If temp=0 Then Print n;是一个素数 Else Print n;不是素数 End If End Sub 7.Private Sub Command1_Click()Dim n,p As Single n=Val(Text1.Text)Select Cas
9、e n Case Is b Then c=a Else c=b End Sub Private Sub Command1_Click()Dim a,b,c As Single a=Val(Text1.Text)b=Val(Text2.Text)Call c1(a,b,c)第 5 页 共 7 页Print c End Sub 9.Private Sub Command1_Click()Dim a,b,c,n As Integer For n=100 To 999 a=Int(n/100)b=Int(n-a*100)/10)c=n-(a*100+b*10)If n=a 3+b 3+c 3 Then
10、 Print n;Next End Sub 10.Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=2 Then PopupMenu MenuA End If End Sub Private Sub B_Click(Index As Integer)Select Case Index Case 1 Form1.BackColor=vbWhite Case 2 Form1.BackColor=vbYellow Case Else Form1.BackCol
11、or=vbRed End Select End Sub 11.Private Sub Command1_Click()Dim a(2),i,j,m As Integer For i=0 To 2 a(i)=Val(InputBox(第&i+1&条边为：)Next i For i=0 To 2 For j=i+1 To 2 第 6 页 共 7 页If a(i)a(j)Then m=a(i)a(i)=a(j)a(j)=m End If Next j Next i If a(0)+a(1)a(2)Then If a(0)2+a(1)2=a(2)2 Then Print 能构成直角三角形,面积为：&a
12、(0)*a(1)/2 Else Print 能构成三角形，但不是直角三角形 End If Else Print 不能构成三角形 End If End Sub 12.Private Sub Command1_Click()Picture1.PSet(Picture1.Width/2,Picture1.Height/2)End Sub Private Sub Command2_Click()Picture1.Line(0,0)-(Picture1.Width,Picture1.Height)End Sub Private Sub Command3_Click()Picture1.Circle(Pi
13、cture1.Width/2,Picture1.Height/2),800 End Sub Private Sub Command4_Click()Picture1.Cls End Sub 13.Dim a,b,c As String Private Sub Command1_Click()a=InputBox(请输入第一个字符串)b=InputBox(请输入第二个字符串)End Sub 第 7 页 共 7 页Private Sub Command2_Click()c=a+b MsgBox 连接后的字符串为：&c&。长度为：&Len(c)End Sub 14.Private Sub Command4_Click()a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)If a=0 Then x=-c/b Print x Else t=b*b-4*a*c If t m Then t=m:m=n:n=t End If r=m-n Do While r 0 If n r Then t=n:n=r:r=t End If m=n:n=r:r=m-n Loop Print n End Sub