03-04年全国计算机等级考试二级VB语言笔试试题及答案-副本

1、-、选择题(1)一(20)每小题2分，(21)(30)每小题3分，共30题，70分)下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂在答题卡的相应位置上，答在试卷上不得分。(1) 以下不能在“工程资源管理器”窗口中列出的文件类型是.basB).resC).fnnD).ocx以下关于窗体的描述中，错误的是执行UnloadFoMl语句后，窗体Fonnl消失，但仍在内存中窗体的Ioad事件在加载窗体时发生当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止窗体的Height、width属性用于设置窗体的高和宽下列可作为V2sualBasic变量名

2、的是A#AB)4AC)?xYD)constA设有如下的记录类型TypeStudentnumberAsstringnameAsStringageAsIntegerEndType则正确引用该记录类型变量的代码是S=张红”B)DimAsS=张红”C)DimsAsTypeStudentD)DimsAsTypeS.name=张红”s.Dame=张红”函数String(n,“str”)的功能是把数值型数据转换为字符串返回由n个字符组成的字符串从字符串中取出n个字符从字符串中第n个字符的位置开始取子字符串将数学表达式Cos2(a+b)+5e2写成VisualBa

3、sic的表达式，其正确的形式是Cos(a+b)A2十5。exp(2)B)CosA2(a+b)+5*exp(2)C)Cos(a+b)A2十5*ln(2)D)CosA2(a+b)+5*ln(2)在窗体上画一个命令按钮，名称为Command单击命令按钮时，执行如下事件过程：PrlVateSubCommandlClickoa$=softwareandhardwareb$=Right(a$,8)c$=Mid(a$,1,8)Msgboxa$,b$,c$,1EndSub则在弹出的信息框的标题栏中显示的信息是A) softWareandhardwareB)softwareC)hardwafeD)1执行如下语句

4、：A) a=inutBox(Today”,TomorrowYesterday”,Daybeforeyesterday,5)将显示一个输入对话框，在对话框的输入区中显示的信息是TodayB)TomorrowC)YesterdayD)Daybeforeyesterday表示滚动条控件取值范围最大值的属性是MaxB)LargeChangeC)ValueD)MaxMin在窗体上画一个名称为Listl的列表框，一个名称为Labell的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是PrivateSublistl_Click()B)

5、PrivateSubListl_C1ick()Labell.Caption=list1.listlndexLabell.Nanle=Listl.listindexEndSub.EndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A)空白B)错误提示C)北京D)上海假定有以下函数过程：FunctionFun(SAsString)AsStringDims1AsStringFori=1ToLen(S)s1=UCase(Mid(S,i,1)十s1NextiFun=s1EndFunction在窗体上画一个命令按钮，然后编写如下事件过程：PrlvateSubCommmldl_Click()Di

6、mStr1AsString,Str2AsStringStrl=inputbox(请输入一个字符串”)Str2=Fun(Strl)PrintStr2EndSub程序运行后，单击命令按钮，如果在输入对话框中输入字符串abcdefg,则单击确定”按钮后在窗体上的输出结果为A)abcdefgB)ABCDEFGC)gfedcbaD)GFEDCBA设有语句openc：Test.DatForOutPutAs#1则以下错误的叙述是该语句打开C盘根目录下一个己存在的文件Test.Dat该语句在C盘根目录下建立一个名为Test.Dat的文件该语句建立的文件的文件号为1执行该语句后，就可以通过Print#语句向文件

