搜索
2008年秋浙江省计算机二级（vb）复习资料历年试题与测试上机题库第1页共21页答疑：info.zjfc.edu.cn/vbweb2008年春浙江省高等学校计算机等级考试试卷(二级VisualBasic)说明：⑴考生应将所有试题的答案填写在答卷上。其中试题1～试题6，请在答卷上各小题正确选项的对应位置处填“√”；⑵请将你的准考证号的后五位填写在答卷右下角的指定位置内；⑶考试时间为90分钟;试题1（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】单击Command1后用输入对话框输入1个整数，单击Command2后在Text1中显示其反序的数（高位变低位）。要求在文本框中不可输入任何字符。例如：输入123显示321，输入-567显示-765。【程序】(1)PrivateSubForm_Load()(2)EndSubPrivateSubCommand1_Click()Text1.Text=:n=InputBox(n=)EndSubPrivateSubCommand2_Click()Ifn0Thenn=-n:Text1.Text=-Whilen0Text1.Text=(3)(4)WendEndSub【供选择的答案】(1)A、DimnAsByteB、DimnAsIntegerC、DimnAsStringD、PublicnAsByte(2)A、Text1.Locked=TrueB、Text1.Locked=FalseC、Text1.Visible=TrueD、Text1.Visible=False(3)A、n/10&Text1.TextB、nMod10&Text1.TextC、Text1.Text&n/10D、Text1.Text&nMod10(4)A、n=n\10B、n=n/10C、n=nMod10D、n=n-10试题2（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】2008年秋浙江省计算机二级（vb）复习资料历年试题与测试上机题库第2页共21页答疑：info.zjfc.edu.cn/vbweb运行时，可以在图片框控件p1用红色绘制下列坐标线并加上数字显示。PrivateSubForm_Activate()P1.Height=P1.WidthP1.FontSize=10(5)(-10,110)-(110,-10)(6)P1.Line(-5,0)-(100,0)P1.Line(0,-5)-(0,100)Fori=(7)P1.Line(i,0)-(i,2)P1.Line(0,i)-(2,i)NextiFori=1To9P1.CurrentX=i*10-2P1.CurrentY=-2(8)NextiEndSub【供选择的答案】(5)A、P1.DrawB、P1.LineC、P1.PrintD、P1.Scale(6)A、P1.ForeColor=RGB(255,0,0)B、P1.FillColor=RGB(255,0,0)C、P1.FillColor=VbRedD、P1.ForeColor=Red(7)A、1To9Step1B、10To90C、10To90Step10D、2To9(8)A、PSetiB、P1.PrintiC、P1.PsetiD、Printi试题3（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】单击“读文件”按钮将文本文件读入并逐行在列表框控件List1中显示；然后单击“分解”按钮将List1每行中的英文字母、其他字符分别显示在List2、List3各行中。运行结果如下图所示。2008年秋浙江省计算机二级（vb）复习资料历年试题与测试上机题库第3页共21页答疑：info.zjfc.edu.cn/vbweb【程序】PrivateSubCommand1_Click()'读文件DimsAsStringOpene:\xxx.txtFor(9)As#1WhileNotEOF(1)LineInput#1,s:List1.AddItemsWendClose#1EndSubPrivateSubCommand2_Click()'分解DimiAsInteger,nAsInteger,s1AsString,s2AsStringFori=1To(10)n=Len(List1.List(i-1))ReDima(n)AsString*1Forj=1Tona(j)=(11)Nextjs1=:s2=Forj=1TonIf(12)Thens1=s1+a(j)Elses2=s2+a(j)NextjList2.AddItems1List3.AddItems2NextiEndSub【供选择的答案】(9)A、ReadB、AppendC、InputD、Output(10)A、List1.CountB、ListCountC、ListCount-1D、List1.ListCount(11)A、Mid(List1.List(i-1),j,1)B、Middle(List1.List(i-1),j,1)C、Mid(List1.List(i-1),j)D、Middle(List1(i-1),j,1)(12)A、a(j)='a'Anda(j)='z'Ora(j)='A'Anda(j)='Z'B、a(j)=aAnda(j)=zOra(j)=AAnda(j)=ZC、a=a(j)=zOrA=a(j)=Z2008年秋浙江省计算机二级（vb）复习资料历年试题与测试上机题库第4页共21页答疑：info.zjfc.edu.cn/vbwebD、(a(j)='a'Anda(j)='z')Or(a(j)='A'Anda(j)='Z')试题4（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】PrivateSubText1_KeyPress(KAsInteger)IfKAsc(0)OrKAsc(9)ThenK=0ElseLabel1.Caption=Chr(K)+Label1.CaptionEndIfEndSub【供选择的答案】(13)Text1获得输入焦点后，依次按数字键1、3、5，Label1显示：A、135B、531C、9D、5(14)Text1获得输入焦点后，依次按数字键2、7、9，Label1显示：A、972B、279C、297D、18(15)Text1获得输入焦点后，依次按-、2、3、5键，Label1显示：A、-532B、-235C、532D、235(16)Text1获得输入焦点后，依次按1、2、a、5键，Label1显示：A、空白B、12a5C、5a21D、521试题5（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】PrivateSubForm_Load()Timer1.Interval=1000EndSubPrivateSubTimer1_Timer()StatickAsByteForm1.CurrentX=0:Form1.CurrentY=0'窗体的所有其他属性均取缺省值Form1.ClsIfk=0Thenk=1Elsek=0Ifk=0ThenForm1.ForeColor=RGB(0,255,0)Else_Form1.ForeColor=RGB(0,0,255)PrintTimeEndSub【供选择的答案】(17)激活Timer1后，每间隔1秒显示一次系统时间，方式是：A、蓝、绿色交替显示B、蓝色显示C、绿色显示D、红色显示(18)系统时间的显示位置，是在：A、窗体右上角B、窗体左上角C、窗体右下角D、窗体左下角(19)如果将Timer过程中的语句“StatickAsByte”改为“DimkAsByte”，激活Timer12008年秋浙江省计算机二级（vb）复习资料历年试题与测试上机题库第5页共21页答疑：info.zjfc.edu.cn/vbweb后，窗体系统时间显示上的颜色为：A、蓝、绿色交替B、蓝色C、绿色D、红色(20)如果要同时显示系统日期、时间，对Timer过程中Print语句之输出列表不可取的是：A、Date,TimeB、Date;TimeC、Date-TimeD、Date+Time试题6（每小题3分，共12分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】PrivateSubf(b()AsInteger,ByRefmAsInteger)DimiAsInteger,jAsInteger,kAsIntegeri=1DoWhilei=mForj=1TomIfb(i)Modb(j)=0AndijThenFork=iTom-1:b(k)=b(k+1):NextkExitForEndIfNextjIfjmTheni=i+1Elsem=m-1LoopEndSubPrivateSubCommand1_Click()Dima(6)AsInteger,iAsInteger,nAsIntegern=6Fori=1To6:a(i)=InputBox(a(&i&)=):NextiCallf(a,n)Fori=1Ton:Printa(i);:NextiEndSub(21)单击Command1输入7、8、5、4、9、3后，相应的显示结果为：A、893B、893333C、754333D、7543(22)如果将过程f首句中的“ByRef”改为“Byval”，输入数据同(21)，显示结果为：A、893B、893333C、754333D、7543(23)单击Command1输入4、12、27、8、-6、3后，相应的显示结果为：A、433333B、43C、12278-6D、12278(24)如果将过程f首句中的“ByRef”改为“Byval”，输入数据同(23)，显示结果为：A、433333B、43C、12278-6D、12278试题7(28分)编程，按Command1可输入有10个实数的数组，调用函数f求他们的平均值V，然后输出其中与V之差的绝对值为最小的那个数组元素。请将答卷上函数过程f（包括形参列表）、事件过程Command1补充完整。2008年秋浙江省计算机二级（vb）复习资料历年试题与测试上机题库第6页共21页答疑：info.zjfc.edu.cn/vbweb2007年秋浙江省高等学校计算机等级考试试卷(二级VisualBasic)说明：⑴考生应将所有试题的答案填写在答卷上。其中试题1～试题6，请在答卷上各小题正确选项的对应位置处填“√”；⑵请将你的准考证号的后五位填写在答卷右下角的指定位置内；⑶考试时间为90分钟;试题1（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】单击Command1后计算a•x2＋b•x＋c的值并显示，界面设计以及运行时的显示分别如下图左、图右所示。要求在文本框中不可输入英文字母。【程序】PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingle,xAsSingle,yAsSinglea=Text1(0).Text:b=Text1(1).Textc=Text1(2).Text:x=Text1(3).Texty=a*x*x+b*x+cLabel3.Caption=yEndSubPrivateSubText1_(1)(IndexAsInteger,(2))SelectCase(3)CaseAToZK=0Case(4)K=0EndSelectEndSub【供选择的答案】(1)A、keyPressB、changeC、keydownD、keyup(2)A、keyAsciiAsIntegerB、ValueC、Text()D、kAsInteger(3)A、Chr(KeyAscii)B、Chr(K