1、全国计算机等级考试二级visual2003年4月全国计算机等级考试二级visualBasic笔试(含答案)一、选择题(1)一(20)每小题2分，(21)一(30)每小题3分，共30题，70分)下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂在答题卡的相应位置上，答在试卷上不得分。(1)以下不能在“工程资源管理器”窗口中列出的文件类型是A)basB)resC)fnnD)ocx(2)以下关于窗体的描述中，错误的是A)执行UnloadFoMl语句后，窗体Fonnl消失，但仍在内存中B)窗体的Ioad事件在加载窗体时发生C)当窗体的Enabled属性为False时，通过鼠
2、标和键盘对窗体的操作都被禁止D)窗体的Height、width属性用于设置窗体的高和宽(3)下列可作为V2sualBasic变量名的是A)A#AB)4AC)?xYD)constA(4)设有如下的记录类型TypeStudentnumberAsstringnameAsStringageAsIntegerEndType则正确引用该记录类型变量的代码是A)Studentname=”张红”B)DimAsStudentsname”张红”C)DimsAsTypeStudentD)DimsAsTypeSname=”张红”s.Dame”张红”(5)函数String(n，“str”)的功能是A)把数值型数据转换为
3、字符串B)返回由n个字符组成的字符串C)从字符串中取出n个字符D)从字符串中第n个字符的位置开始取子字符串(6)将数学表达式Cos2(a+b)+5e2写成VisualBasic的表达式，其正确的形式是A)Cos(a+b)A2十5。exp(2)B)Cos2(a+b)+5*exp(2)C)Cos(a+b)2十5*ln(2)D)Cos2(a+b)+5*ln(2)(7)在窗体上画一个命令按钮，名称为Commandl。单击命令按钮时，执行如下事件过程：PrlVateSubCommandlC1ickoa$=softwareandhardwareb$Right(a$,8)c$=Mid(a$,1，8)Msgb
4、oxa$,b$,c$,1EndSub则在弹出的信息框的标题栏中显示的信息是A)softWareandhardwareB)softwareC)hardwafeD)1(8)执行如下语句：ainutBox(”Today”，”TomorroW，”Yesterday”,Daybeforeyesterday，5)将显示一个输入对话框，在对话框的输入区中显示的信息是A)TodayB)TomorrowC)YesterdayD)Daybeforeyesterday(9)表示滚动条控件取值范围最大值的属性是A)MaxB)LargeChangeC)valueD)MaxMin(10)在窗体上画一个名称为Listl的列
5、表框，一个名称为Labell的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是A)PrivateSublistl_Click()B)PrivateSubListl_C1ick()LabellCaptionlist1.listlndexLabellNanleListllistindexEndSubEndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A)空白B)错误提示C)北京D)上海(15)假定有以下函数过程：FunctionFun(SAsString)AsStringDims1AsStringFori=1To
6、Len(S)s1UCase(Mid(S，i，1)十s1NextiFuns1EndFunction在窗体上画一个命令按钮，然后编写如下事件过程：PrlvateSubCommmldl_Click()DimStr1AsString，Str2AsStringStrlinputbox(”请输入一个字符串”)Str2=Fun(Strl)PrintStr2EndSub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为A)abcdefgB)ABCDEFGC)gfedcbaD)GFEDCBA(16)设有语句openc：TestDatForOutPu
7、tAs#1则以下错误的叙述是A)该语句打开C盘根目录下一个己存在的文件TestDatB)该语句在C盘根目录下建立一个名为TestDat的文件C)该语句建立的文件的文件号为1D)执行该语句后，就可以通过Print#语句向文件TestDat中写入信息(17)以下叙述中错误的是A)用Shell函数可以调用能够在Windows下运行的应用程序B)用Shell函数可以调用可执行文件，也可以调用VisualBasic的内部函数C)调用Shell函数的格式应为：Shell()D)用Shell函数不能执行DoS命令(18)以下关于过程及过程参数的描述中，错误的是A)过程的参数可以是控件名称B)用数组作为过程的
8、参数时，使用的是“传地址”方式c)只有函数过程能够将过程中处理的信息传回到调用的程序中D)窗体可以作为过程的参数(19)在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：PrivateSubTxta_KeyPress(keyasciiasinteger)EndSub若焦点位于文本框中，则能够触发KeyPress事件的操作是A)单击鼠标B)双击文本框C)鼠标滑过文本框D)按下键盘上的某个键(20)目录列表框的Path属性的作用是A)显示当前驱动器或指定驱动器上的路径B)显示当前驱动器或指定驱动器上的某目录下的文件名c)显示根目录下的文件名D)只显示当前路径下的文件(21)假定有如下事
9、件过程：PriVateSubForm_MouseDown(buttonAsInteger,ShiftAsInteger,xAsSingle，YAsSingle)IfButton2thenPopupMenupopFormEndifEndSub则以下描述中错误的是A)该过程的功能是弹出一个菜单B)popForm是在菜单编辑器中定义的弹出式菜单的名称C)参数X、Y指明鼠标的当前位置D)Button=2表示按下的是鼠标左键(22)以下能够正确计算n!的程序是二级VisualBasic语言程序设计试卷第5页(共15页)A)PrivateSubCommandl_ClicK()n5:x1DoX=x*1ii十
10、1LoopWhileinPrintxEndSubB)PrivateSubCommandl_Click()n5:x1：i=1DoXX*1ii十1LoopWhileinPrintxEndSubC)PrivateSubCommandl_Click()n=5：x1：i1DoX=X*1ii十1Loopwhilei=nPrintxEndSubD)PrivateSubCommandl_C1ick()n5：x1：i=1DoX=X*li=i十1loopWhileinPrintxEndSub(23)在窗体上画一个名称为Commandl的命令按钮，再画两个名称分别为Labell、Label2的标签，然后编写如下程序
11、代码：二级vlsudBM5c语言程序设计试卷第6页(共15页)PrivatexAsIntegerPrivateSubCommandlClick()X5：Y3Callproc(x,Y)LabellCaptionXLabel2CaptionYEndSubPrivateSubproc(ByValaAsInteger，ByValbAshteger)xa*aY=b十bEndSub程序运行后，单击命令按钮，则两个标签中显示的内容分别是A)5和3B)25和3C)25和6D)5和6(24)在窗体上画一个名称为Commandl的命令按钮，一个名称为Labell的标签，然后编写如下事件过程：PrivateSubC
12、ommandl_C1ick()S0Fori1T015x2*i一11fxMod30Thenss十1NextiLabellCaption=sEndSub程序运行后，单击命令按钮，则标签中显示的内容是A)1B)5C)27D)45(25)在窗体上画一个名称为Commandl的命令按钮和三个名称分别为Labell、Label2、Label3的标签，然后编写如下代码：PrivatexAsIntegerPrivateSubCommand1_C1ick()StaticyAsIntegerDimzAsIntegern10z=n十zyy十zXX十ZLabell.CaptionxLabel2Caption=yLab
13、el3CaptionzEndSub运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是A)101010B)303030C)303010D)103030(26)设在窗体上有一个名称为Commandl的命令按钮，并有以下事件过程：PriVateSubCommandl_C1ick()StaticbAsVariantbArray(1,3,5,7,9)EndSub此过程的功能是把数组b中的5个数逆序存放(即排列为9，7，5，3，1)。为实现此功能，省略号处的程序段应该是A)Fori0To5-12tmpb(i)b(i)b(5-i-1)b(5-i-1)tmpNextB)fori0To5tmp=b(
14、i)b(i)b(5-i-1)b(5-i-1)=tmpNextC)Fori0T052tmpb(i)b(i)b(5-i-1)b(5-i-1)；tmpNextD)Fori1T052tmp=b(i)b(i)b(5一i一1)b(5i1)tmpNext二级VlsualBM5c语言程序设计试卷第8页(共15页)(27)在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框，一个名称为Filel的文件列表框，两个名称分别为Labell、Label2，标题分别为空白和“共有文件”的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Labell中显示当
15、前文件夹中文件的数量。如图所示。能够正确实现上述功能的程序是A)PrivateSubDirl_Change()B)PrivateSubDir1_Change()FilelPathDir1.pathFilel.path=dir1PathEndSubEndSubPrivateSubDrivel_Change()PrivateSubDrive1_Change()DirlPathDrivelDriveDirlPathDrivel.DriveLabellCaptionFilel.listCountLabellCaptlonfile1.listEndSubEndSubC)PrivateSubDirl_Ch
16、ange()D)PrivateSubDirl_Change()FilelPath=DirlPathfilelPathDir1PathLabellCaptionFilelListCountLabellCaptionFilelListEndSubEndSubPrivateSubDrivel_Change()PrivateSubDrivel_Change()DirlPathDrivelDrlveDir1PathDrivelDrlVeLabellCaptionFilelListCountLabellCaptionFilel.listEndSubEndSub(28)一个工程中包含两个名称分别为Forml
17、、Form2的窗体，一个名称为mdlFunc的标准模块。假定在Forml、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：Forml中定义的过程：PriVateSubfrmfunctionl()EndSubForm2中定义的过程：PublicSubfrmffunction2()EndSubmdlFunc中定义的过程：PubliCSubmdlFunction()EndSub在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是A)上述三个过程都可以在工程中的任何窗体或模块中被调用B)frmfunction2和mdlfunction过程能够在工程中各个窗体或模块中
18、被调用C)上述三个过程都只能在各自被定义的模块中调用D)只有mdlFunction过程能够被工程中各个窗体或模块调用(29)窗体上有两个名称分别为Textl、Text2的文本框，一个名称为Commandl的命令按钮。运行后的窗体外观如图所示。设有如下的类型声明TypePersonnameAsString*8majorAsString*20EndType当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29dat中。设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是A)0pen”c：Test29datForRandomAs#1Put#1，
19、1，pClose#1B)Openc:Test29.datForRandomAs#1Get#1，1，pC10se#1C)opencTest29datForRandomAs#1LenLen(p)Put#1，1，pClose#1D)Openc：Test29datForRandomAs#1=Len(p)Get#1，1，pCloSe#1(30)在窗体上画一个名称为CommonDialogl的通用对话框，一个名称为Commandl的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为Save，缺省文件名为“SaveFile”，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序
20、是A)PrivateSubCommand_C1ick()CommondialoglFileName=“Savefile”Commondialogl.filterAllFiles|*.*|(*.txt)|*.txt|(*.doc)|*.docCommonDialoglFilterindex=2CommonDialoglDial0gtitleSaveCommonDialoglAction2EndSubB)PrivateSubCommandlClick()CommonDialoglFileNameSaveFileCommonDiaLoglFilterA11Files|*.*|(*.txt)|*.tx
21、t|*doc|*docC0mmonDialoglFilterIndex1CommonDialoglDialogTitleSaveCommonDialoglAction2EndSubC)PrivateSubCmmandl_C1ick()COmmonDialoglFileNameSaveCommonDialoglFiLterA11Files|*.*|(*.txt)|*.txt|(*.doc)|*.docCommonDialoglFilterindex2C0mmonDialoglDialogTitleSaveFileCommonDialoglAction2EndSubD)PrivateSubComm
22、andl_C1ick()CommonDialoglFileNameSaveFileCommonDialoglFilterAllFiles|*.*|(*.txt)|*.txt|(*.doc)|*.docCommonDialoglFilterIndex=1CommonDialoglDialogTitle=“Save”CommonDialoglAction1EndSub二、填空题(每空2分，共30分)请将每空的正确答案写在答题卡1一15序号的横线上，答在试卷上不得分。(1)visualBasic中有一种控件组合了文本框和列表框的特性，这种控件是_(2)VisualBasic提供的对数据文件的三种访问
23、方式为随机访问方式_和二进制访问方式。(3)执行下面的程序段后，变量S的值为_。S5Fori2.6To4.9Step0.6S=S十1Nexti(4)为了在运行时把d:pic文件夹下的图形文件a.jpg装入图片框Picturel，所使用的语句为_。(5)计时器控件能有规律的以一定时间间隔触发_事件，并执行该事件过程中的程序代码。(6)以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。PrivateSubCommandl_C1ick()Fori1To20xInt(_*200+100)If_70ThenPrintx二级VIsualBMic语言程序设计试卷第12页(共15页)SS十_83EndIfNextiPrint“Sum”：SEndSub(7)设有如下程序PrivateSubForm_Click()DimaASInteger，bAsin