7、Test.Dat中写入信息以下叙述中错误的是用Shell函数可以调用能够在Windows下运行的应用程序用Shell函数可以调用可执行文件，也可以调用VisualBasic的内部函数调用Shell函数的格式应为：变量名=Shell(,)用Shell函数不能执行DoS命令以下关于过程及过程参数的描述中，错误的是过程的参数可以是控件名称用数组作为过程的参数时，使用的是“传地址”方式c)只有函数过程能够将过程中处理的信息传回到调用的程序中D)窗体可以作为过程的参数在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：PrivateSubTxta_KeyPress(keyasciiasinte

8、ger)EndSub若焦点位于文本框中，则能够触发KeyPress事件的操作是单击鼠标B)双击文本框鼠标滑过文本框D)按下键盘上的某个键目录列表框的Path属性的作用是显示当前驱动器或指定驱动器上的路径显示当前驱动器或指定驱动器上的某目录下的文件名c)显示根目录下的文件名只显示当前路径下的文件假定有如下事件过程：PriVateSubForm_MouseDown(buttonAsInteger,ShiftAsInteger,xAsSingle,YAsSingle)IfButton=2thenPopupMenupopFormEndifEndSub则以下描述中错误的是该过程的功能是弹出一个菜单pop

9、Form是在菜单编辑器中定义的弹出式菜单的名称参数X、Y指明鼠标的当前位置Button=2表示按下的是鼠标左键以下能够正确计算n!的程序是二级VisualBasic语言程序设计试卷第5页(共15页)PrivateSubCommandl_ClicK()n=5:x=1DoX=x*1i=i十1LoopWhileinPrintxEndSubPrivateSubCommandl_Click()n=5:x=1:i=1DoX=X*1i=i十1LoopWhileinPrintxEndSubA) PrivateSubCommandl_Click()n=5:x=1:i=1DoX=X*1i=i十1Loopwhile

10、inPrintxEndSub(15) 在窗体上画一个名称为Commandl的命令按钮，再画两个名称分别为Labell、Label2的标签，然后编写如下程序代码：.二级vlsudBM5c语言程序设计试卷第6页(共15页)PrivatexAsIntegerPrivateSubCommandlClick()X=5：Y=3Callproc(x,Y)Labell.Caption=XLabel2.Caption=YEndSubPrivateSubproc(ByValaAsInteger,ByValbAshteger)x=a*aY=b十bEndSub程序运行后，单击命令按钮，则两个标签中显示的内容分别是A)

11、5和3B)25和3C)25和6D)5和6(16) 在窗体上画一个名称为Commandl的命令按钮，一个名称为Labell的标签，然后编写如下事件过程：PrivateSubCommandl_C1ick()S=0Fori=1T015x=2*i一11fxMod3=0Thens=s十1NextiLabell.Caption=sEndSub.程序运行后，单击命令按钮，则标签中显示的内容是A)1B)5C)27D)45(17) 在窗体上画一个名称为Commandl的命令按钮和三个名称分别为Labell、Label2、Label3的标签，然后编写如下代码：PrivatexAsIntegerPrivateSub

12、Command1_C1ick()StaticyAsIntegerDimzAsIntegern=10z=n十zy=y十zX=X十ZLabell.Caption=xLabel2.Caption=yLabel3.Caption=zEndSub运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是A)101010B)303030C)303010D)103030(26)设在窗体上有一个名称为Commandl的命令按钮，并有以下事件过程：PrivateSubCommandl_C1ick()StaticbAsVariantb=Array(1,3,5,7,9)EndSub此过程的功能是把数组b中的5个

13、数逆序存放(即排列为9,7,5,3,1)。为实现此功能，省略号处的程序段应该是A) Fori=0To5-12tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNextB) fori=0To5tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNextC) Fori=0T052tmp=b(i)b(i)=b(5-i-1)b(5-i-1)；tmpNextD) Fori=1T052tmp=b(i)b(i)=b(5一i一1)b(5i1)=tmpNext二级VlsualBM5c语言程序设计试卷第8页(共15页)(27) 在窗体上画一个名称为Drivel的驱动器列表框，一个名称

