2006年春浙江省高等学校计算机等级考试试卷(二级VisualBasic)

12006年春浙江省高等学校计算机等级考试试卷(二级VisualBasic)说明：⑴考生应将所有试题的答案填写在答卷上。其中试题1～试题6，请在答卷上各小题正确选项的对应位置处填“√”；⑵请将你的准考证号的后五位填写在答卷右下角的指定位置内；⑶考试时间为90分钟;试题1（每小题3分，共15分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】界面设计如上图所示，程序运行时要求有以下功能：•按Command1（出题）后随机生成两个两位正整数存入模块级变量a、b且ab，并分别在Label1、Label2中显示，此后Command1不可用；•在Text1中输入结果、按回车后，以消息框显示运算正确与否、累计所完成题数以及做错的题数，Command1恢复为可用；•按Command2（退出）后以消息框显示所完成题数以及做错的题数，退出。【程序】DimnAsInteger,n_errorAsInteger（1）PrivateSubCommand1_Click()a=10+Rnd*89:b=10+Rnd*89IfabThen（2）Label1.Caption=a:Label2.Caption=bn=n+1:Text1.Text=:Command1.Enabled=FalseEndSubPrivateSubText1_(3)(KeyAsciiAsInteger)IfKeyAscii13Then(4)'回车键的ASCII码值为13Ifa-b=Val(Text1.Text)ThenMsgBox(回答正确)ElseMsgBox(回答不正确)n_error=n_error+1EndIfCommand1.Enabled=TrueEndSubPrivateSubCommand2_Click()MsgBox((5))EndEndSub2【供选择的答案】(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、KeyAscii=0D、ExitDo(5)A、共&n&题，错&n_error&题B、共n题，错n_error题C、共+n+题，错+n_error+题D、共&n&题，错&n_error&题试题2（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】输入n后，再输入n个数naaa,,,21，按照下列公式计算s的值并显示。【程序】PrivateFunctionf((6))AsSingleDimiAsIntegerFori=1Ton:f=f+x(i):NextiEndFunctionPrivateSubCommand1_Click()DimnAsInteger,a()AsSingle,iAsIntegerDimvAsSingle,sAsSinglen=InputBox(输入数据个数)(7)Fori=1Tona(i)=InputBox(a(&i&)=,输入各数组元素)Nextiv=f(a,n)/nFori=1Tons=(8)Nexti(9)EndSub【供选择的答案】(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分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】nvavavasnaaavnn2222121)()()(3•图片框控件P1、P2除Name属性外均取缺省值，将鼠标在P1拖动绘制矩形框（边框颜色通过通用对话框指定）：鼠标按下处为矩形左上角，鼠标抬起处为矩形右下角；•鼠标抬起后，将P1中矩形区域内的图象在P2中重新绘制，如下图所示。【程序】(10)PrivateSubP1_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)x1=X:y1=YEndSubPrivateSubP1_MouseUp(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)DimjAsSingle,iAsSingle,jkAsSingle,ikAsSingleDim(11)jk=P2.ScaleWidth/(X-x1):ik=P2.ScaleHeight/(Y-y1)Commondialog1.Action=(12)P1.Line(x1,y1)-(X,Y),Commondialog1.Color,BForj=x1ToXFori=y1ToYc=(13)'读取该点处的颜色值(14)Nexti,jEndSub【供选择的答案】(10)A、DimxAsSingle,yAsSingleB、Dimx2AsSingle,y2AsSingleC、Publicx1AsSingle,y1AsSingleD、Dimx1AsSingle,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-x1)*jk,(i-y1)*ik),cB、P1.Pset((j-x1)*jk,(i-y1)*ik),cC、P2.PSet((i-y1)*ik,(j-x1)*jk),cD、P1.Pset((i-y1)*ik,(j-x1)*jk),c试题4（每小题3分，共9分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】PrivateSubForm_Load()Text1.Text=:List1.ClearEndSub4PrivateSubText1_KeyPress(KAsInteger)DimnAsInteger'IfK=Asc(0)AndK=Asc(9)ThenK=0IfK=13ThenList1.AddItemText1.Text,nn=n+1Text1.Text=EndIfEndSub(15)运行时在文本框控件Text1中依次输入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)单击Command1后输入abc，窗体上显示结果为：A、cbaB、bcaC、abcD、acb(19)单击Command1后输入abcd，窗体上显示结果为：5A、abdcB、cdabC、abcdD、bcad(20)如果将Sub过程f首句改为PrivateSubf(ByvalsAsString)，单击Command1后输入abcd，窗体上显示结果为：A、abdcB、cdabC、abcdD、bcad(21)如果将Sub过程f首句改为PrivateSubf(ByrefsAsString)，单击Command1后输入abcd，窗体上显示结果为：A、abdcB、cdabC、abcdD、bcad试题6（每小题3分，共9分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】PrivateSubCommand1_Click()DimiAsInteger,fnAsBytefn=FreeFileOpene:\aaa.txtForOutputAs#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分)编写过程Command1_Click，用InputBox函数输入100个学生的成绩，统计后依次用标签控件Label1～Label3显示优秀（85～100）、通过（60～84）和未通过（小于60）的人数。试题8(14分)编写程序，界面设计、运行时状态如下图所示，按照下列要求定义各事件过程：⑴在窗体的Load事件过程中设置计时器控件Timer1的Enable属性为False、响应的时间间隔为1秒；⑵单击Command1后计时器开始计时，每隔1秒刷新一次控件Label2(0)～Label2(3)在窗体上所显示的当前时间以及计时开始后所经过的时间。62006年春浙江省高等学校计算机等级考试参考答案（二级VisualBasic）试题1～6(每小题3分)⑴D⑵B⑶A⑷A⑸A⑹A⑺D⑻C⑼B⑽D⑾A⑿C⒀C⒁A⒂B⒃A⒄D⒅A⒆B⒇C(21)B(22)B(23)B(24)A试题7(每题14分)PrivateSubCommand1_Click()DimxAsInteger,iAsInteger,s(3)AsIntegerFori=1To100x=InputBox(x=)ifx=85Thens(1)=s(1)+1ElseIfx=60Thens(2)=s(2)+1Elses(3)=s(3)+1EndIfNextiLabel1.Caption=s(1)Lab