08春浙江省计算机等级考试二级vb试卷

2008浙江省高等学计算机等级考试试卷(二级Visual说明：⑴考生应将所有试题的答案填写在答卷上。其中试题1～试题6，请在答卷上各小题正确选项的对应位置处填“√”；⑵请将你的准考证号的后五位填写在答卷右下角的指定位置内⑶考试时间为90分钟试题1（每小题3共12阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案112Tex中显示其反序的数（高位变低位）。要求在文本框中不可输入任何字符。123321，567765。【程序PrivateSubForm_Load()EndPrivateSubCommand1_Click()Text1.Text="":n=InputBox("n=")EndPrivateSubIfn<0Thenn=-n:Text1.Text="-"Whilen<>0Text1.Text 【供选择的答案、 、 、、Tex1ede 、Tex1ede 、0&Text1.Text nd1&Tex1Tx 、Tex1Text&nd10、nn\10 、nn/10 、nn试题2（每小题3共12阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案【程序说明运行时， PrivateSubForm_Activate()P1.Height=P1.WidthP1.FontSize=10 (-10,110)-(110,-P1.Line(-5,0)-(100,P1.Line(0,-5)-(0,Fori= P1.Line(i,0)-(i,P1.Line(0,i)-(2,NextFori=1To9P1.CurrentX=i*10-2P1.CurrentY=-2EndSub【供选择的答案w e 1t e)、er5) 、1r5)、1r r、1To9p1 、10To0 、10To0p1 、2 、i、 、试题3（每小题3共12阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案【程序说明单击“读文件”按钮将文本文件读入并逐行在列表框控件1单击“分1、3运行结果如下【程序PrivateSub '读文DimsAsOpen"e:\xxx.txt"For As#1WhileNotEOF(1)LineInput#1,s:List1.AddItemsEndSubPrivateSub DimiAsInteger,nAsInteger,s1AsString,s2AsStringFori=1To n=Len(List1.List(i-1))ReDima(n)AsString*1Forj=1Tona(j) Nexts1="":s2=Forj=1To Thens1=s1+a(j)Elses2=s2+a(j)NextjEndSub【供选择的答案)、、、、)、、、、i11) i1)) )、、试题4（每小题3共12阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案【程序PrivateSubText1_KeyPress(KAsInteger)IfK<Asc("0")OrK>Asc("9")ThenK=Label1.Caption=Chr(K)+Label1.CaptionEndIfEnd【供选择的答案Text11、3、5，1、 、 、 、Tex12、7、，1 、2 Tex11、 、 、 、Text11、2、、51 、12 、521 、试题5（每小题3共12阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案【程序PrivateSubForm_Load()Timer1.Interval=1000EndPrivateSubStatickAsForm1.CurrentX=0:Form1.CurrentY=0'窗体的所有其他属性均取缺省Ifk=0Thenk=1Elsek=Ifk=0ThenForm1.ForeColor=RGB(0,255,0)Else_Form1.ForeColor=RGB(0,0,255)EndSub【供选择的答案T11次系统时间， 、蓝色显 、绿色显 、红色显系统时间的显示位置，是在、窗体右上 、窗体右下 如果将T过程中的语句“”改为“e”，后，窗体系统时间显示上的颜色为、蓝、绿色交 、蓝 、绿 、红Te 、e 、e+T试题6（每小题3共12阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案【程序PrivateSubf(b()AsInteger,ByRefmAsDimiAsInteger,jAsInteger,kAsIntegeri=1DoWhilei<=mForj=1ToIfb(i)Modb(j)=0Andi<>jFork=iTom-1:b(k)=b(k+1):NextkExitForNextjIfj>mTheni=i+1Elsem=m-1EndPrivateSubDima(6)AsInteger,iAsInteger,nAsIntegern=6Fori=1To6:a(i)=InputBox("a("&i&")="):NextCallf(a,Fori=1Ton:Printa(i);:NextiEndSub17、、5、、、3、89 、89333 、75433 、754”21，、89 、89333 、75433 、7541、12、27、6、3、43333 、4 、12278 、1227”23，、43333 、4 、12278 、122772110，（）、事件过程12008浙江省高等学计算机等级考试答卷(二级Visual试题1~试题6请在各小题正确选项的对应位置处填“√”（每小题3，共72ABABCD1112ABCD131516172122237（28110，（1e 数x，x江省高等学校计算机等级考试参考答案（二级试题1~试题6请在各小题正确选项的对应位置处填“√”（每小题3，共72ABABCD√√√√√√√√√√11√12√ABCD13√√15√16√17√√√√21√22√23√√72110，（）、事件过程1e() 2DimiAs 1分Fori1To 5分f=f+(i)Nextff 2e)