14、为Dirl的目录列表框，一个名称为Filel的文件列表框，两个名称分别为Labell、Label2,标题分别为空白和共有文件的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Labell中显示当前文件夹中文件的数量。如图所示。能够正确实现上述功能的程序是A)PrivateSubDirl_Change()B)PrivateSubDir1_Change()Filel.Path=Dir1.pathFilel.path=dir1.PathEndSubEndSubPrivateSubDrivel_Change()PrivateSubDrive1_Change()D

15、irl.Path=Drivel.DriveDirl.Path=Drivel.DriveLabell.Caption=Filel.listCountLabell.Captlon=file1.listEndSubEndSubA) PrivateSubDirl_Change()D)PrivateSubDirl_Change()Filel.Path=Dirl.Pathfilel.Path=Dir1.PathLabell.Caption=Filel.ListCountLabell.Caption=Filel.ListEndSubEndSubPrivateSubDrivel_Change()Private

16、SubDrivel_Change()Dirl.Path=Drivel.DrlveDir1.Path=Drivel.DrlVeLabell.Caption=Filel.ListCountLabell.Caption=Filel.listEndSubEndSub(28) 一个工程中包含两个名称分别为Forml、Form2的窗体，一个名称为mdlFunc的标准模块。假定在Forml、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：Forml中定义的过程：PriVateSubfrmfunctionl()EndSubForm2中定义的过程：PublicSubfrmffunction2()

17、EndSubmdlFunc中定义的过程：PubliCSubmdlFunction()EndSub在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是A) 上述三个过程都可以在工程中的任何窗体或模块中被调用B) frmfunction2和mdlfunction过程能够在工程中各个窗体或模块中被调用C) 上述三个过程都只能在各自被定义的模块中调用D) 只有mdlFunction过程能够被工程中各个窗体或模块调用(29)窗体上有两个名称分别为Textl、Text2的文本框，一个名称为Commandl的命令按钮。运行后的窗体外观如图所示。设有如下的类型声明TypePersonnam

18、eAsString*8majorAsString*20EndType当单击“保存按钮时，将两个文本框中的内容写入一个随机文件Test29.dat中。设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是A) 0penc：Test29.datForRandomAs#1Put#1,1,pClose#1B) Openc:Test29.datForRandomAs#1Get#1,1,pC10se#1C) opencTest29.datForRandomAs#1Len=Len(p)Put#1,1,pClose#1D) Openc：Test29.datForRando

19、mAs#1=Len(p)Get#1,1,pCloSe#1(30)在窗体上画一个名称为CommonDialogl的通用对话框，一个名称为Commandl的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为Save，缺省文件名为“SaveFile”,在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是A) PrivateSubCommand_C1ick()Commondialogl.FileName=Savefile”Commondialogl.filter=AllFiles|*.*|(*.txt)|*.txt|(*.doc).|*.docCommonDialogl

20、.Filterindex=2CommonDialogl.Dial0g.title=SaveCommonDialogl.Action=2EndSubB) PrivateSubCommandlClick()CommonDialogl.FileName=SaveFileCommonDiaLogl.Filter=A11Files|*.*|(*.txt)|*.txt|*.doc|*.docC0mmonDialogl.FilterIndex=1CommonDialogl.DialogTitle=SaveCommonDialogl.Action=2EndSubC) PrivateSubCmmandl_C1i

21、ck()COmmonDialogl.FileName=SaveCommonDialogl.FiLter=A11Files|*.*|(*.txt)|*.txt|(*.doc)|*.docCommonDialogl.Filterindex=2C0mmonDialogl.DialogTitle=SaveFileCommonDialogl.Action=2EndSubD) PrivateSubCommandl_C1ick()CommonDialogl.FileName=SaveFileCommonDialogl.Filter=AllFiles|*.*|(*.txt)|*.txt|(*.doc)|*.d

