浙江省高校计算机等级考试复习资料二级VB语言(答案)

《浙江省高校计算机等级考试复习资料——二级VB语言》答案目录2009年春浙江省高等学校计算机等级考试二级VB参考答案..........22008年秋浙江省高等学校计算机等级考试二级VB参考答案..........32008年春浙江省高等学校计算机等级考试参考答案（二级VB）.42007年秋浙江省高等学校计算机等级考试参考答案（二级VB）.52007年春浙江省高等学校计算机等级考试参考答案（二级VB）.7VB上机考试程序调试题样题(填空)参考答案.....................................7VB上机考试程序调试题样题(改错)参考答案.....................................8VB上机考试程序设计题样题参考答案................................................92009年春浙江省高等学校计算机等级考试二级VB参考答案试题1~试题6请在各小题正确选项的对应位置处填“√”（每小题3分，共72分）ABCDABCD(1)√(13)√(2)√(14)√(3)√(15)√(4)√(16)√(5)√(17)√(6)√(18)√(7)√(19)√(8)√(20)√(9)√(21)√(10)√(22)√(11)√(23)√(12)√(24)√试题7（28分）Dima()AsDouble,aveAsDouble,nAsInteger,seitAsDoublePrivateSubCommand1_Click()'输入数据n以及n个数。小计10分DimiAsInteger'1分n=Inputbox(n=)'2分Redima(n)'3分Fori=1Ton'4分a(i)=InputBox(a(&i&)=)NextiEndSubPrivateSubCommand2_Click()'计算、显示平均值。小计7分DimiAsInteger'1分Fori=1Ton'4分ave=ave+a(i)/nNextiText1.Text=ave'2分EndSubPrivateSubCommand3_Click()'计算、显示标准差。小计11分DimiAsInteger'1分Fori=1Ton'5分seit=seit+(a(i)-ave)^2Nextiseit=sqr(seit)/(n-1)'3分Tetx2.Text=seit'2分EndSub2008年秋浙江省高等学校计算机等级考试二级VB参考答案试题1~试题6请在各小题正确选项的对应位置处填“√”（每小题3分，共72分）ABCDABCD(1)√(13)√(2)√(14)√(3)√(15)√(4)√(16)√(5)√(17)√(6)√(18)√(7)√(19)√(8)√(20)√(9)√(21)√(10)√(22)√(11)√(23)√(12)√(24)√试题7（28分）编程，按Command1后用通用对话框确定待输入的文件（格式如下，各行中四个数据分别表示学生姓名以及三门功课成绩），将其中三门课成绩均及格的学生信息按同样的格式输出到文件e:\score.txt。张三,77,86,93李四,77,86,93......PrivateSubCommand1_Click()'声明变量DimnameAsString,k1AsInteger,k2AsInteger,k3AsInteger（2分）'用控件CommonDialog1选择文件CommonDialog1.Action=1（2分）'打开所选文件用于读数据，打开文件e:\score.txt用于写数据OpenCommonDialog1.FileNameForInputAs#1（2分）Opene:\score.txtForOutPutAs#2（2分）'读文件中数据并处理DoWhileNotEof(1)（18分）Input#1,name,k1,k2,k3循环结构6分Ifk1=60Andk2=60Andk3=60Then_Input4分Write#1,name,k1,k2,k3条件4分LoopWrite#4分（Print#扣2分Close#1:Close#2（2分）EndSub2008年春浙江省高等学校计算机等级考试参考答案（二级VB）试题1~试题6请在各小题正确选项的对应位置处填“√”（每小题3分，共72分）ABCDABCD(1)√(13)√(2)√(14)√(3)√(15)√(4)√(16)√(5)√(17)√(6)√(18)√(7)√(19)√(8)√(20)√(9)√(21)√(10)√(22)√(11)√(23)√(12)√(24)√试题7(28分)编程，按Command1可输入有10个实数的数组，调用函数f求他们的平均值V，然后输出其中与V之差的绝对值为最小的那个数组元素。请将答卷上函数过程f（包括形参列表）、事件过程Command1补充完整。PrivateFunctionf(b()AsSingle,nAsInteger)AsSingle'2分DimiAsInteger'1分Fori=1Ton'5分f=f+b(i)Nextif=f/n'2分EndFunctionPrivateSubCommand1_Click()Dima(10)AsSingle,iAsInteger,vAsSingle,xAsSingle,dAsSingle'输入数据(3分)Fori=1To10a(i)=InputBox(a(&i&)=)Nexti'计算平均值v(3分)v=f(a,10)'将与v之差的绝对值为最小的那个数组元素赋值给x。x=a(1):d=Abs(a(1)-v)'2分Fori=2To10IfAbs(a(i)-v)dThend=Abs(a(i)-v)'绝对值2分，其他6分x=a(i)EndIfNextiPrintx'2分EndSub2007年秋浙江省高等学校计算机等级考试参考答案（二级VB）试题1~试题6请在各小题正确选项的对应位置处填“√”（每小题3分，共72分）ABCDABCD(1)√(13)√(2)√(14)√(3)√(15)√(4)√(16)√(5)√(17)√(6)√(18)√(7)√(19)√(8)√(20)√(9)√(21)√(10)√(22)√(11)√(23)√(12)√(24)√试题7（28分）Dima()AsSingle,nAsIntegerPrivateSubForm_Load()Command1.Caption=数据输入(2分)Command2.Caption=计算(2分)EndSubPrivateSubCommand1_Click()'数据输入DimiAsInteger(2分)n=Text1.Text(2分)ReDima(n)(3分)Fori=1Tona(i)=InputBox()(5分)NextiEndSubPrivateSubCommand2_Click()DimyAsSingle,iAsInteger,xAsSingle(1分)x=Text2.Text(1分)y=a(1)(1分)Fori=2Tony=y+a(i)*x^(i-1)(7分)NextiLabel3.Caption=y(2分)EndSub2007年春浙江省高等学校计算机等级考试参考答案（二级VB）试题1～6(每小题3分)⑴B⑵A⑶D⑷C⑸D⑹C⑺B⑻A⑼A⑽B⑾B⑿D⒀A⒁A⒂D⒃B⒄D⒅C⒆C⒇B(21)C(22)A(23)A(24)D试题7(28分)PrivateFunctionsum(ByvalnAsInteger)AsIntegersum=0:n=Abs(n)whilen0sum=sum+nmod10:n=n\10WendEndFunctionPrivateSubCommand1_Click()Dima(10)AsInteger,b(10)AsInteger,iAsIntegerFori=1To10a(i)=InputBox(a(&i&)=):b(i)=sum(a(i))NextiFori=1To8:Printfa(i);;:NextiPrintFori=1To8:Printfb(i);;:NextiEndSubVB上机考试程序调试题样题(填空)参考答案[题1]1.dalt02.dalt=03.Sqr(-dalt)[题2]1.start=Space(21-i)2.Count=19-2*i3.Form1.Printstart;4.Form1.Print[题3]1.52.num3.Trim(i);[题4]1.number(i)2.nasinteger3.number=number*10+7[题5]1.12.-13.x=(x+1)*2[题6]1.22.b=False3.k=k+14.b或b=True[题7]1.dowhilex4orxmod202.ifisprime(i)andisprime(x-i)then3.isprime=true4.ifxmodI=0then[题8]1.n+12.nMod3=1andnMod5=1andnMod7=13.WhilecountN5[题9]1.NotisLeapYear(year)2.yMod403.yMod100=04.yMod4000[题10]1.trim(str(i))2.trim(str(i^2))3.x1=right(x2,len(x1))[题11]1.i\1002.imod103.i=hundred^3+ten^3+one^3[题12]1.i,n2.ifi=sthen3.forI=2tox-1或fori=2tox\24.a(k)=i[题13]1.s=12.DoWhiles1E+163.i=i+1[题14]1.s10002.x3.n+14.n-2[题15]1.sign=-12.193.sign=-sign[题16]1.temp=12.temp3.nfactor(i)4.sum[题17]1.1ToLen(a)2.n+fact(p)3.fact=y[题18]1.len(oldsen)2.lastchar=3.mid(oldsen,i,1)4.ucase(char)[题19]1.salary(i)2.temp-hundred*1003.temp4.totalsalary+salary(i)[题20]1.Len(str1)2.length-13.mid(str1,I,2)4.sum=0VB上机考试程序调试题样题(改错)参考答案[题1]1.fori=9to1step–12.Form1.PrintTrim(Str(i));3.EndSub[题2]1.fortwo=1ton-one2.ifone+two*2+five*5=60then3.nexttwo4.nextone[题3]1.dimkassingle2.fori=1to100step23.k=-1/(i+1)[题4]1.cmn=nfactor(m)/(nfactor(n)*nfactor(m-n))2.nfactor=temp3.Endfunction[题5]1.length=len(str1)2.strright=mid(str1,k,1)3.strleft=mid(str1,length-k+1,1)4.IfstrleftstrrightThen[题6]1.caseisr2.Loopuntiltimes5或LoopWhiletimes=53.Form1.print“正确答案为”&str(r)[题7]1.n=len(Hex)2.temp=Mid(Hex,n-i,1)3.Form1.printHex+“转换为十进制数为”+str(Dec)或Form1.printHex&“转换为十进制数为”&Dec或Form1.printHex;“转换为十进制数为”;Dec[题8]1.Fori=0To92.n=Int(Rnd*90)+103.MsgBox偶数个数：&count[题9]1.a(i)=int(Rnd*100)2.p=a(i)mod103.x(p)=x(p)+