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

重庆市高等院校非计算机专业计算机等级考试VisualBasic2010年第1次考试上机试卷第1套2010年4月24日一、设计下图所示界面的程序，程序运行后，输入球的半径，单击“球体积”、“球表面积”复选框，根据复选框是否勾选，决定是否在右侧相应的文本框内显示球体积（334R）和球表面积（24R）的计算值。（40分，存盘时工程文件名为Ex11nnnn.Vbp，窗体文件名为Ex11nnnn.Frm，其中nnnn为考生准考证号的右4位）二、编写具有下图所示界面的应用程序，程序运行后，在“起始值”和“结束值”两个文本框中分别输入一个整数（大小不限），单击“计算累加和”按钮，就能在文本框下方的Label控件中显示起始值与结束值之间所有奇数的累加和。（30分，存盘时工程文件名为Ex12nnnn.Vbp，窗体文件名为Ex12nnnn.Frm，其中nnnn为考生准考证号的右4位）三、程序的功能是：学生成绩数据已经保存在数组a中，学生姓名已经保存在数组b中，单击窗体，就能在窗体上显示成绩最好的学生姓名及其成绩。（30分，要求根据程序代码改错，改错时，不得增加和删除语句。将修改正确的程序存盘，工程文件名为Ex13nnnn.Vbp，窗体文件名为Ex13nnnn.Frm，其中nnnn为考生准考证号的右4位）PrivateSubForm_Click()DimaAsVariant,bAsStringa=Array(85,77,92,66,44)b=Array(黄玉梅,朱明霞,孙家宝,赵天明,杨百万)Max=a(0)：student=b(0)Fori=1To5Ifb(i)MaxThenMax=a(i)：student=b(i)EndIfNextiPrint成绩最好的学生是：;student;考试成绩为：;Max;分EndSub参考答案及评分标准：第一题参考代码PrivateSubCheck1_Click()r=Val(Text1.Text)IfCheck1.Value=1Thenv=4*3.14159*r^3/3Text2.Text=vElseText2.Text=EndIfEndSubPrivateSubCheck2_Click()r=Val(Text1.Text)IfCheck2.Value=1Thenv=4*3.14159*r^2Text3.Text=vElseText3.Text=EndIfEndSub评分标准：界面设计15分保存文件5分每个事件过程10分第二题参考代码：PrivateSubCommand1_Click()X1=Val(Text1.Text)X2=Val(Text2.Text)Sum=0IfX1X2Thenn=1Elsen=-1Fori=X1ToX2StepnIfiMod20ThenSum=Sum+iEndIfNextiLabel3.Caption=从+Text1.Text+到+Text2.Text+之间所有奇数的累加和＝+Str(Sum)EndSub评分标准：界面设计5分循环结构正确5分（控制条件不正确者酌情扣分）判断条件正确5分求和正确5分输出格式正确5分正确存盘5分第三题改错参考答案：PrivateSubForm_Click()DimaAsVariant,bAsVarianta=Array(85,77,92,66,44)b=Array(黄玉梅,朱明霞,孙家宝,赵天明,杨百万)Max=a(0)student=b(0)Fori=1To4Ifa(i)MaxThenMax=a(i)student=b(i)EndIfNextiPrint成绩最好的学生是：;student;考试成绩为：;Max;分EndSub评分标准：共3处错误，每改一处错误8分（共24分）正确存盘6分重庆市高等院校非计算机专业计算机等级考试VisualBasic2010年第1次考试上机试卷第2套2010年4月24日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位）PrivateSubCommand1_Click()DimscoreAsVariantscore=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=0Fori=1To10Ifscore(i)MaxThenMax=score(i)Ifscore(i)MinThenMin=score(i)Sum=Sum+score(i)Nextiaverage=(Sum-Max-Min)/10Print参赛选手的实际得分：;averageEndSub第一题参考答案：PrivateSubCommand1_Click()r=Val(Text1.Text)v=3.14159*r^2s=2*3.14159*rIfCheck1.Value=1ThenText2.Text=vElseText2.Text=EndIfIfCheck2.Value=1ThenText3.Text=sElseText3.Text=EndIfEndSub评分标准：界面设计15分保存文件5分Check1使用正确10分Check2使用正确10分第二题参考代码：PrivateSubForm_Click()DimhouseAsDouble,studentAsDoublehouse=400000student=1500*12deposit=studentyears=1DoWhiledeposithousehouse=house*1.03student=student*1.1deposit=deposit+studentyears=years+1LoopPrintyearsEndSub评分标准：变量初始化6分循环控制10分计算正确7分输出结果2分存盘正确5分第三题参考答案：PrivateSubCommand1_Click()DimscoreAsVariantscore=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=score(0)Fori=1To9Ifscore(i)MaxThenMax=score(i)Ifscore(i)MinThenMin=score(i)Sum=Sum+score(i)Nextiaverage=(Sum-Max-Min)/8Print参赛选手的实际得分：;averageEndSub评分标准：共3处错误，每改一处错误8分（共24分）正确存盘6分