22、ocCommonDialogl.FilterIndex=1CommonDialogl.DialogTitle=Save”CommonDialogl.Action=1EndSub(每空2分，共30分)请将每空的正确答案写在答题卡1一15序号的横线上，答在试卷上不得分。(1) visualBasic中有一种控件组合了文本框和列表框的特性，这种控件是(2) VisualBasic提供的对数据文件的三种访问方式为随机访问方式和二进制访问方式。(3) 执行下面的程序段后，变量S的值为。S=5Fori=2.6To4.9Step0.6S=S十1Nexti(4) 为了在运行时把d:pic文件夹下的图形文件a.

23、jpg装入图片框Picturel,所使用的语句为。(5) 计时器控件能有规律的以一定时间间隔触发事件，并执行该事件过程中的程序代码。(6) 以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。PrivateSubCommandl_C1ick()Fori=1To20x=Int(*200+100)If7=0ThenPrintx二级VIsualBMic语言程序设计试卷第12页(共15页)S=S十83EndIfNextiPrintSum=”:SEndSub(7) 设有如下程序PrivateSubForm_Click()DimaASInteger,bA

24、sintegera=20：b=50pla,bp2a,bp3a,bPrinta=；a,b=；bEndSubSubpl(xAsInteger,ByValyAsInteger)x=x十10.v=v十20EndSubSubp2(byValxAsInteger,yAsInteger)x=x十10y=y十20EndSubSubp3(ByValxAsInteger,ByValyAsInteger)x=x十10y=y十20EndSub该程序运行后，单击窗体，则在窗体上显示的内容是：a=和b=。(8) 在窗体上画一个名称为Commandl的命令按钮，编写如下事件过程PRiVateSubCommandl_C1ic

25、K()DimAsStringa=11Fori=1To5PrintSpace(6i)；Mid$3(a,6i,2*i1)二级V1sualBMic语言程序设计试卷第13页(共15页)NextiEndSub程序运行后，单击命令按钮，要求窗体上显示的输出结果为456345672345678123456789请填空。(9)在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中

26、给出提示“已成功添加输入项”如图所示；如果存在，则在Label2中给出提示“输入项已在组合框中”。请在12、13和14处将程序补充完整。PrivateSubCombol(KeyAsciiAsinteger)1fKeyAscii=13ThenFori=0ToCombo1.listCount11fCombo1.Text=13IhenLabel2.Caption=输入项己在组合框中”ExItSubEndlfNextiLabel2.Caption=已成功添加输入项”Combo1.14CombO1.TextEndlfEndSub(10)设有如下程序Privatesubsearch(a()Asvarian

27、t,ByValkeyAsVariant,index%)DimI%Fori=LBound(a)ToUBound(a)Ifkey=a(I)Thenindex=IExitSubEndIfNextIIndex=-1EndSubPrivateSubForm_Load()ShowDtmb()AsVariantDimnAsIntegerb=Array(1,3,5,7,9,11,13,15)Callsearch(b,11,n)PrinttnEndSub程序运行后，输出结果是。2003年4月全国计算机等级考试二级VisualBasic笔试答案1-5:DADBB6-10:ACCAD11-15:DBBDD16-20

28、:ABCDA21-25:DCBBC26-30:CCDCA(1) 组合框(2) 顺序访问方式(3) 9(4) Picture1.picture=LoadPicture(d:pica.jpg)(5) Timer(6) Rnd和xMod5和x(7) 30和70(8) 123456789(9) KeyPress和Combo1.List(i)和AddItem(10) 52003年9月全国计算机等级考试二级VB语言笔试试题及答案90分钟，满分100分）选择题（1）（20）每小题2分，（21）（30）每小题3分，共70分）1) 以下叙述中错误的是A) VisualBasic是事件驱动型可视化编程工具B) V

29、isualBasic应用程序不具有明显的开始和结束语句C) VisualBasic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性D) VisualBasic中控件的某些属性只能在运行时设置2) 以下叙述中错误的是A) 在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B) 以.BAS为扩展名的文件是标准模块文件C) 窗体文件包含该窗体及其控件的属性D) 一个工程中可以含有多个标准模块文件3) 以下叙述中错误的是A) 双击鼠标可以触发DblClick事件B) 窗体或控件的事件的名称可以由编程人员确定C) 移动鼠标时，会触发MouseMove事件D) 控件的名称

