浙江省计算机等级考试二级vb2008春季真题

《浙江省计算机等级考试二级vb2008春季真题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、2008年春浙江省高等学校计算机等级考试试卷(二级VisualBasic)说明：⑴考生应将所有试题的答案填写在答卷上。其中试题1～试题6，请在答卷上各小题正确选项的对应位置处填“√”；⑵请将你的准考证号的后五位填写在答卷右下角的指定位置内；⑶考试时间为90分钟;试题1（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】单击Command1后用输入对话框输入1个整数，单击Command2后在Text1中显示其反序的数（高位变低位）。要求在文本框中不可输入任

2、何字符。例如：输入123显示321，输入-567显示-765。【程序】(1)PrivateSubForm_Load()(2)EndSubPrivateSubCommand1_Click()Text1.Text="":n=InputBox("n=")EndSubPrivateSubCommand2_Click()Ifn<0Thenn=-n:Text1.Text="-"Whilen<>0Text1.Text=(4)WendEndSub【供选择的答案】(1)A、DimnAsByteC、DimnAsString(3

3、)B、DimnAsIntegerD、PublicnAsByte(2)A、Text1.Locked=TrueC、Text1.Visible=True(3)A、n/10&Text1.TextC、Text1.Text&n/10(4)A、n=n10C、n=nMod10B、Text1.Locked=FalseD、Text1.Visible=FalseB、nMod10&Text1.TextD、Text1.Text&nMod10B、n=n/10D、n=n-101CreatePDFwithGO2PDFforfree,i

4、fyouwishtoremovethisline,clickheretobuyVirtualPDFPrinter试题2（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】运行时，可以在图片框控件p1用红色绘制下列坐标线并加上数字显示。PrivateSubForm_Activate()P1.Height=P1.WidthP1.FontSize=10(5)(6)(-10,110)-(110,-10)P1.Line(-5,0)-(100,0)P1.Line(

5、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)C、P1.FillColor=VbRedB、P1.FillColor=RGB(255,0,0)D、P1.ForeC

6、olor=Red(7)A、1To9Step1B、10To90C、10To90Step10D、2To9(8)A、PSetiB、P1.PrintiC、P1.Pseti2D、PrintiCreatePDFwithGO2PDFforfree,ifyouwishtoremovethisline,clickheretobuyVirtualPDFPrinter试题3（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】单击“读文件”按钮将文本文件读入并逐行在列表框控

7、件List1中显示；然后单击“分解”按钮将List1每行中的英文字母、其他字符分别显示在List2、List3各行中。运行结果如下图所示。【程序】PrivateSubCommand1_Click()DimsAsStringOpen"e:xxx.txt"For(9)WhileNotEOF(1)'读文件As#1LineInput#1,s:List1.AddItemsWendClose#1EndSubPrivateSubCommand2_Click()'分解DimiAsInteger,nAsInteger,s

8、1AsString,s2AsStringFori=1To(10)n=Len(List1.List(i-1))ReDima(n)AsString*1Forj=1Tona(j)=Nextj(11)s1="":s2=""Forj=1TonIf(12)NextjList2.AddItems1List3.AddItems2Thens1=s1+a(j)Elses2=s2+a(j)3CreatePDFwit