2007重庆市高等院校非计算机专业计算机等级考试

重庆市高等院校非计算机专业计算机等级考试
Visual Basic 2007年第1次考试
上机试卷第1套
2007年4月21日
一、编写下图所示的四则运算程序，输入第一个数和第二个数之后，单击图中任意一个单选按钮，就能按单选按钮的指示完成计算，并在“计算结果”文本框中输出结果（当第二个数为0，并且选择除法运算时，则在“计算结果”文本框中显示“除数为0，计算无效”）。

（40分，存盘时工程文件名为Ex11nnnn.Vbp，窗体文件名为Ex11nnnn.Frm，其中nnnn 为考生准考证号的右4位）
二、利用下述由多项式组成的近似公式，编程计算指数函数的值，直到最后一项小于10-6为止（x的值由InputBox函数输入）
（30分，存盘时工程文件名为Ex12nnnn.Vbp，窗体文件名为Ex12nnnn.Frm，其中nnnn 为考生准考证号的右4位）
三、本程序用于计算Array函数中提供的所有元素的平均值（元素个数不确定，计算结果保留2位小数）
Private Sub Form_Click()
Dim s As Long, a As Integer
Dim x As Integer
Dim k As Integer, i As Integer
s = 1
a = Array(37, 92, 58, 63, 21, 73, 77, 84, 55, 49)
For k = LBound(a) To UBound(a)
s = s + a(i)
Next k
x = s / (UBound(a) - LBound(a) )
x = Round(x, 2)
Print "平均值="; x
End Sub
（30分，要求根据上述程序代码改错，改错时，不得增加和删除语句。

将修改正确的程序存盘，工程文件名为Ex13nnnn.Vbp，窗体文件名为Ex13nnnn.Frm，其中nnnn为考生准考证号的右4位）
一程序代码：
Private Sub Option1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Option2_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub
Private Sub Option3_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub
Private Sub Option4_Click()
If Val(Text2.Text) <> 0 Then
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
Else
Text3.Text = "除数为0，计算无效"
End If
End Sub
二、
Private Sub Form_Click()
x = Val(InputBox("请输入一个接近于1的小数", "输入"))
s = 1
n = 0
s1 = 1
Do While s1 > 0.000001
n = n + 1
s1 = s1 * x / n
s = s + s1
Loop
Print "计算结果="; s
End Sub
三、程序改错
本程序用于计算Array函数中提供的所有元素的平均值（元素个数不确定，计算结果保留2位小数）
Private Sub Form_Click()
Dim s As Long
Dim x As Single
Dim a As Variant
Dim i As Integer
Dim k As Integer
s = 0
a = Array(37, 92, 58, 63, 21, 73, 77, 84, 55, 49)
For k = LBound(a) To UBound(a)
s = s + a(k)
Next k
x = s / (UBound(a) - LBound(a) + 1)
x = Round(x, 2)
Print "平均值="; x
End Sub
评分标准：
每改正一处错误，得5分，共25分
文件存盘正确，得5分
重庆市高等院校非计算机专业计算机等级考试
Visual Basic 2007年第1次考试
上机试卷第2套
2007年4月21日
一、欧洲科学家用于预测子女身高的计算公式如下：
儿子成年身高(cm)＝(父亲身高＋母亲身高)×1.08/2
女儿成年身高(cm)＝(父亲身高
×0.923＋母亲身高)/2
根据上述计算公式编写下图所示程
序，在文本框中分别输入父亲和母亲
身高之后，单击“男孩”或“女孩”
单选按钮，即在标签Label中输出预
测结果。

（40分，存盘时工程文件名为
Ex21nnnn.Vbp，窗体文件名为
Ex21nnnn.Frm，其中nnnn为考生
准考证号的右4位）
二、编程计算级数的值，直到最后一个级数项的值小于10-6为止。

（30分，存盘时工程文件名为Ex22nnnn.Vbp，窗体文件名为Ex22nnnn.Frm，其中nnnn 为考生准考证号的右4位）
三、本程序用于计算Array函数中提供的所有奇数元素之和（元素个数不确定）
Private Sub Form_Click()
Dim s As Long, x As Integer
Dim a As Integer
Dim k As Integer r
s = 0
num = 1
a = Array(37, 92, 58, 63, 21, 73, 77, 84, 55, 49)
For k = LBound(a) To UBound(a)
If a(k) Mod 2 = 0 Then
s = s + a(k)
num = num + k
End If
Next k
x = s / num
x = Round(x)
Print "所有奇数的平均值="; x
End Sub
（30分，要求根据上述程序代码改错，改错时，不得增加和删除语句。

将修改正确的程序存盘，工程文件名为Ex23nnnn.Vbp，窗体文件名为Ex23nnnn.Frm，其中nnnn为考生准考证号的右4位）
第二套VB上机题参考答案及评分标准
一、
程序代码：
Private Sub Option1_Click()
father = Val(Text1.Text)
mother = Val(Text2.Text)
child = Round((father + mother) * 1.08 / 2, 2)
Label6.Caption = Option1.Caption & "长大后的预计身高为：" & child & "cm" End Sub
Private Sub Option2_Click()
father = Val(Text1.Text)
mother = Val(Text2.Text)
child = Round((father * 0.923 + mother) / 2, 2)
Label6.Caption = Option2.Caption & "长大后的预计身高为：" & child & "cm" End Sub
二、
程序代码：
Private Sub Form_Click()
s = 1
n = 1
s1 = 1
Do While s1 > 0.000001
n = n + 2
s1 = s1 / n / (n - 1)
s = s + s1
Loop
Print "计算结果="; s
End Sub
三、参考答案
Private Sub Form_Click()
Dim s As Long
Dim x As Single
Dim a As Variant
Dim k As Integer
s = 0
num = 0
a = Array(37, 92, 58, 63, 21, 73, 77, 84, 55, 49)
For k = LBound(a) To UBound(a)
If a(k) Mod 2 <> 0 Then
s = s + a(k)
num = num + 1
End If
Next k
x = s / num
x = Round(x, 2)
Print "所有奇数的平均值="; x
End Sub
评分标准：
每改正一处错误，得5分，共25分
文件存盘正确，得5分。