30、可以由编程人员设定4) 以下不属于VisualBasic系统的文件类型是A) .frmB).batC).vbgD).vbp5) 以下叙述中错误的是A) 打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B) 保存VisualBasic程序时，应分别保存窗体文件及工程文件C) VisualBasic应用程序只能以解释方式执行D) 事件可以由用户引发，也可以由系统引发6) 以下能正确定义数据类型TelBook的代码是A) TypeTelBookB)TypeTelBookNameAsString*10NameAsString*10TelNumAsIntegerTelNumAsInte

31、gerEndTypeEndTelBookC)TypeTelBookD)TypedefTelBookNameString*10NameString*10TelNumIntegerTelNumIntegerEndTypeTelBookEndType7) 以下声明语句中错误的是A) Constvar1=123B)Dimvar2=ABCC)DefInta-zD)Staticvar3AsInteger8) 设窗体上有一个列表框控件List1,且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是A) List1.ListB)List1.ListIndexC)List1.IndexD)List1.T

32、ext9) 程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是A)MouseDownB)MouseUpC)LoadD)Click10) 设a=10,b=5,c=1，执行语句Printa%26gt;b%26gt;c后，窗体上显示的是A)TrueB)FalseC)1D)出错信息11) 如果要改变窗体的标题，则需要设置的属性是A)CaptionB)NameC)BackColorD)BorderStyle12）以下能判断是否到达文件尾的函数是A）BOFB）LOCC）LOFD）EOF13）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是A）如果工程中含有SubMain过程，则程序一定首先执

33、行该过程B）不能把标准模块设置为启动模块C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D）任何时刻最多只有一个窗体是活动窗体14）窗体的MouseDown事件过程Form_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）4个参数，关于这些参数，正确的描述是A）通过Button参数判定当前按下的是哪一个鼠标键B）Shift参数只能用来确定是否按下Shift键C）Shift参数只能用来确定是否按下Alt和Ctrl键D）参数x,y用来设置鼠标当前位置的坐标15）设组合框Combo1中有3个项目，则以下能删除最后一项

34、的语句是A）Combo1.RemoveItemTextB）Combo1.RemoveItem2C）Combo1.RemoveItem3D）Combo1.RemoveItemCombo1.Listcount16）以下关于焦点的叙述中，错误的是A）如果文本框的TabStop属性为False,则不能接收从键盘上输入的数据B）当文本框失去焦点时，触发LostFocus事件C）当文本框的Enabled属性为False时，其Tab顺序不起作用D）可以用TabIndex属性改变Tab顺序17）如果要在菜单中添加一个分隔线，则应将其Caption属性设置为A）=B）*C）%26D）-18）执行语句OpenTe

35、l.datForRandomAs#1Len=50后，对文件Tel.dat中的数据能够执行的操作是A）只能写，不能读B）只能读，不能写C）既可以读，也可以写D）不能读，不能写19）在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：PrivateSubCommand1_Click（）n=Text1.TextSelectCasenCase1To20x=10Case2,4,6x=20CaseIs10x=30Case10x=40EndSelectText2.Text=xEndSubTextl中输入10,然后单击命令按钮，则在Text2中显

36、示的内容是A)10B)20C)30D)4020) 设有以下循环结构DoLoopWhileA) 若条件”是一个为0的常数，则一次也不执行循环体B) ”条件”可以是关系表达式、逻辑表达式或常数C) 循环体中可以使用ExitDo语句D) 如果条件”总是为True,则不停地执行循环体21) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimnumAsIntegernum=1DoUntilnum6Printnum;num=num+2.4LoopEndSubA)13.45.8B)135C)147D)无数据输出22) 在窗体上画一

