程序设计语言VB综合设计题及答案_vb程序设计题库及答案
程序设计语言VB综合设计题及答案由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb程序设计题库及答案”。
《程序设计语言VB》综合设计题
1.编制程序实现：在窗体上，单击按钮1，在文本框中动态显示当前时间；单击按钮2，则停止动态显示；单击按钮3，清除文本框内容。提示：可用定时器控制时间，用系统函数Now显示时间（如Text1.Text = Now）。
2.编制程序：求出100-200之间所有可以被3整除的数的总和，将结果用消息框显示输出。
3.编制程序：利用输入框输入10个不同的整数，将它们从小到大排序，并打印输出。4.编制程序实现：设计在一框架中包含三个复选框，只有当其1,3选中而2未选中时，才在Text1中显示“Hello”字符。
5.编一程序能实现在窗体上打印出如下图所示的图形。
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比较大小的子过程，用c将大数回传。要求按值传送a、b。
9.编一程序用于求所有的“水仙花数”。所谓“水仙花数”是指一个3位数，其各位数字立方和等于该数本身。例如：153就是一水仙花数，因为153 = 13+53+33。
10.设计一弹出式菜单，用于设置窗体的背景色，背景色包含白色、黄色、红色三种颜色。11.编写程序实现：输入三角形的三条边a,b,c的值，根据其数值判断能否构成三角形。如果能，则判断三角形是否是直角三角形，若是则计算该直角三角形的面积。
提示：判断能否构成三角形的方法是，求最长的一边，判断它的边长是否小于另外两边边长之和；或求最短的一边，判断它的边长是否大于另外两边之差。
12.编写程序：通过四个命令按钮Command1-Command4，在图片框Picture1内分别实现画点、画线、画圆、擦除等功能。
13.编写程序实现：在窗体上单击按钮1，可通过输入对话框输入两个字符串；单击按钮
2，将输入的两个字符串连接为一个字符串，并计算该字符串长度，然后在消息框中显示出来。
14.编一程序：用三个文本框分别输入a、b、c，求一元二次方程ax2+bx+c=0的解x1和x2，只包括实根。
15.编一程序：利用输入对话框输入两个正整数，求最大公约数。
答案
1.Private Sub Command1_Click()
Timer1.Interval = 5
Timer1.Enabled = True 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之间所有可以被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(“
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()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 * i1)To 1 Step-1
Print ”B“;
Next j
Print Next i End Sub
6.Private Sub Command4_Click()
Dim n, k, i, temp As Integer
n = InputBox(”请输入一个正整数“)
k = Int(Sqr(n))
i = 2
temp = 0
Do While i
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 Case n
Case Is
p = 0
Case 1600 To 5000
p =(n5000)* 0.05 End Select End Sub
8.Private Sub c1(ByVal a As Single, ByVal b As Single, c)If a > 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)
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 + b * 10)
If n = a ^ 3 + b ^ 3 + c ^ 3 Then 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.BackColor = 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(”
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(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(Picture1.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(“请输入
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 * bSqr(t))/ 2 / a
Print X1, X2
End If End If End Sub
15.Private Sub Command1_Click()m = Val(InputBox(”
