高等学校计算机等级考试试卷(二级VisualBasic)

《高等学校计算机等级考试试卷(二级VisualBasic)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、2006年春浙江省高等学校计算机等级考试试卷(二级VisualBasic)说明：⑴考生应将所有试题的答案填写在答卷上。其中试题1〜试题6,请在答卷上各小题正确选项的对应位置处填“V”；(2)请将你的准考证号的后五位填写在答卷右下角的指定位置内；(3)考试时间为90分钟；试题1(每小题3分，共15分)阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】界面设计如上图所示，程序运行时要求有以下功能：・按Command1(出题)后随机生成两个两位正整数存入模块级变量a、b且a〉b,并分别在Label1Labe1

2、2中显示,此后Command1不可用；・在Tcxtl>P输入结果、按冋车后，以消息框显示运算正确与否、累计所完成题数以及做错的题数，Command1恢复为可用；•按Command2(退出)后以消息框显示所完成题数以及做错的题数，退出。【程序】DimnAsInteger,n_errorAsInteger⑴PrivateSubCommandl_Click()a=10+Rnd*89:b=10+Rnd*89Ifa

3、.Enabled=FalseEndSubPrivateSubText1_(3)(KeyAsciiAsInteger)IfKeyAscii<>13Then1冋车键的ASCII码值为13Ifa-b=Vai(Text1.Text)ThenMsgBox「回答正确”)ElseMsgBox(”冋答不正确”)n_error=n_error+1EndIfCommandl.Enabled=TrueEndSubPrivateSubCommand2_Click()MsgEox((_5j)EndEndSub【供选择的答案】⑴A、’小学生两位数减法训练程序B、a

4、=0:b=0:c=0C、n=0:n_error=0D、DimaAsByte,bAsByte,cAsByte⑵A、b=3.:B、c=a:a=b:b=cC、a—biD、c=a:b=a:a二c⑶A、KeyPressB、ChangeC、KeyDownD、KeyUp⑷A、ExitSubB、KeyAscii=13C、KeyAscii=0D、ExitDo⑸A、”共”&n&”题，错”&nerror&“题ffB>"共n题，错n_error题”C、”共”+n+”题，错”+n_error+”题”D、共&n&”题，错”&nerror&"题”试题2（每小题3分，

5、共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】输入n后，再输入n个数①卫2,…，①，按照下列公式计算s的值并显示。_6?!+iZ2+•••+an_J(d]_#)〜+(°2_V)，+(an~V)2V—s=nn【程序】PrivateFunctionf((_6_))AsSingleDimiAsIntegerFori=1Ton:f=f+x(i):NextiEndFunctionPrivateSubCommandl_Click()DimnAsInteger,a()AsSingle,iAsIntege

6、rDimvAsSingle,sAsSinglen=InputBox(n输入数据个数”)Fori1Tonf，,”输入各数组元素”）a(i)=InputBox(na(H&i&Nextiv=f(a,n)/nFori=1Tons=(8)Nexti(9)EndSub【供选择的答案】(6)A、x()AsSingle,nAsTntegerB>x(n)AsSingleD、nAsInteger,x()AsSingleC、aAsSingle,nAsTnteger(7)A、Dima(n)AsSingleB、ReDima()CnDima.(n)D、ReDima

7、(n)⑻A、(a(i)-v)*(a(i)-v)B、s+a(i)~v2C、s+(a(i)-v)2D、(a(i)-v)^2⑼A、s=s0.5/nPrints0.5/nC^PrintSqr(s)D、Sqr(s)/n试题3（每小题3分，共15分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】•图片框控件Pl、P2除Name属性外均収缺省值，将鼠标在P1拖动绘制矩形框（边框颜色通过通用对话框指定）：鼠标按下处为矩形左上角，鼠标抬起处为矩形右下角；•鼠标抬起后，将P1中矩形区域内的图象在P2中重新绘制，如下图所

8、示。【程序】(10)PrivateSubPl_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)xl=X:y1=YEndSubPriv