年春季计算机等级考试VB上机考试题.doc

重庆市高等院校非计算机专业计算机等级考试 Visual Basic 2010年第1次考试 上机试卷 第1套 2010年4月24日 一、设计下图所示界面的程序，程序运行后，输入球的半径，单击“球体积”、“球表面积”复选框，根据复选框是否勾选，决定是否在右侧相应的文本框内显示球体积（）和球表面积（）的计算值。（40分，存盘时工程文件名为Ex11nnnn.Vbp，窗体文件名为Ex11nnnn.Frm，其中nnnn为考生准考证号的右4位） 二、编写具有下图所示界面的应用程序，程序运行后，在“起始值”和“结束值”两个文本框中分别输入一个整数（大小不限），单击“计算累加和”按钮，就能在文本框下方的Label控件中显示起始值与结束值之间所有奇数的累加和。（30分，存盘时工程文件名为Ex2nnnn.Vbp，窗体文件名为Ex2nnnn.Frm，其中nnnn为考生准考证号的右4位） 三、程序的功能是：学生成绩数据已经保存在数组a中，学生姓名已经保存在数组b中，单击窗体，就能在窗体上显示成绩最好的学生姓名及其成绩。（30分，要求根据程序代码改错，改错时，不得增加和删除语句。将修改正确的程序存盘，工程文件名为Ex13nnnn.Vbp，窗体文件名为Ex13nnnn.Frm，其中nnnn为考生准考证号的右4位） Private Sub Form_Click() Dim a As Variant, b As String a = Array(85, 77, 92, 66, 44) b = Array(黄玉梅, 朱明霞, 孙家宝, 赵天明, 杨百万) Max = a(0) student = b(0) For i = 1 To 5 If b(i) Max Then Max = a(i)： student = b(i) End If Next i Print 成绩最好的学生是：; student; 考试成绩为：; Max; 分 End SubPrivate Sub Check1_Click() r = Val(Text1.Text) If Check1.Value = 1 Then v = 4 * 3.14159 * r ^ 3 / 3 Text2.Text = v Else Text2.Text = End If End Sub Private Sub Check2_Click() r = Val(Text1.Text) If Check2.Value = 1 Then v = 4 * 3.14159 * r ^ 2 Text3.Text = v Else Text3.Text = End If End Sub 评分标准： 界面设计 15分 保存文件 5分 每个事件过程 10分 第二题 参考代码： Private Sub Command1_Click() X1 = Val(Text1.Text) X2 = Val(Text2.Text) Sum = 0 If X1 X2 Then n = 1 Else n = -1 For i = X1 To X2 Step n If i Mod 2 0 Then Sum = Sum + i End If Next i Label3.Caption = 从 + Text1.Text + 到 + Text2.Text + 之间所有奇数的累加和＝ + Str(Sum) End Sub 评分标准： 界面设计 5分 循环结构正确 5分（控制条件不正确者酌情扣分） 判断条件正确 5分 求和正确 5分 输出格式正确 5分 正确存盘 5分 第三题 改错 参考答案： Private Sub Form_Click() Dim a As Variant, b As Variant a = Array(85, 77, 92, 66, 44) b = Array(黄玉梅, 朱明霞, 孙家宝, 赵天明, 杨百万) Max = a(0) student = b(0) For i = 1 To If a(i) Max Then Max = a(i) student = b(i