浙江省2006年秋二级VB考试试卷及答案

PAGE1PAGE72006年秋试题1（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】•运行时初始界面如左上图所示，在文本框中输入一个整数n并按回车键后：如果n<1则重新输入，否则按钮Command1可用；•按Command1计算费波那契数列第n项的值（该数列第1、2项均为1，此后各项为该项前两项之和，如：1、1、2、3、5、8、┄）；•用消息框输出结果（右上图表示输入n为8后，输出结果是21），按消息框中“是”按钮则界面显示如左上图，按“否”按钮则退出。【程序】DimnAsIntegerPrivateSubForm_Load()Command1.Enabled=FalseEndSubPrivateSubText1_KeyPress(kAsInteger)If(1)ThenExitSubn=Text1.TextIfn<1ThenMsgBox("n应大于零！"):ExitSubCommand1.Enabled=TrueEndSubPrivateSubCommand1_Click()DimiAsInteger(2)f(1)=1:f(2)=1Fori=(3)f(i)=f(i-1)+f(i-2)Nextik=MsgBox("第"&n&"项为"&f(n)&"，是否继续？",(4))Ifk=vbYesThenText1.Text="":Command1.Enabled=FalseText1.SetFocusElseEndEndIfEndSub【供选择的答案】(1)A、k=13 B、k<>13 C、KeyAscii<>13 D、(2)A、Redimf(8)AsLong B、Redimf(n)AsLongC、Dimf(n)AsLong D、Dimf(8)AsLong(3)A、1Ton B、1TonStep1 C、2Ton D、3Ton(4)A、vbNo B、vbYes C、vbYesNo D、vbQuestion试题2（每小题3分，共15分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】单击Command1后，将所有在List1中存在、而在List2中不存在的表项添加到列表框控件List3中。PrivateSubCommand1_Click()DimiAsInteger,jAsInteger(5)Fori=0To(6)Forj=0To(7)IfList1.List(i)=List2.List(j)Then(8)NextjIf(9)ThenList3.AddItemList1.List(i)NextiEndSub【供选择的答案】(5)A、List3.ClearB、List3.List="" C、List3.deleteD、List3.Cls(6)A、List1.ListCount B、List1.ListCount-1C、List2.ListCount D、List2.ListCount-1(7)A、List2.ListCount-1 B、List2.ListCountC、List1.ListCount–1 D、List1.ListCount(8)A、ExitFor B、Exit C、ExitDoD、Break(9)A、j<List2.ListCount B、j<=List2.ListCountC、j>List2.ListCount D、j>=List2.ListCount试题3（每小题3分，共15分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】选择一个图象文件（BMP、JPG）后，在图片框控件P1中显示，按“反转”按钮后，将P1中每一像素在P2中相应位置以不同颜色显示。【程序】PrivateSubForm_Load()File1.(10)="*.bmp;*.jpg"P2.Width=P1.Width:P2.Height=P1.HeightP1.ScaleMode=3:P2.ScaleMode=3EndSubPrivateSubDir1_Change()File1.Path=Dir1.PathEndSubPrivateSubDrive1_Change()Dir1.Path=(11)EndSubPrivateSubFile1_Click()(12)GoTokkP1.Picture=LoadPicture(File1.Path+File1.FileName)ExitSubkk:P1.Picture=LoadPicture(File1.Path+"\"+File1.FileName)EndSubPrivateSubCommand1_Click()DimxAsInteger,yAsInteger,(13)DimrAsByte,gAsByte,bAsByteForx=P1.ScaleLeftToP1.ScaleLeft+P1.ScaleWidthFory=P1.ScaleTopToP1.ScaleTop+P1.ScaleHeightc=P1.Point(x,y)Ifc>=0Thenr=cMod256:c=c\256g=cMod256:c=c\256(14)P2.PSet(x,y),RGB(255-r,255-g,255-b)EndIfNexty,xEndSub【供选择的答案】(10)A、FilterB、PatternC、FileNameD、Path(11)A、Dir1.PathB、File1.PathC、Drive1.PathD、Drive1.Drive(12)A、OnErrorB、InErrorC、IfErrorD、IfErrorThen(13)A、cAsByteB、cAsLongC、cAsSingleD、cAsInteger(14)A、b=cMod255B、b=c\256C、b=cD、b=c/试题4（每小题3分，共9分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】PrivateSubForm_click()DimnAsInteger,iAsInteger,kAsInteger,jAsIntegerDon=InputBox("请输入1个1至9之间的整数")LoopUntil0<nAndn<10k=10:j=1Fori=1TonPrintSpace(k);String(j,Trim(Str(i)))Ifi<=n/2Thenk=k-1:j=j+2Elsek=k+1:j=j-2EndIfNextiEndSub(15)若运行时输入n值为2，窗体上的显示结果为：A、1 B、1C、1D、2121222123121(16)若运行时输入n值为3，窗体上的显示结果为：A、1 B、1C、1D、12221231222233333123211233(17)若运行时输入n值为4，窗体上的显示结果为：A、1 B、1C、1D、1222222123222333333123453333344444412345674444444试题5（每小题3分，共9分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】PrivateSubForm_Load()Timer1.Interval=100:Form1.WindowState=2Label1.Width=ScaleWidth/2:Label1.Left=ScaleLeftLabel1.Alignment=0:Label1.Caption="运行中..."EndSubPrivateSubTimer1_Timer()StaticmAsBytem=m+8:Label1.FontSize=mTimer1.Interval=Timer1.Interval+100Ifm>80ThenTimer1.Enabled=FalseEndSub(18)程序运行后，事件过程Timer1_Timer自动执行的次数为：A、9 B、10 C、11D、0(19)“运行中...”这段文字的显示位置始终在窗体的A、窗体的左边B、Label1的右边 C、窗体的右边D、Label1的中间(20)Label1的标题在窗体上的显示多次变化，其规律为：A、字体变大、变化减慢 B、字体变小、变化减慢C、字体变小、变化加快 D、字体变大、变化加快试题6（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】PrivateSubForm_Load()Form1.Height=Form1.Width*2/3Form1.FillColor=RGB(0,0,255)Form1.FillStyle=vbSolidEndSubPrivateSubForm_Activate()Scale(0,0)-(300,200)paint.Caption="Circle"Line-(150,100),FillColor,BFEndSubPrivateSubpaint_Click()Form1.ClsIfpaint.Caption="Circle"Thenpaint.Caption="Rectanfle"Circle(ScaleWidth/2,ScaleHeight/2),ScaleHeight/2,_255,,,ScaleHeight/ScaleWidthElsepaint.Caption="Circle"Line-(150,100),FillColor,BFEndIfEndSub(21)菜单项标题为“Circle”、名称为“paint”，单击该菜单项后窗体上显示：A、圆 B、纵轴大于横轴的椭圆 C、横轴大于纵轴的椭圆 D、矩形(22)菜单项标题为“Rectanfle”、名称为“paint”，单击该菜单项后所显示图形：A、红色边框无填充色的椭圆 B、兰色边框黑色填充的矩形C、黑色边框兰色填充的椭圆 D、兰色边框兰色填充的矩形(23)菜单项标题为“Circle”，两次单击名称为“paint”的该菜单项，窗体显示：A、椭圆 B、矩形 C、1个椭圆和1个矩形 D、1个椭圆和1个正方形(24)菜单项标题为“Rectanfle”，两次单击名称为“paint”的该菜单项，窗体显示：A、椭圆 B、矩形 C、1个椭圆和1个矩形 D、1个椭圆和1个正方形试题7(14分)编写事件过程Command1_Click，计算下式的和，变量x与n的数值用输入对话框输入。试题8(14分)某文本文件以下列格式存储若干学生的学号和两门课成绩，编写单击窗体的事件过程：文本文件格式"05010101",78,89"05010102",83,79文本文件格式"05010101",78,89"05010102",83,79=2\*GB2⑵在Label1(0)～Label1(1)显示总分最高的学生之学号、总分。试题1～6(每小题3分)=1\*GB2⑴B=2\*GB2⑵B=3\*GB2⑶D=4\*GB2⑷C=5\*GB2⑸A=6\*GB2⑹B=7\*GB2⑺A=8\*GB2⑻A=9\*GB2⑼D=10\*GB2⑽B=11\*GB2⑾D=12\*GB2⑿A=13\*GB2⒀B=14\*GB2⒁C=15\*GB2⒂B=16\*GB2⒃D=17\*GB2⒄B=18\*GB2⒅C=19\*GB2⒆A=20\*GB2⒇A(21)C(22)D(23)B(24)A变量声明2分输入语句2分循环前赋初值2分输出语句1分如果程序逻辑上混乱，语法上较多错误，该题最多得以上7分（包括用自定义函数求阶乘的编