37、个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimaAsInteger,sAsIntegera=8s=1Dos=s+aa=a1LoopWhileacThend=d+x(i)c=x(i)Elsed=dcEndIfNextiPrintdEndSubA) 89B)99C)23D)77(26)在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2;六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label4Label6分别显示A、B”、A*B等文字信息，标签La

38、bel1、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。如图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮”计算”时，对标签Labell、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是A) PrivateSubCommand1_Click()Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption)EndSubB) PrivateSubCommand1_Click()Label3.Caption=HScrolll.Value*HScroll

39、2.ValueEndSubC) PrivateSubCommand1_Click()Label3.Caption=HScrolll*HScroll2EndSubD) PrivateSubCommand1_Click()Label3.Caption=HScrolll.Text*HScroll2.TextEndSub27) 在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Forn=1To20IfnMod30Thenm=m+n3NextnPrintnEndSubA)15B)18C)21D)2428) 在窗体上画一个名称为Tex

40、t1的文本框，并编写如下程序：PrivateSubForm_Load()ShowText1.Text=Text1.SetFocusEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Print”程序设计”EndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintVisualBasic;EndSubA键，然后单击窗体，则在窗体上显示的内容是A) VisualBasicB)程序设计C)A程序设计D)VisualBas

41、ic程序设计29) 设有如下程序：PrivateSubCommand1_Click()DimsumAsDouble,xAsDoublesum=0n=0Fori=1To5x=n/in=n+1sum=sum+xNextEndSubFor循环计算一个表达式的值，这个表达式是A) 1+1/2+2/3+3/4+4/5B)1+1/2+2/3+3/4C)1/2+2/3+3/4+4/5D)1+1/2+1/3+1/4+1/530) 以下有关数组定义的语句序列中，错误的是A) Staticarr1(3)arr1(1)=100arr1(2)=Helloarr1(3)=123.45B) Dimarr2()AsInte

42、gerDimsizeAsIntegerPrivateSubCommand2_Click()size=InputBox(输入：)ReDimarr2(size)EndSubC) OptionBase1PrivateSubCommand3_Click()Dimarr3(3)AsIntegerEndSubD) DimnAsIntegerPrivateSubCommand4_Click()Dimarr4(n)AsIntegerEndSub2分，共30分）1）执行下面的程序段后，i的值为K13,s的值为123s=2Fori=3.2To4.9Step0.8s=s+1Nexti2) 把窗体的KeyPrevie

43、w属性设置为True,然后编写如下两个事件过程：PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)PrintChr(KeyAscii)EndSub如果直接按键盘上的A”键(即不按住Shift键)，则在窗体上输出的字符分别是133和O3) 在窗体上画一个标签(名称为Labell)和一个计时器(名称为Timerl),然后编写如下几个事件过程：PrivateSubForm_Load()Timerl.Enabled

44、=FalseTimerl.Interval=H53EndSubPrivateSubForm_Click()Timerl.Enabled=H63EndSubPrivateSubTimer1_Timer()Labell.Caption=H73EndSub1秒钟变换一次(见图)。请填空。14：54：414) 在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command然后编写如下两个事件过程：PrivateSubCommand1_Click()S$=InputBox(请输入一个字符串”)Text1.Text=S$EndSubPrivateSubText1_Cha

45、nge()Label1.Caption=UCase(Mid(Text1.Text,7)EndSub如果在该对话框中输入字符串”VisualBasic”,则在标签中显示的内容是K83。5) 在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1,通过属性窗口把列表框中的项目设置为：”第一个项目”、”第二个项目”、”第三个项目”、”第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择”第三个项目”的情况)。下面是实现上述功能的程序，请填空。PrivateSu

