2003年4月全国计算机等级考试二级笔试试卷及答案

一、选择题（（1）～（20）每小题2分，（21）～（30）每小题3分，共30题，70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂在答题卡的相应位置上，答在试卷上不得分。（1）以下不能在工程资源管理器窗口中列出的文件类型是DA）.basB）.resC）.frmD）.ocx（2）以下关于窗体的描述中，错误的是AA）执行UnloadForm1语句后，窗体Form1消失，但仍在内存中B）窗体的Load事件在加载窗体时发生C）当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止D）窗体的Height、Width属性用于设置窗体的高和宽（3）下列可作为VisualBasic变量名的是DA）A#AB）4AC）?xyD）constA（4）设有如下的记录类型BTypeStudentnumberAsStringnameAsStringageAsIntegerEndType则正确引用该记录类型变量的代码是A）Student.name=张红B）DimsAsStudents.name=张红C）DimsAsTypeStudentD）DimsAsTypes.name=张红s.name=张红（5）函数String（n,str）的功能是BA）把数值型数据转换为字符串B）返回由n个字符组成的字符串C）从字符串中取出n个字符D）从字符串中第n个字符的位置开始取子字符串（6）将数学表达式Cos2(a+b)+5e2写成VisualBasic的表达式，其正确的形式是A）Cos(a+b)^2+5*exp(2)B）Cos^2(a+b)+5*exp(2)C）Cos(a+b)^2+5*ln(2)D）Cos^2(a+b)+5*ln(2)（7）在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：PrivateSubCommand1_Click()a$=softwareandhardwareb$=Right(a$,8)c$=Mid(a$,1,8)MsgBoxa$,,b$,c$,1EndSub则在弹出的信息框的标题栏中显示的信息是cA）softwareandhardwareB）softwareC）hardwareD）1（8）执行如下语句：a=InputBox(Today,Tomorrow,Yesterday,,,Daybeforeyesterday,5)将显示一个输入对话框，在对话框的输入区中显示的信息是cA）TodayB）TomorrowC）YesterdayD）Daybeforeyesterday（9）表示滚动条控件取值范围最大值的属性是dA）MaxB）LargeChangeC）ValueD）Max-Min（10）在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是A）PrivateSubList1_Click()B）PrivateSubList1_Click()Label1.Caption=List1.ListIndexLabel1.Name=List1.ListIndexEndSubEndSubC）PrivateSubList1_Click()D）PrivateSubList1_Click()Label1.Name=List1.TextLabel1.Caption=List1.TextEndSubEndSub（11）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()x=0n=InputBox()Fori=1TonForj=1Toix=x+1NextjNextiPrintxEndSub程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是A）3B）4C）5D）6（12）以下关于菜单的叙述中，错误的是A）在程序运行过程中可以增加或减少菜单项B）如果把一个菜单项的Enabled属性设置为False，则可删除该菜单项C）弹出式菜单在菜单编辑器中设计D）利用控件数组可以实现菜单项的增加或减少（13）在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是A）TagB）IndexC）ListIndexD）Name（14）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：OptionBase0PrivateSubCommand1_Click()DimcityAsVariantcity=Array(北京,上海,天津,重庆)Printcity(1)EndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A）空白B）错误提示C）北京D）上海（15）假定有以下函数过程：FunctionFun(SAsString)AsStringDims1AsStringFori=1ToLen(S)s1=UCase(Mid(S,i,1))+s1NextiFun=s1EndFunction在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimStr1AsString,Str2AsStringStr1=InputBox(请输入一个字符串)Str2=Fun(Str1)PrintStr2EndSub程序运行后，单击命令按钮，如果在输入对话框中输入字符串abcdefg，则单击确定按钮后在窗体上的输出结果为A）abcdefgB）ABCDEFGC）gfedcbaD）GFEDCBA（16）设有语句Openc:\Test.DatForOutputAs#1则以下错误的叙述是A）该语句打开C盘根目录下一个已存在的文件Test.DatB）该语句在C盘根目录下建立一个名为Test.Dat的文件C）该语句建立的文件的文件号为1D）执行该语句后，就可以通过Print#语句向文件Test.Dat中写入信息（17）以下叙述中错误的是A）用Shell函数可以调用能够在Windows下运行的应用程序B）用Shell函数可以调用可执行文件，也可以调用VisualBasic的内部函数C）调用Shell函数的格式应为：变量名=Shell(……)D）用Shell函数不能执行DOS命令（18）以下关于过程及过程参数的描述中，错误的是A）过程的参数可以是控件名称B）用数组作为过程的参数时，使用的是传地址方式C）只有函数过程能够将过程中处理的信息传回到调用的程序中D）窗体可以作为过程的参数（19）在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：PrivateSubTxtA_KeyPress(keyasciiasinteger)……EndSub若焦点位于文本框中，则能够触发KeyPress事件的操作是A）单击鼠标B）双击文本框C）鼠标滑过文本框D）按下键盘上的某个键（20）目录列表框的Path属性的作用是A）显示当前驱动器或指定驱动器上的路径B）显示当前驱动器或指定驱动器上的某目录下的文件名C）显示根目录下的文件名D）只显示当前路径下的文件（21）假定有如下事件过程：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenupopFormEndIfEndSub则以下描述中错误的是A）该过程的功能是弹出一个菜单B）popForm是在菜单编辑器中定义的弹出式菜单的名称C）参数X、Y指明鼠标的当前位置D）Button=2表示按下的是鼠标左键（22）以下能够正确计算n!的程序是A）PrivateSubCommand1_Click()n=5:x=1Dox=x*ii=i+1LoopWhileinPrintxEndSubB）PrivateSubCommand1_Click()n=5:x=1:i=1Dox=x*ii=i+1LoopWhileinPrintxEndSubC）PrivateSubCommand1_Click()n=5:x=1:i=1Dox=x*ii=i+1LoopWhilei=nPrintxEndSubD）PrivateSubCommand1_Click()n=5:x=1:i=1Dox=x*ii=i+1LoopWhileinPrintxEndSub（23）在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：PrivateXAsIntegerPrivateSubCommand1_Click()X=5:Y=3Callproc(X,Y)Label1.Caption=XLabel2.Caption=YEndSubPrivateSubproc(ByValaAsInteger,ByValbAsInteger)X=a*aY=b+bEndSub程序运行后，单击命令按钮，则两个标签中显示的内容分别是A）5和3B）25和3C）25和6D）5和6（24）在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程：PrivateSubCommand1_Click()s=0Fori=1To15x=2*i-1IfxMod3=0Thens=s+1NextiLabel1.Caption=sEndSub程序运行后，单击命令按钮，则标签中显示的内容是A）1B）5C）27D）45（25）在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码：PrivatexAsIntegerPrivateSubCommand1_Click()StaticyAsIntegerDimzAsIntegern=10z=n+zy=y+zx=x+zLabel1.Caption=xLabel2.Caption=yLabel3.Caption=zEndSub运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是A）101010B）303030C）303010D）103030（26）设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程：PrivateSubCommand1_Click()StaticbAsVariantb=Array(1,3,5,7,9)……EndSub此过程的功能是把数组b中的5个数逆序存放（即排列为9,7,5,3,1）。为实现此功能，省略号处的程序段应该是A）Fori=0To5-1\2tmp=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=0To5\2tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNextD）Fori=1To5\2tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNext（27）在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1、Label2，标题分别为空白和共有文件的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。如图所示。能够正确实现上述功能的程序是A）PrivateSubDir1_Change()B）PrivateSubDir1_Change()File1.Path=Dir1.PathFile1.Path=Dir1.PathEndSubEndSubPrivateSubDrive1_Change()PrivateSubDrive1_Change()Dir1.Path=Drive1.DriveDir1.Path=Drive1.DriveLabel1.Caption=File1.Li