VB测试题谜底.doc

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