VB测试题答案.doc

第 6 页 共 6 页
1题；设计应用程序，输入圆柱体的底面半径和高，求底面积、侧面积、体积。要求：
1）程序中将π定义成符号常量。
2）将输入的底面半径和高分别存于单精度变量r和h中。（窗体文件名A1.FRM，工程文件名A1.VBP）
Const pi As Single = 3.1415926
Private Sub Command1_Click()
Dim h As Single
Dim r As Single
h = Val(Text1.Text)
r = Val(Text2.Text)
Text3.Text = Format(pi * r ^ 2, "0.000")
Text4.Text = Format(2 * pi * r * h, "0.000")
Text5.Text = Format(pi * r ^ 2 * h, "0.000")
End Sub
2题；用块结构条件语句实现。要求用InputBox函数输入三个数，找出并输出三个数中的最大数及最小数。（窗体文件名A2.FRM，工程文件名A2.VBP）
Private Sub Form_Click()
Dim Max As Integer, Min As Integer, a(1 To 3) As Integer
For i = 1 To 3
a(i) = Val(InputBox("请输入数值", "找出最大和最小值", "0"))
Next i
Max = a(1)
Min = a(1)
For i = 1 To 3
If a(i) > Max Then
Max = a(i)
End If
If a(i) < Min Then
Min = a(i)
End If
Next i
MsgBox "最大值是:" & Max & "最小值是:" & Min
End Sub
3题；设计界面如图所示，滚动条代表温度值，最小值是摄氏0度（华氏32度），最大值是摄氏100度（华氏212度）。编写程序，当程序运行时，当移动滚动条时，在标签中能正确显示摄氏、华氏温度值，其中摄氏温度C与华氏温度F的关系为：C=5（F-32）/9。
（窗体文件名A3.FRM，工程文件名A3.VBP）
Private Sub Form_Load()
Label8.Caption = VScroll1.Value
Label7.Caption = (212 - 32) / 100 * VScroll1.Value + 32
End Sub
Private Sub VScroll1_Change()
Label8.Caption = VScroll1.Value
Label7.Caption = (212 - 32) / 100 * VScroll1.Value + 32
End Sub
Private Sub VScroll1_Scroll()
Label8.Caption = VScroll1.Value
Label7.Caption = (212 - 32) / 100 * VScroll1.Value + 32
End Sub
4题：设计界面如图所示。单击“出题”按钮，产生任意两个[10，50]之间的随机整数于Text1、Text2中，单击“求积”按钮，求两个数的积。运算结果为只读。（窗体文件名B2.FRM，工程文件名B2.VBP）
Private Sub Command1_Click()
Dim x As Integer, y As Integer
Randomize
x = Int(41 * Rnd + 10)
y = Int(41 * Rnd + 10)
Text1.Text = x
Text2.Text = y
End Sub
Private Sub Command2_Click()
Text3.Text = Format(Val(Text1.Text) * Val(Text2.Text))
End Sub
5题：编写程序实现如下功能：程序运行后，单击“体重指数”按钮，则先后显示两个输入对话框，在两个输入对话框中分别输入身高(单位：米)和体重（单位:千克），使输入的值在相应的文本框中显示出来，并根据所输入的身高和体重计算体重指数，计算结果通过消息框输出。运行结果如图所示。（窗体文件名B3.FRM，工程文件名B3.VBP）
重要提示：体重指数 = 体重 ÷（身高 × 身高）。
Private Sub Command1_Click()
Dim A As Single, B As Single, T As Single
A = Val(Text1.Text)
B = Val(Text2.Text)
T = B / (A ^ 2)
MsgBox "您的体重指数为：" & Format(T, "0.0"), , "SJT1"
End Sub
6题：设计如图所示界面，单击两个命令按钮后分别在文本框中输出N的阶乘和（N+2）的阶乘的运算结果。（窗体文件名C1.FRM，工程文件名C1.VBP）
Dim N As Long, X As Long
Private Sub Command1_Click()
N = Val(Text1.Text)
X = 1
For i = 1 To N
X = X * i
Next i
Text2.Text = X
End Sub

Private Sub Command2_Click()
N = Val(Text1.Text)
X = 1
For i = 1 To (N + 2)
X = X * i
Next i
Text3.Text = X
End Sub
7题：用Select Case语句实现。在文本框输入任意一个整数x，根据其除以3的余数判断并输出结果。（窗体文件名C2.FRM，工程文件名C2.VBP）
如果余数为0，则消息框输出 str(x) & “整除3”
如果余数为1，则消息框输出 str(x) & “除以3余1”
如果余数为2，则消息框输出 str(x) & “除以3余2”
Private Sub Command1_Click()
Dim X As Integer
X = Val(Text1.Text)
Select Case X Mod 3
Case 0
MsgBox Str(X) & "整除3"
Case 1
MsgBox Str(X) & "除以3余1"
Case 2
MsgBox Str(X) & "除以3余2"
End Select
End Sub
8题：设计图示界面， 实现每过1秒钟，文本框的背景颜色能够由红转绿交替变化。（窗体文件名C3.FRM，工程文件名C3.VBP）
Private Sub Timer1_Timer()
If Text1.BackColor = vbRed Then
Text1.BackColor = vbGreen
Else
Text1.BackColor = vbRed
End If
End Sub
9题：用文本框输入一个正整数，判断能否同时被3、5、7整除，若能整除，则用标签输出“能同时被3、5、7整除”，否则输出“不能整除”。（窗体文件名D1.FRM，工程文件名D1.VBP）
Private Sub Command1_Click()
Dim x As String
x = Val(Text1.Text)
If (x Mod 3 = 0 And x Mod 5 = 0 And x Mod 7 = 0) Then
Label2.Caption = "能同时被3、5、7整除"
Else
Label2.Caption = "不能整除"
End If
End Sub
10题：用InputBox函数输入4个正整数，用消息框(Msgbox函数)输出四个数中的奇数和、偶数和。举例如下：如输入12，35，46，79，则奇数和为114，偶数和为58。（窗体文件名D2.FRM，工程文件名D2.VBP）
Private Sub Form_Click()
Dim A(1 To 4) As Integer
b = 0
d = 0
For i = 1 To 4
A(i) = Val(InputBox("请输入第" & Str(i) & "个数", "请输入数字", "0"))
Next i
For i = 1 To 4
If (A(i) Mod 2 = 0) Then
b = b + A(i)
Else
d = d + A(i)
End If
Next i
MsgBox "偶数的和=" & b & "奇数的和=" & d
End Sub
11题：设计一个程序，用户界面如下图所示。程序运行后，单击Command1按钮，求出最大、最小数。（窗体文件名D3.FRM，工程文件名D3.VBP）
Private Sub Command1_Click()
Dim Max As Integer, Min As Integer, D(1 To 3) As Integer
a = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
D(1) = a
D(2) = B
D(3) = C
Max = D(1)
Min = D(1)
For i = 1 To 3
If D(i) > Max Then
Max = D(i)
End If
If D(i) < Min Then
Min = D(i)
End If
Next i
Text4.Text = Max
Text5.Text = Min
End Sub