VisualBasic程序设计试卷第页（共NUMPAGES9页）2011年下半年浙江省高等学校计算机等级考试二级VisualBasic程序设计试卷说明(1)本试卷，满分100分；考试时间为90分钟；(2)考生应将所有试题的答案填写在答卷上；(3)程序阅读与填空全部是选择题，请在答卷上的各小题选项的对应位置上填“√”；(4)请将你的准考证号的后五位填写在答卷右下角的指定位置内。一、程序阅读与填空（24小题，每小题3分，共72分）1.阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】输入1个大于2的整数，判断其是否可分解为2个大于1的整数的乘积。如：输入8，则输出“2*4=8”；输入7，则输出“不可分解”【程序】PrivateSubCommand1_Click()DimmAsInteger,iAsIntegerDom=InputBox("m=")Loop(1)Fori=2ToSqr(m)If(2)ThenPrinti;"*";m/i;"=";m:(3)NextiIf(4)ThenPrint"不可分解"EndSub【供选择的答案】(1)A、Untilm<2B、Whilem<=2C、Whilem>2D、Untilm<>2(2)A、mModi=0B、m/i=0C、m\i=0D、mModi<>0(3)A、ExitDoB、i=i+1C、m=m/iD、ExitFor(4)A、i>mB、i<=Sqr(m)C、i>Sqr(m)D、i<Sqr(m)2.阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】列表框控件List1、List2中数据各自按值从小到大排列如下图左所示，运行时执行Command1_Click可将这些数据仍按值从小到大合并到List3、如下图右所示【程序】PrivateSubCommand1_Click()DimiAsIntegerDoIfVal(List1.List(0))<Val(List2.List(0))ThenList3.AddItemList1.List(0):List1.(5)ElseList3.AddItem(6):List2.RemoveItem0EndIfLoopUntilList1.ListCount=0(7)IfList1.ListCount<>0ThenFori=0ToList1.ListCount-1List3.AddItemList1.List(i)NextiList1.ClearElseFori=0ToList2.ListCount-1List3.AddItem(8)NextiList2.ClearEndIfEndSub【供选择的答案】(5)A、RemoveItem0B、RemoveItemC、ClearD、ListCount-1(6)A、List2.List(0)B、List1.List(0)C、List(0)D、List2.List(7)A、AndList2.ListCount<>0B、OrList2.ListCount<>0C、AndList2.ListCount=0D、OrList2.ListCount=0(8)A、List1.List(i)B、List1.List(0)C、List2.List(0)D、List2.List(i)3.阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】运行时输入各部门月销售额后单击命令按钮，图片框控件P1将显示各部门销售额圆饼图（如下图所示），图中分别用红、绿、蓝显示A、B、C部门的扇形填充色。【程序】PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingle,xAsSingleP1.(9)(-10,10)-(10,-10)a=Text1.Text:b=Text2.Text:c=Text3.Textx=2*3.141593/(a+b+c)P1.FillColor=RGB(255,0,0)P1.Circle(0,0),8,,-2*3.141593,(10)P1.FillColor=RGB(0,255,0)P1.Circle(0,0),8,,-a*x,-(a+b)*xP1.FillColor=(11)P1.Circle(0,0),8,,-(a+b)*x,-2*3.141593EndSubPrivateSubForm_Load()P1.FillStyle=(12)EndSub【供选择的答案】(9)A、ScaleModeB、LineC、Scale