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

重庆市高等院校非计算机专业计算机等级考试重庆市高等院校非计算机专业计算机等级考试Visual Basic 2010Visual Basic 2010 年第 1 1 次考试上机试卷上机试卷 第第 1 1 套套20102010 年年 4 4 月月 2424 日日一、设计下图所示界面的程序，程序运行后，输入球的半径，单击“球体积”、“球表面积”复选框，根据复选框是否勾选，决定是否在右侧相应的文本框内显示球体积（R）和球表面积（4R）的计算值。（40 分，存盘时工程文件名为Ex11nnnn.Vbp，窗体文件名为 Ex11nnnn.Frm，其中 nnnn 为考生准考证号的右4 位）2433二、编写具有下图所示界面的应用程序，程序运行后，在“起始值”和“结束值”两个文本框中分别输入一个整数（大小不限），单击“计算累加和”按钮，就能在文本框下方的Label 控件中显示起始值与结束值之间所有奇数的累加和。（30 分，存盘时工程文件名为Ex12nnnn.Vbp，窗体文件名为 Ex12nnnn.Frm，其中 nnnn 为考生准考证号的右4 位）三、程序的功能是：学生成绩数据已经保存在数组a 中，学生姓名已经保存在数组b 中，单击窗体，就能在窗体上显示成绩最好的学生姓名及其成绩。（30 分，要求根据程序代码改错，改错时，不得增加和删除语句。将修改正确的程序存盘，工程文件名为Ex13nnnn.Vbp，窗体文件名为 Ex13nnnn.Frm，其中 nnnn 为考生准考证号的右4 位）Private Sub Form_Click()Dim a As Variant,b As Stringa=Array(85,77,92,66,44)b=Array(黄玉梅,朱明霞,孙家宝,赵天明,杨百万)Max=a(0)：student=b(0)For i=1 To 5Ifb(i)Max ThenMax=a(i)：student=b(i)End IfNext iPrint 成绩最好的学生是：;student;考试成绩为：;Max;分End Sub参考答案及评分标准：第一题参考代码Private Sub Check1Click()r=Val(Text1.Text)If Check1.Value=1 Thenv=4*3.14159*r 3/3Text2.Text=vElseText2.Text=End IfEnd SubPrivate Sub Check2_Click()r=Val(Text1.Text)If Check2.Value=1 Thenv=4*3.14159*r 2Text3.Text=vElseText3.Text=End IfEnd Sub评分标准：界面设计15 分保存文件5 分每个事件过程10 分第二题参考代码：Private Sub Command1_Click()X1=Val(Text1.Text)X2=Val(Text2.Text)Sum=0If X1 X2 Then n=1 Else n=-1For i=X1 To X2 Step nIf i Mod 2 0 ThenSum=Sum+iEnd IfNext iLabel3.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 Varianta=Array(85,77,92,66,44)b=Array(黄玉梅,朱明霞,孙家宝,赵天明,杨百万)Max=a(0)student=b(0)For i=1 To 4Ifa(i)Max ThenMax=a(i)student=b(i)End IfNext iPrint 成绩最好的学生是：;student;考试成绩为：;Max;分End Sub评分标准：共 3 处错误，每改一处错误正确存盘8 分（共 24 分）6 分重庆市高等院校非计算机专业计算机等级考试重庆市高等院校非计算机专业计算机等级考试Visual Basic 2010Visual Basic 2010 年第 1 1 次考试上机试卷上机试卷 第第 2 2 套套20102010 年年 4 4 月月 2424 日日1设计右图所示界面的程序，程序运行后，输入圆的半径，单击“圆面积”、“圆周长”复选框，然后单击“计算”按钮，根据复选框是否勾选，决定是否在右侧相应的文本框内显示圆面积和圆周长的计算值。单击“退出”按钮结束程序。（40 分，存盘时工程文件名为 Ex21nnnn.Vbp，窗体文件名为Ex21nnnn.Frm，其中 nnnn 为考生准考证号的右4 位）2假设目前房价为4000 元/平方米，每年上涨3%；大学毕业生的起点工资为1500 元/月，每年增长 10%。编程计算，在不考虑生活开销的情况下，大学生完全依靠自己的积蓄，至少需要工作多少年才能买到一套100 平方米的住房？（30 分，存盘时工程文件名为Ex22nnnn.Vbp，窗体文件名为 Ex22nnnn.Frm，其中 nnnn 为考生准考证号的右4 位）3程序的功能是：10 个评委的评分数据已经保存在数组 a 中，单击窗体，就能去掉一个最高分，去掉一个最低分，然后计算平均值，作为参赛选手的实际得分，并在窗体上输出。（30 分，要求根据程序代码改错，改错时，不得增加和删除语句。将修改正确的程序存盘，工程文件名为 Ex23nnnn.Vbp，窗体文件名为 Ex23nnnn.Frm，其中 nnnn 为考生准考证号的右 4 位）Private Sub Command1_Click()Dim score As Variantscore=Array(93.88,91.77,92.66,94.55,90.99,96.11,97.22,99.01,98,93.33)Max=score(0)Min=score(0)Sum=0For i=1 To 10If score(i)Max Then Max=score(i)If score(i)Min Then Min=score(i)Sum=Sum+score(i)Next iaverage=(Sum-Max-Min)/10Print 参赛选手的实际得分：;averageEnd Sub第一题参考答案Private Sub Command1_Click()r=Val(Text1.Text)v=3.14159*r 2s=2*3.14159*rIf Check1.Value=1 ThenText2.Text=vElseText2.Text=End IfIf Check2.Value=1 ThenText3.Text=sElseText3.Text=End IfEnd Sub评分标准：界面设计15 分保存文件5 分Check1 使用正确10 分Check2 使用正确10 分第二题参考代码：Private Sub Form_Click()Dim house As Double,student As Doublehouse=400000student=1500*12deposit=studentyears=1Do While deposit Max Then Max=score(i)If score(i)Min Then Min=score(i)Sum=Sum+score(i)Next iaverage=(Sum-Max-Min)/8Print 参赛选手的实际得分：;averageEnd Sub评分标准：共 3 处错误，每改一处错误8 分（共 24 分）正确存盘6 分