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

重庆市高等院校非计算机专业计算机等级考试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 IntegerDim x As IntegerDim 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 kx = s / (UBound(a) - LBound(a) )x = Round(x, 2) Print 平均值=; xEnd Sub（30分，要求根据上述程序代码改错，改错时，不得增加和删除语句。将修改正确的程序存盘，工程文件名为Ex13nnnn.Vbp，窗体文件名为Ex13nnnn.Frm，其中nnnn为考生准考证号的右4位）一程序代码：Private Sub Option1_Click() Text3.Text = Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub Option2_Click() Text3.Text = Val(Text1.Text) - Val(Text2.Text)End SubPrivate Sub Option3_Click() Text3.Text = Val(Text1.Text) * Val(Text2.Text)End SubPrivate Sub Option4_Click() If Val(Text2.Text) 0 Then Text3.Text = Val(Text1.Text) / Val(Text2.Text) Else Text3.Text = 除数为0，计算无效 End IfEnd 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 计算结果=; sEnd Sub三、程序改错本程序用于计算Array函数中提供的所有元素的平均值（元素个数不确定，计算结果保留2位小数）Private Sub Form_Click()Dim s As LongDim x As SingleDim a As VariantDim i As IntegerDim 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 平均值=; xEnd 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 所有奇数的平均值=; xEnd 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 & cmEnd SubPrivate Sub Option2_Click() father = Val(Text1.Text) mother = Val(Text2.Text) child = Round(father * 0.923 + mother) / 2, 2) Label6.Caption = Option2.Caption & 长大后的预计身高为： & child & cmEnd 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 计算结果=; sEnd 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 =