资源描述：
《计算机等级考试试卷(二级visual basic )》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、2007年春浙江省高等学校计算机等级考试试卷(二级VisualBasic)说明：⑴考生应将所有试题的答案填写在答卷上。其中试题1～试题6，请在答卷上各小题正确选项的对应位置处填“√”；⑵请将你的准考证号的后五位填写在答卷右下角的指定位置内；⑶考试时间为90分钟;试题1（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】单击窗体后输入1个不小于6的正整数，然后输出该数所有的质数因子（如输入6则输出“23”，输入60则输出“2235”，等等）。【程序】PrivateSubf((1))DimiAsIntegeri=2DoWhi
2、le(2)If(3)Thenk=k/i:Printi;Elsei=i+1LoopEndSubPrivateSubForm_Click()DimnAsIntegerDon=InputBox("n=")Loop(4)Callf(n)PrintEndSub【供选择的答案】(1)A、nAsIntegerB、kAsIntegerC、ByvalnAsByteD、IAsInteger(2)A、k>1B、k>=1C、k=1D、kModi=0(3)A、ki=0B、ki*i=0C、nModi=0D、(ki)*i=k(4)A、Untiln>6B、Whilen>=6C、Untiln>=6D、W
3、hilen>6试题2（每小题3分，共15分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】统计鼠标单击图片框控件P1中两个同心圆所围成黑色区域的次数：首次单击Command11CreatePDFwithGO2PDFforfree,ifyouwishtoremovethisline,clickheretobuyVirtualPDFPrinter将统计结果请零、P1可用，再次单击则以消息框显示统计结果、P1不可用。DimnAsIntegerPrivateSubCommand1_Click()IfCommand1.Caption="开始"The
4、nCommand1.Caption="显示"P1.Enabled=True:n=0ElseCommand1.Caption=(5)P1.Enabled=False:MsgBox("单击该区域"+(6)+"次")EndIfEndSubPrivateSubForm_Activate()P1.Width=P1.HeightP1.Scale(-3,3)-(3,-3)P1.FillStyle=(7)P1.FillColor=(8):P1.Circle(0,0),2P1.FillColor=vbwhite:P1.Circle(0,0),1EndSubPrivateSubForm_Load
5、()Command1.Caption="开始":P1.Enabled=FalseEndSubPrivateSubP1_MouseDown(ButtonAsInteger,ShiftAsInteger,_xAsSingle,yAsSingle)Ifx*x+y*y>=1And(9)Thenn=n+1EndSub【供选择的答案】(5)A、"退出"B、"开始"C、"显示"D、"开始"(6)A、nB、Val(n)C、Str(n)D、Trim(n)(7)A、1B、0C、2D、3(8)A、vbBlackB、Rgb(255,0,0)C、vbwhiteD、Rgb(255,255,0)(9)A、
6、x*x+y*y<=4B、x>2Andy>2C、x*x+y*y<=2D、x*x+y*y>4试题3（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】某文件中存放了若干个实数，单击Command1可用对话框打开该文件、并将读入的所有数据在List1中显示，单击Command2可将读入的数据按值从大到小顺序重新写入到该文件。【程序】PrivateSubCommand1_Click()DimxAsSingle2CreatePDFwithGO2PDFforfree,ifyouwishtoremovethisline,clickhe
7、retobuyVirtualPDFPrinterList1.Clear:CommonDialog1.Action=1OpenCommonDialog1.FileNameFor(10)As#1DoWhile(11)Input#1,x:List1.AdditemxLoopClose#1EndSubPrivateSubCommand2_Click()DimnAsSingle,xAsSingle,iAsInteger,jAsInteger,KAsIntegern=List1.(12)Redima(n)AsSin