46、bCommand1_Click()IfList1.ListIndex=H93ThenList1.RemoveItemH103Label1.Caption=H113ElseMsgBox”请选择要删除的项目”EndIfEndSub第一个项目第二个项目COMMAND1第三个项目36) 设有程序：OptionBase1PrivateSubCommand1_Click()Dimarr1,MaxasIntegerarr1=Array(12,435,76,24,78,54,866,43)123=arr1(1)Fori=1To8Ifarr1(i)MaxThen1133NextiPrint”最大值是：;MaxE

47、ndSubArray函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。7) 以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。PrivateSubCommand1_Click()DiminDataAsStringText1.Text=Open.smtext1.txt1143As#1DoWhile1153Input#1,inDataText1.Text=Text1.Text%26inDataLoopClose#1EndSub2003年9月全国计算机等级考试二级VB语言笔试试卷参考答案选择题1)C(2)A

48、(3)B(4)B(5)C6)A(7)B(8)D(9)C(10)B填空题11)A(12)D(13)A(14)A(15)B16)A(17)D(18)C(19)A(20)A21)B(22)C(23)C(24)A(25)C26)D(27)C(28)D(29)C(30)D1)K135.6K2352004年4月全国计算机等级考试二级VB语言笔试试题及答案2)K33AK43a3)K531000163TrueK71Time4)K83BASIC5)H930H103List1.ListIndexH113List1.ListCount6)K123Max1133Max=arr1(i)7)K143ForInputK15

49、3NotEOF(1)(1) (20)每小题2分，(21)(30)每小题3分，共70分)A) 、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。(1) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Move500,500EndSub程序运行后，单击命令按钮，执行的操作为A) 命令按钮移动到距窗体左边界、上边界各500的位置B) 窗体移动到距屏幕左边界、上边界各500的位置C) 命令按钮向左、上方向各移动500D) 窗体向左、上方向各移动500(2) 在窗体上有若干控

50、件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是A) TabStopB)EnabledC)VisibleD)TabIndex(3) 以下定义数组或给数组元素赋值的语句中，正确的是(4) 在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为A) Fori=0ToList1.ListCount-1NextB) Fori=0ToListCount-1NextC) Fori=1ToList1.listCountNextD) Fori=1ToListCountNext(5) 以下Case语句中错误的是A) Case0To10B)Cas

51、eIs%26gt;10C)CaseIs%26gt;10AndIs%26lt;50D)Case3,5,Is%26gt;10(6) 以下关于图片框控件的说法中，错误的是A) 可以通过Print方法在图片框中输出文本B) 清空图片框控件中图形的方法之一是加载一个空图形C) 图片框控件可以作为容器使用D) 用Stretch属性可以自动调整图片框中图形的大小执行语句s=Len(Mid(VisualBasic”,1,6)后，s的值是A)VisualB)BasicC)6D)11(8) 以下叙述中错误的是A) 下拉式菜单和弹出式菜单都用菜单编辑器建立B) 在多窗体程序中，每个窗体都可以建立自己的菜单系统C)

52、除分隔线外，所有菜单项都能接收Click事件D) 如果把一个菜单项的Enabled属性设置为False,则该菜单项不可见(9) 在窗体上画一个命令按钮，其名称为Command然后编写如下事件过程:PrivateSubCommand1_Click()a=12345PrintFormat$(a,000.00)EndSubA)123.45B)12345.00C)12345D)00123.45(10) 以下叙述中错误的是A) 一个工程可以包括多种类型的文件B) VisualBasic应用程序既能以编译方式执行，也能以解释方式执行C) 程序运行后，在内存中只能驻留一个窗体D) 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样(11) 以下关于函数过程的叙述中，正确的是A) 函数过程形参的类型与函数返回值的类型没有关系B) 在函数过程中，过程的返回值可以有多个C) 当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D) 如果不指明函数过程参数的类型，则该参数没有数据类型(12) 以下关于变量作用域的叙述中，正确的是A) 窗体中凡被声明为Private的变量只能在某个指定的过程中使用B)