2008春vb程序设计

《2008春vb程序设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

2、567显示-765。[程序]____________(1)______________PrivateSubForm_Load()____________(2)______________EndSubPrivateSubCommand1_Click()Text1.Text=""n=InputBox("n=")EndSubPrivateSubCommand2_Click()Ifn<0Thenn=-n:Text1.Text="-"Whilen<>0Text1.Text=____________(3)__________________________(4)______

3、________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(

4、每小题3分，共12分)阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。[程序说明]运行时，可以在图片框控件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)-

5、(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、2

6、To9(8)A、PSetiB、P1．PrintiC、P1．PsetiD、Printi试题3(每小题3分，共12分)’阅读卜列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。¨罕序说明]单市“读文刊：”按钮将文本文竹：读入升逐行在列表框控刊：“s“中显示；然后单市“分解”按钮将[工s“每行中的英文字母、其他字符分别显示在List2、“st3各行中。运行结果如卜图所示。程序rivateSubCommand1_Click()'~3~t~-~DimsAsStringOpen"e:xxx.txt"For(9)As#1WhileNotEOF(i)LineI

7、nput#1,s:Listl.AddItemsWendClose#1EndSubPrivateSubCommand2_Click()'~DimiAsInteger,nAsInteger,slAsString,s2AsStringFori=1To(10)n=Len(Listl.List(i-1))ReDima(n)AsString*1Forj=1Tona(j)'=(11)Nextjsl="":s2=""Forj=1TonIf(12)Thensl=sl+a(j)Elses2=s2+a(j)NextjList2.AddItemslList3.AddItems2Next

8、IEndsub[供选择的