浙江省2006年春二级VB考试试卷及答案1

PAGEPAGE112006年春浙江省高等学校计算机等级考试试卷（二级VisualBasic）说明:(1)考生将所有试题的答案填写在答卷上.其中题1～试题6,请在答卷上各

小题正确选项的对应位置处填“√”；（2）请将你的准考证号的后五位填写在答卷右下角的指定位置内；（3）考试时间为90分钟；试题1（每小题3分，共15分）阅读下列程序和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】界面设计如上图所示，程序运行时要求有以下功能：·按Commandl（出题）后随机生成两个两位正整数存入模块级变量a、b且a＞b，并分别在LabellLabe12中显示，此后Commandl不可用；·在Textl中输入结果、按回车后，以消息框显示运算正确与否、累计所完成题数以及做错的题数，Commandl恢复为可用；·按Command2(退出)后以消息框显示所完成题数以及做错的题数，退出。【程序】DimnAsInteger,n_errorAsInteger(1)DimaAsByte,bAsbyte,cAsBytePrivateSubCommand1_Click()a=10+Rnd*89:b=10+Rnd*89Ifa<bThen(2)B、c=a:a=b:b=cLabel1.Caption=a:Label2.Caption=bn=n+1:Text1.Text="":Command1.Enabled=FalseEndSubPrivateSubText1_(3)KeyDown(keyAsciiAsInteger)IfkeyAscii<>13Then(4)ExitSub'回车键的ASCII码值为13Ifa-b=Val(Text1.Text)ThenMsgBox("回答正确")ElseMsgBox("回答不正确")n_error=n_error+1EndIfCommand1.Enabled=TrueEndSubPrivateSubCommand2_Click()MsgBox((5)“共”＆n＆“题，错”＆n_error＆“题”)EndEndSub【供选择的答案】（1）A、’小学生两位数减法训练程序B、a=0:b=0:c=0C、n=0:n_error=0D、DimaAsByte,bAsbyte,cAsByte(2)A、b=a:a=bB、c=a:a=b:b=cC、a=b:b=aD、c=a:b=a:a=c(3)A、KeyPressB、ChangeC、KeyDownD、KeyUp(4)A、ExitSubB、KeyAscii=13C、KeyAsecii=0D、ExitDo(5)A、“共”＆n＆“题，错”＆n_error＆“题”B、“共n题，错n_error题”C、“共”+n+“题，错”＋n_error+“题”D、共＆n“题，错”＆n_error＆“题”试题2（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】输入n后，再输入n个数a1,a2,…，an,按照下列公式计算s的值并显示。(a1-v)(a1-v)2+(a2-v)2+…+(an-v)na1+a2+…annv=s=【程序】PrivateFunctionf((6)x()AsSingle,nAsInteger)AsSingleDimiAsIntegerFori=1Ton:f=f+x(i):NextiEndFunctionPrivateSubcommand1_Click()DimnAsInteger,a()AsSingle,iAsIntegerDimVAsSingle,sAsSinglen=InputBox("输入数据个数")（7）ReDima(n)Fori=1Tona(i)=InputBox("a("&i&")=","输入各数组元素")NextiV=f(a,n)/nFori=1Tons=(8)s+(a(i)-v)^2Nexti(9)Prints^0.5/nEndSub【供选择的答案】（6）A、x()AsSingle,nAsIntegerB、x(n)AsSingleC、aAsSingle,nAsIntegerD、nAsInteger,x()AsSingle（7）A、Dima(n)AsSingleB、ReDima()C、Dima(n)D、ReDima(n)（8）A、(a(i)-v)*(a(i)-v)B、s+a(i)-v^2C、s+(a(i)-v)^2D、(a(i)-v)^2（9）A、s=s^0.5/nB、Prints^0.5/nC、PrintSqr(s)D、Sqr(s)/n试题3（每小题3分，共15分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】·图片框控件P1、P2除Name属性外均取缺省值，将鼠标在P1拖动绘制矩形框（边框颜色通过用对话框指定）：鼠标按下处为矩形左上角，鼠标抬起处为矩形右下角；·鼠标抬起后，将P1中矩形区域内的图象在P2中重新绘制，如下图所示。【程序】(10)DimxlAsSingle,y1AsSinglePrivateSubp1_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)xl=X:y1=YEndSubPrivateSubp1_MouseUp(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)DimjAsSingle,iAsSingle,jkAsSingle,ikAsSingleDim(11)AsLongjk=P2.ScaleWidth/(X-xl):ik=P2.ScaleHeight/(Y-y1)CommonDialog1.Action=(12)3P1.Line(xl,y1)-(X,Y),CommonDialog1.Color,BForj=xlToXFori=y1ToYc=(13)P1.Point(j,i)'读取该点处的颜色值(14)P2.PSet((j-xl)*jk,(i-y1)*ik),cNexti,jEndSub【供选择的答案】（10）A、DimxAsSingle,yAsSingleB、Dimx2AsSingle,y2AsSingleC、PublicxlAsSingle,ylAsSingleD、DimxlAsSingle,y1AsSingle（11）A、cAsLongB、cAsIntegerC、cAsSingleD、cAsDouble（12）A、1B、2C、3D、4（13）A、P1.Pset(j,i)B、P2.Pset(j,i)C、P1.Point(j,i)D、P1.Point(i,j)（14）A、P2.PSet((j-xl)*jk,(i-y1)*ik),cB、P1.Pest((j-xl)*jk,(i-yl)*ik),cC、P2.PSet((i-yl)*ik,(j-xl)*jk),cD、P1.Pset((i-yl)*ik,(j-x1)*jk),c试题4（每小题3分，共9分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】PrivateSubForm_Load()Text1.Text="":List1.ClearEndSubPrivateSubText1_Keypress(KAsInteger)DimnAsInteger'IfK>=Asc("0")Andk<=Asc（"9"）ThenK=0IfK=13ThenList1.AddItemText1.Text,nn=n+1Text1.Text=""EndIfEndSub(15)运行时在文本框控件Textl中依次输入3个以回车结束的字符串“abc34”、“xy12＄”、“+-*/”A、abc34B、+-*/C、abcD、+-*/xy12$xy12$xy$xy$+-*/abc34+-*/abc(16)如果将语句DimnAsInteger用StaticnAsInteger替换，运行时在文本框中依次输入3个以回车结束的字符串“abc34”、“xy12$”、“+-*/”A、abc34B、+-*/C、abcD、+-*/xy12$xy12$xy$xy$+-*/abc34+-*/abc(17)如果将语名DimnAsInteger后一条语句前的注释符删除，运行时在文本框中依次输入3个以回车结束的字符串“abc34”、“xy12$”、“+-*/”A、abc34B、+-*/C、abcD、+-*/xy12$xy12$xy$xy$+-*/abc34+-*/abc试题5（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一正确答案。【程序】PrivateSubf(sAsString)DimiAsInteger,nAsInteger,cAsStringn=Len(s)IfnMod2=1Thenc=Mid(s,n\2+1,1)Fori=1ToLen(s)\2c=Mid(s,Len(s)+1-i,1)+c+Mid(s,i,1)Nextis=cEndSubPrivateSubCommand1_Click()DimxAsStringx=InputBox("x=")Callf(x)PrintxEndSub(18)单击Commandl后输入“abc”，窗体上显示结果为：A、cbaB、bcaC、abcD、acb(19)单击Commandl后输入“abcd”，窗体上显示结果为：A、abdcB、cdabC、abcdD、bcad(20)如果将Sub过程f首句改为PrivateSubf(ByvalSAsString),单击Commandl后输入“abcd”，窗体上显示结果为：A、abdcB、cdabC、abcdD、bcad(21)如果将Sub过程f首句改为PrivateSubf(ByrefSAsString),单击Commandl后输入“abcd”，窗体上显示结果为：A、abdcB、cdabC、abcdD、bcad试题6（每小题3分，共9分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】PrivateSubcommand1_Click()DimiAsInteger,fnAsBytefn=FreeFileOpen"e:/aaa.txt"ForOutputAs#fnFori=1To20IfSqr(i)=Int(Sqr(i))ThenPrint#fn,iNextiClose#fnEndSub(22)如果文件e:/aaa,txt已存在并已有数据1、4，执行以上过程后文件中全部数据为：A、1，4，1，4，9，16B、1，4，9，16C、1，4D、2，4，6，8，10，12，14，16，18（23）如果文件e:/aaa.txt不存在，执行以上过程后文件中全部数据为：A、1，4，1，4，9，16B、1，4，9，16C、空D、2，4，6，8，10，12，14，16，18(24)如果文件e:/aaa,txt已存在并已有数据1、4，且程序中文件打开方式为Append,执行以上过程后文件中全部数据为：A、1，4，1，4，9，16B、1，4，9，16C、1，4D、2，4，6，8，10，12，14，16，18试题7（14分）编写过程Commandl_Click,用InputBox函数输入100个学生的成绩，统计后依次用标签控件Labell～Labe13显示优秀（85-100）、通过（60-84）和未通过（小于60）的人数。试题8（14分）编写程序，界面设计、运行时状态如下图所示，按照下列要求定义各事件过程：（1）在窗体的Load事件过程中设置计时器控制Timerl的Enable属性为False、响应的时间间隔为1秒；（2）单击Commandl后计时器开始计时，每隔1秒刷新一次控制件Labe12（0）～Labe12（3）在窗体上所显示的当前时间以及计时开始后所经过的时间。

2006年春浙江省高等学校计算机等级考试参考答案（二级VisualBasic）试题1-6（每小题3分）（1）D（2）B（3）A（4）A（5）A（6）A（7）D（8）C（9）B（10）D(11)A（12）C（13）C（14）A（15）B（16）A（17）D（18）A（19）B（20）C（21）B（22）B（23）B（