VisualBasic程序设计试卷第页（共NUMPAGES8页）2012年上半年浙江省高等学校计算机等级考试二级VisualBasic程序设计试卷说明(1)本试卷，满分100分；考试时间为90分钟；(2)考生应将所有试题的答案填写在答卷上；(3)程序阅读与填空全部是选择题，请在答卷上的各小题选项的对应位置上填“√”；(4)请将你的准考证号的后五位填写在答卷右下角的指定位置内。一、程序阅读与填空（24小题，每小题3分，共72分）1.阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】计算多项式。【程序】PrivateSubForm_Click()DimaAsSingle,xAsSingle,tAsInteger,yAsSingleDimiAsInteger,nAsIntegern=Val(InputBox("n=")):x=Val(InputBox("x="))Fori=(1)a=Val(InputBox("a("&i&")="))Ifi=0Then(2)Else(3)y=y+(4)NextiPrintyEndSub【供选择的答案】(1)A、1TonB、0TonC、0Ton-1D、1Ton-1(2)A、t=0B、t=1C、t=xD、t=a(3)A、t=xB、t=t^nC、t=1D、t=t*x(4)A、a(i)B、a(i)*tC、a*xD、a*t2.阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】将列表框控件List1所有表项存入Byte类型数组a后，将所有其值等于另外两个数组元素之和的数组元素添加到List2（一个数组元素只能添加一次）。【程序】PrivateSubCommand1_Click()DimiAsByte,jAsByte,kAsByte,nAsByte,xAsBooleann=List1.ListCount(5)Fori=0To(6)a(i+1)=List1.List(i)NextiFori=1Tonx=TrueForj=1TonFork=1TonIf(7)AndxAnda(i)=a(j)+a(k)Then_List2.AddItema(i):(8)NextkNextjNextiEndSub【供选择的答案】(5)A、ReDima(n)AsByteB、Dima(n)C、Dima(n)AsByteD、ReDima(n)(6)A、nB、n+1C、n-1D、ListCount(7)A、i<>jAndi<>kAndj<>kB、i=jAndi=kAndj=kC、i<>jOri<>kOrj<>kD、i=jOri=kOrj=k(8)A、x=NotxB、x=TrueC、x=FalseD、Exit3.阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】运行时单击命令按钮Command1后，调用定时器控件在图片框控件P1中画点、以动画方式逆时针方向绘制一个红色边线的圆。【程序】(9)PrivateSubForm_Load()P1.ScaleMode=3:P1.Height=P1.Width:P1.DrawWidth=2Timer1.Interval=40:Timer1.Enabled=FalseEndSubPrivateSubf(rouAsSingle,saitAsSingle)x=rou*(10)(sait*3.141593/180)y=rou*(11)(sait*3.141593/180)EndSubPrivateSubCommand1_Click()P1.Scale(-100,100)-(100,-100):Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()(12)Callf(80,k):P1.PSet(x,y),RGB(255,0,0):k=k+0.5Ifk>360ThenTimer1.Enabled=FalseEndSub【供选择的答案】(9)A、p1.FillStyle=0B、StaticxAsSingle,yAsSingleC、p1.Color=VbRedD、DimxAsSingle,yAsSingle(10)A、CtanB、TanC、CosD、Sin(11)A、AbsB、SinC、TanD、Cos(12)A、DimkAsDoubleB、DimkAsSingleC、StatickAsDoubleD、StatickAsSingle4.阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序