2010年春季计机等级考试VB上机考试题.docVIP

重庆市高等院校非计算机专业计算机等级考试 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 End If Next i Print 成绩最好的学生是：; student; 考试成绩为：; Max; 分 End Sub 重庆市高等院校非计算机专业计算机等级考试 Visual Basic 2010年第1次考试 上机试卷 第2套 2010年4月24日 1．设计右图所示界面的程序，程序运行后，输入圆的半径，单击“圆面积”、“圆周长”复选框，然后单击“计算”按钮，根据复选框是否勾选，决定是否在右侧相应的文本框内显示圆面积和圆周长的计算值。单击“退出”按钮结束程序。（40分，存盘时工程文件名为Ex21nnnn.Vbp，窗体文件名为Ex21nnnn.Frm，其中nnnn为考