全国计算机等级考试二级笔试试卷及答案

《全国计算机等级考试二级笔试试卷及答案》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

288d30ce0709ae9236f7531e98820c31.doc一、选择题（（1）～（20）每小题2分，（21）～（30）每小题3分，共30题，70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂在答题卡的相应位置上，答在试卷上不得分。（1）以下不能在"工程资源管理器"窗口中列出的文件类型是A）.basB）.resC）.frmD）.ocx（2）以下关于窗体的描述中，错误的是A）执行UnloadForm1语句后，窗体Form1消失，但仍在内存中B）窗体的Load事件在加载窗体时发生C）当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止D）窗体的Height、Width属性用于设置窗体的高和宽（3）下列可作为VisualBasic变量名的是A）A#AB）4AC）?xyD）constA（4）设有如下的记录类型TypeStudentnumberAsStringnameAsStringageAsIntegerEndType则正确引用该记录类型变量的代码是A）Student.name="张红"B）DimsAsStudents.name="张红"C）DimsAsTypeStudentD）DimsAsTypes.name="张红"s.name="张红"（5）函数String（n,元风小店——为您提供淘宝网上最好的教程。我们这里有英语四级，会计考试，计算机等级考试等各类教程欢迎选购，luckliubin.taobao.com 288d30ce0709ae9236f7531e98820c31.doc"str"）的功能是A）把数值型数据转换为字符串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$="softwareandhardware"b$=Right(a$,8)c$=Mid(a$,1,8)MsgBoxa$,,b$,c$,1EndSub则在弹出的信息框的标题栏中显示的信息是A）softwareandhardwareB）softwareC）hardwareD）1（8）执行如下语句：a=InputBox("Today","Tomorrow","Yesterday",,,"Daybeforeyesterday",5)将显示一个输入对话框，在对话框的输入区中显示的信息是A）TodayB）TomorrowC）YesterdayD）Daybeforeyesterday（9）表示滚动条控件取值范围最大值的属性是A）MaxB）LargeChangeC）ValueD）Max-Min（10）在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是A）PrivateSubList1_Click()B）PrivateSubList1_Click()Label1.Caption=List1.ListIndexLabel1.Name=List1.元风小店——为您提供淘宝网上最好的教程。我们这里有英语四级，会计考试，计算机等级考试等各类教程欢迎选购，luckliubin.taobao.com 288d30ce0709ae9236f7531e98820c31.docListIndexEndSubEndSubC）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元风小店——为您提供淘宝网上最好的教程。我们这里有英语四级，会计考试，计算机等级考试等各类教程欢迎选购，luckliubin.taobao.com 288d30ce0709ae9236f7531e98820c31.doc（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元风小店——为您提供淘宝网上最好的教程。我们这里有英语四级，会计考试，计算机等级考试等各类教程欢迎选购，luckliubin.taobao.com 288d30ce0709ae9236f7531e98820c31.doc（16）设有语句Open"c:Test.Dat"ForOutputAs#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）按下键盘上的某个键元风小店——为您提供淘宝网上最好的教程。我们这里有英语四级，会计考试，计算机等级考试等各类教程欢迎选购，luckliubin.taobao.com 288d30ce0709ae9236f7531e98820c31.doc（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+1LoopWhileinPrintxEndSub（23）在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：PrivateXAsIntegerPrivateSubCommand1_Click()X=5:Y=3Callproc(X,Y)Label1.Caption=元风小店——为您提供淘宝网上最好的教程。我们这里有英语四级，会计考试，计算机等级考试等各类教程欢迎选购，luckliubin.taobao.com 288d30ce0709ae9236f7531e98820c31.docXLabel2.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=元风小店——为您提供淘宝网上最好的教程。我们这里有英语四级，会计考试，计算机等级考试等各类教程欢迎选购，luckliubin.taobao.com 288d30ce0709ae9236f7531e98820c31.doc10z=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-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)=元风小店——为您提供淘宝网上最好的教程。我们这里有英语四级，会计考试，计算机等级考试等各类教程欢迎选购，luckliubin.taobao.com 288d30ce0709ae9236f7531e98820c31.doctmpNextC）Fori=0To52tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNextD）Fori=1To52tmp=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=元风小店——为您提供淘宝网上最好的教程。我们这里有英语四级，会计考试，计算机等级考试等各类教程欢迎选购，luckliubin.taobao.com 288d30ce0709ae9236f7531e98820c31.docDrive1.DriveLabel1.Caption=File1.ListCountLabel1.Caption=File1.ListEndSubEndSubC）PrivateSubDir1_Change()D）PrivateSubDir1_Change()File1.Path=Dir1.PathFile1.Path=Dir1.PathLabel1.Caption=File1.ListCountLabel1.Caption=File1.ListEndSubEndSubPrivateSubDrive1_Change()PrivateSubDrive1_Change()Dir1.Path=Drive1.DriveDir1.Path=Drive1.DriveLabel1.Caption=File1.ListCountLabel1.Caption=File1.ListEndSubEndSub（28）一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为mdlFunc的标准模块。假定在Form1、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：Form1中定义的过程：PrivateSubfrmFunction1()……EndSubForm2中定义的过程：PublicSubfrmFunction2()……EndSubmdlFunc中定义的过程：PublicSubmdlFunction()……End元风小店——为您提供淘宝网上最好的教程。我们这里有英语四级，会计考试，计算机等级考试等各类教程欢迎选购，luckliubin.taobao.com 288d30ce0709ae9236f7531e98820c31.docSub在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是A）上述三个过程都可以在工程中的任何窗体或模块中被调用B）frmFunction2和mdlFunction过程能够在工程中各个窗体或模块中被调用C）上述三个过程都只能在各自被定义的模块中调用D）只有mdlFunction过程能够被工程中各个窗体或模块调用（29）窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型声明TypePersonnameAsString*8majorAsString*20EndType当单击"保存"按钮时，将两个文本框中的内容写入一个随机文件Test29.dat中。设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是A）Open"c:Test29.dat"ForRandomAs#1Put#1,1,pClose#1B）Open"c:Test29.dat"ForRandomAs#1Get#1,1,pClose#1C）Open"c:Test29.dat"ForRandomAs#1Len=Len(p)Put#1,1,pClose#1D）Open"c:Test29.dat"ForRandomAs#1Len=Len(p)Get#1,1,pClose#1元风小店——为您提供淘宝网上最好的教程。我们这里有英语四级，会计考试，计算机等级考试等各类教程欢迎选购，luckliubin.taobao.com 288d30ce0709ae9236f7531e98820c31.doc（30）在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为"Save"，缺省文件名为"SaveFile"，在"文件类型"栏中显示*.txt。则能够满足上述要求的程序是A）PrivateSubCommand1_Click()CommonDialog1.FileName="SaveFile"CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doc)|*.doc"CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle="Save"CommonDialog1.Action=2EndSubB）PrivateSubCommand1_Click()CommonDialog1.FileName="SaveFile"CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doc)|*.doc"CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle="Save"CommonDialog1.Action=2EndSubC）PrivateSubCommand1_Click()CommonDialog1.FileName="Save"CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doc)|*.doc"CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle="SaveFile"CommonDialog1.Action=2EndSubD）PrivateSubCommand1_Click()CommonDialog1.FileName="SaveFile"CommonDialog1.Filter="All元风小店——为您提供淘宝网上最好的教程。我们这里有英语四级，会计考试，计算机等级考试等各类教程欢迎选购，luckliubin.taobao.com 288d30ce0709ae9236f7531e98820c31.docFiles|*.*|(*.txt)|*.txt|(*.doc)|*.doc"CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle="Save"CommonDialog1.Action=1EndSub二、填空题（每空2分，共30分）请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。（1）VisualBasic中有一种控件组合了文本框和列表框的特性，这种控件是【1】。（2）VisualBasic提供的对数据文件的三种访问方式为随机访问方式、【2】和二进制访问方式。（3）执行下面的程序段后，变量S的值为【3】。S=5Fori=2.6To4.9Step0.6S=S+1Nexti（4）为了在运行时把d:pic文件夹下的图形文件a.jpg装入图片框Picture1，所使用的语句为【4】。（5）计时器控件能有规律的以一定时间间隔触发【5】事件，并执行该事件过程中的程序代码。（6）以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。PrivateSubCommand1_Click()Fori=1To20x=Int(【6】*200+100)If【7】=0ThenPrintxS=S+【8】End元风小店——为您提供淘宝网上最好的教程。我们这里有英语四级，会计考试，计算机等级考试等各类教程欢迎选购，luckliubin.taobao.com 288d30ce0709ae9236f7531e98820c31.docIfNextiPrint"Sum=";SEndSub（7）设有如下程序PrivateSubForm_Click()DimaAsInteger,bAsIntegera=20:b=50p1a,bp2a,bp3a,bPrint"a=";a,"b=";bEndSubSubp1(xAsInteger,ByValyAsInteger)x=x+10y=y+20EndSubSubp2(ByValxAsInteger,yAsInteger)x=x+10y=y+20EndSubSubp3(ByValxAsInteger,ByValyAsInteger)x=x+10y=y+20EndSub该程序运行后，单击窗体，则在窗体上显示的内容是：a=【9】和b=【10】。（8）在窗体上画一个名称为Command1的命令按钮，编写如下事件过程PrivateSub元风小店——为您提供淘宝网上最好的教程。我们这里有英语四级，会计考试，计算机等级考试等各类教程欢迎选购，luckliubin.taobao.com 288d30ce0709ae9236f7531e98820c31.docCommand1_Click()DimaAsStringa=【11】Fori=1To5PrintSpace(6-i);Mid$(a,6-i,2*i-1)NextiEndSub程序运行后，单击命令按钮，要求窗体上显示的输出结果为545634567请填空。（9）在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2及Caption属性分别为"城市名称"和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键（ASCII码为13）时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示"已成功添加输入项"如图所示；如果存在，则在Label2中给出提示"输入项已在组合框中"。请在【12】、【13】和【14】处将程序补充完整。PrivateSubCombo1_【12】(KeyAsciiAsInteger)IfKeyAscii=13ThenFori=0ToCombo1.ListCount-1IfCombo1.Text=【13】元风小店——为您提供淘宝网上最好的教程。我们这里有英语四级，会计考试，计算机等级考试等各类教程欢迎选购，luckliubin.taobao.com 288d30ce0709ae9236f7531e98820c31.docThenLabel2.Caption="输入项已在组合框中"ExitSubEndIfNextiLabel2.Caption="已成功添加输入项"Combo1.【14】Combo1.TextEndIfEndSub（10）设有如下程序PrivateSubsearch(a()AsVariant,ByValkeyAsVariant,index%)DimI%ForI=LBound(a)ToUBound(a)Ifkey=a(I)Thenindex=IExitSubEndIfNextIindex=-1EndSubPrivateSubForm_Load()ShowDimb()AsVariantDimnAsIntegerb=Array(1,3,5,7,9,11,13,15)Callsearch(b,11,n)Print元风小店——为您提供淘宝网上最好的教程。我们这里有英语四级，会计考试，计算机等级考试等各类教程欢迎选购，luckliubin.taobao.com 288d30ce0709ae9236f7531e98820c31.docnEndSub程序运行后，输出结果是【15】。}答案：一、选择题（1）D（2）A（3）D（4）B（5）B（6）A（7）C（8）C（9）A（10）D（11）D（12）B（13）B（14）D（15）D（16）A（17）B（18）C（19）D（20）A（21）D（22）C（23）B（24）B（25）C（26）C（27）C（28）D（29）C（30）A二、填空题（1）【1】组合框或组合（2）【2】顺序访问方式或顺序访问（3）【3】9（4）【4】Picture1.Picture=LoadPicture("d:pica.jpg")或Picture1=LoadPicture("d:pica.jpg")（5）【5】Timer（6）【6】Rnd或Rnd(n)，其中n为任意整数【7】xMod5或Int(x/5)-x/5或x/5-Int(x/5)或CInt(x/5)-x/5或x/5-CInt(x/5)或Round(x/5)-x/5或x/5-Round(x/5)或x-(x5)*5或(x5)*5-x或Fix(x/5)-x/5或x/5-Fix(x/5)【8】x（7）【9】30【10】70（8）【11】元风小店——为您提供淘宝网上最好的教程。我们这里有英语四级，会计考试，计算机等级考试等各类教程欢迎选购，luckliubin.taobao.com 288d30ce0709ae9236f7531e98820c31.doc""（9）【12】KeyPress【13】Combo1.List(i)【14】AddItem（10）【15】5元风小店——为您提供淘宝网上最好的教程。我们这里有英语四级，会计考试，计算机等级考试等各类教程欢迎选购，luckliubin.taobao.com