2010年秋季江苏省计算机二级VB考试真题与答案.docx

2010年秋季江苏省计算机等级考试VB计算机基础知识和应用能力等级考试二级试卷试卷语种:VB语言说明：1本试卷包括计算机基础知识部分和程序设计部分，考试时间共12 0分钟；2本试卷满分为60分，分选择题和填空题，试卷不分A、B类型；3计算机基础知识部分全部是选择题(20分)，程序设计部分分为选择题(1 0分)和填空题(30分)两种；4选择题用答题卡答题。每一项有A、B、C、D四个可供选择的答案，请选择其中一个你认为正确的答案，用HB铅笔涂写在答题卡的相应答题号内。每选对一项得1分，不选或选错不得分；5填空题用答题纸答题。请将答案用蓝、黑色钢笔或圆珠笔填写在答题纸的相应答题号内，每个答案只占一行，不得换行。每填对一个答案得1分，不填或填错不得分；6请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是否填写正确。7考试结束时将试卷、答题卡和答题纸放在桌上，不得带走。待监考人员收毕清点后，方可离场。第一部分计算机基础知识1.微电子技术是信息技术领域中的关键技术,它以集成电路为核心.下列有关集成电路的叙述中,错误的是_(1)_A. 现代集成电路使用的半导体材料只能是硅(Si),不能使用其它任何半导体材料B. 集成度是指集成电路包含的电子元件数目,可分为SSI、MSI、VLSI等C. Moore定律指出,单块集成电路的集成度平均18-24个月翻一番D. 我国第二代身份证中嵌入了集成电路芯片,可以实现电子防伪和数字管理功能2. 数据传输速率是数据通信中重要的性能指标。Gb/s是数据传输速率的计量单位之一,其正确含义是_(2)_ 。A.每秒兆位B.每秒千兆位C.每秒百兆位D.每秒百万位3. 所谓变号操作是指将一个整数变成绝对值相同但符号相反的另一个整数。假设使用补码表示的8位整数x=10010101,则经过变号操作后结果为_(3)_.A.01101010 B.00010101 C.11101010 D.011010114. 下列有关PC机主板的叙述中,错误的是_(4)_ 。A. 主板的物理尺寸没有标准,各厂家均可自行定义B. 主板上包含芯片组,它是PC机各组成部分相互连接和通信的枢纽C. 主板上包含BIOS和CMOS芯片D. 主板上包含CPU插座、内存条插槽及其它类型的插槽5. 下列有关PC机中央处理器(CPU)和内存(内存条)的叙述中,正确的是_(5)_ .A.PC机所采用的CPU都是Intel公司生产的Pentium系列芯片,其它厂商生产的CPU都与之不兼容B.目前已有双核的微处理器(例如Core 2 Duo),但还没有四核的微处理器C. 通常来说,DRAM的速度比SRAM的存取速度慢D. 一般来说,一个内存条上仅有一个DRAM或SRAM芯片6. 下列有关PC机I/O总线与I/O接口的叙述中,错误的是_(6)_ .A. 目前PC机中协调与管理总线操作的总线控制器包含在主板上的芯片组中B. 总线最重要的性能是数据传输速率,其单位通常为MB/s或GB/s2010秋江苏计算机二级VB考试真题页码，1/7/Html/exam_twoVB/0104173447806.html 2011/10/7C. SATA接口的数据传输速率通常低于USB 2.0的数据传输速率D. USB连接器有4个引脚,其中一个引脚连接+5V电源7. 下列有关PC机常用I/O设备的叙述中,错误的是_(7)_。A. 目前台式机键盘通常有一百零几个按键,笔记本电脑的键盘有八十几个按键B. 目前流行的鼠标是光电鼠标,其与主机的接口有PS/2与USB两种C. 宽屏LCD显示器的宽高比为16：9或16：10D. 打印速度是打印机的重要性能指标,速度单位通常为dpi8. 下列有关PC机外存储器的叙述中,错误的是_(8)_ 。A. 目前硬盘的盘片大多为3.5、2.5或1.8英寸,一个硬盘中可有一个或多个盘片B. 目前有些u盘可以模拟硬盘和光盘存储器启动操作系统C. 目前光盘存储器主要分为CD、DVD和BD三种,它们均采用红外激光进行读写D. 目前光驱的速率通常用多少倍速表示9. 下列有关计算机软件的叙述中,错误的是_(9)_.A. 软件一般是指程序及其相关的数据和文档资料B. 从软件的用途考虑,软件可以分为系统软件和应用软件,主要的系统软件有操作系统、语言处理系统和数据库管理系统等。C. 从软件的权益来考虑,软件可以分为商品软件、共享软件和自由软件,共享软件和自由软件均为无版权的免费软件D.Linux是一种系统软件、自由软件10.到目前以止,Windows系列操作系统已推出多个版本。在下列版本中,最新的Windows版本是_(10)_A. Windows7 B. Windows Me C. Windows XP D. Windows Vista11.下列有关Windows XP操作系统功能的叙述中,错误的是_(11)_.A. 系统通过时间片”轮转策略支持多任务处理B. 系统利用SPOOLing技术进行存储管理C. 在设备管理中引入了缓冲技术,以减少I/O操作的等待时间D. 系统支持PnP功能,并按ACPI标准进行电源管理12.在因特网中某台主机的IP地址为,子网掩码为,那么该主机的主机号为_(12)_ 。A. 20 B. 25 C. 30 D. 813.局域网中需要传输的数据必须预先组织成若干数据帧,每一数据帧的格式如下图所示：上图中最末部分?”表示的是_(13)_ 。A.协议信息B.校验信息C.冗余信息D.结束标志14.目前网络用户接入因特网有多种方式,例如ADSL、HFC等。通过HFC接入因特网时采用的网络是_(14)_。A. 有线电话网B. 有线电视网C. 无线局域网D. 移动电话网15.下列网络协议中,直接与电子邮件传输相关的网络协议是_(15)_。A.FTP B.SMTP C.TELNET D.NNTP16.下列有关计算机中文本与文本处理的叙述中,错误的是_(16)_A. 西文字符主要是采用ASCII字符集,基本ASCII字符集共有256个字符B. 我国最早采用的汉字字符集是GB2312,包含6000多个汉字和若干个非汉字字符C. 无论采用何种方式输入汉字,在计算机中保存时均采用统一的汉字内码D. 简单文本和丰富格式文本中字符信息的表示相同,区别在于格式信息的表示17.彩色图像所使用的颜色描述方法称为颜色模型(即颜色空间)。下列四种颜色模型中,彩色喷墨打印机使用的是_(17)_.A. RGB B. HSB C. YUV D. CMYK18.文件的扩展名用于标记文件的类型,用户应该尽可能多地知晓各类文件的扩展名,下列文件中,属于数字声音的文件是_A. ABC.RMB. ABC.WMAC. ABC.MKVD. ABC.SWF19.信息系统软件开发瀑布模型包括系统规划、系统分析、系统设计、系统实施和系统维护等几个阶段。下面各项工作中,属于系统实施阶段的是_(19)_A.问题定义B.可行性研究C.系统测试D.绘制E-R图20.下列有关Micmsoft Word 2003和Microsoft Excel 2003软件的叙述中,错误的是_(20)_A. 利用Word软件编辑文档,可以将其保存为TXT、DOC、RTF和HTM格式文件B. 利用Word软件编辑文档时,可以统计选定文本的字符数C. 在Excel软件中,可以打开(导入)TXT、DBF、HTML格式的文件(数据)D. Excel文件可以设置打开权限密码,但不可以单独设置修改权限密码第二部分Visual Basic程序设计一、选择题(用答题卡答题,答案依次填在21-30答题号内)21.以下有关事件过程的说法中,正确的是_(21)_A.所有的事件过程都是Sub子过程B.所有的事件过程都没有参数C.所有的事件都是由用户的操作直接引发的D.事件过程不能使用Call语句调用执行22.以下语句中,正确的是_(22)_ 。发送计算机地址目的计算机地址编号有效载荷?2010秋江苏计算机二级VB考试真题页码，2/7/Html/exam_twoVB/0104173447806.html 2011/10/7A.List1.AddItem x,=,y B.Picture1.Print x,=,yC.Text1.Text=x,=,y D.Label1.Caption=x,=,y23.以下有关VB程序书写规则的说法中,错误的是_(23)_A.一行可以书写多条语句,语句间用:分隔B.使用注释时,可与注释语句定义符Rem互换使用C.过长的语句,可使用续行标志 _,分写在多行上D.代码输入时,可不用区分字母大小写,系统会将保留字首字母自动改为大写24.设变量I和J是整型变量,K是长整型变量。I已赋值32763,J和K分别赋值5,若接着执行以下语句,可正确执行的是_(24)_。A.I=I+K B.J=I+KC.K=I+J+K D.K=K+I+J25.以下关系表达式中,运算结果为False的是_(25)_A.CInt(3.5)-Fix(3.5)=0 B.CInt(3.5)-Int(3.5)=0C.Int(3.5)+Int(-3.5)=0 D.Int(3.5)+Fix(-3.5)=026.以下字符运算表达式中,其功能与函数Mid(s,i,i)相同的是_(26)_A.Left(s,i) & Right(s,Len(s)-i) B.Left(Right(s,Len(s)-i+1),i)C.Left(Right(s,i),Len(s)-i+1) D.Left(s,Len(s)-i) & Right(s,i)27.数学表达式的VB算术表达式为_(27)_A.Sqr(x*y3)+Abs(Exp(x)+Sin(x)3/(x-y)B.Sqr(x*y3)+Abs(Exp(x)+Sin(x)3)/(x-y)C.Sqr(x*y3)+Abs(Exp(x)+Sin(x)3/x-y)D.Sqr(x*y)3)+Abs(Exp(x)+Sin(x)3)/(x-y)28.以下有关数组的说法中,错误的是_(28)_。A.使用ReDim语句,可以改变任何数组的大小与维数B.使用ReDim语句,可以定义一个新数组C.使用ReDim语句重新定义动态数组时,维界表达式中可以采用变量D.使用ReDim语句重新定义的新数组,既可比原数组大,也可比原数组小29.以下有关Function过程的说法中,正确的是_(29)_ 。A.函数名在过程中只能被赋值一次B.如果在函数体内没有给函数名赋值,则该函数无返回值C.如果在定义函数时没有说明函数的类型,则该函数是无类型的D.执行函数过程中的Exit Function语句,将退出该函数,返回到调用点30.以下有关文件用法的描述中,正确的是_(30)_A.只有顺序文件在读写前需要使用Open语句打开B.使用同一个文件号,可同时打开多个不同的文件C.如果以Input方式试图打开一个不存在的顺序文件,则会出错D.如果程序中缺少Close语句,即使程序运行结束,打开的文件也不会自动关闭二、填空题(请将答案填写在答题纸的相应答题号内,每个答案只占一行)1.运行下面程序,单击CmdRun,在窗体上显示a的值是_(1)_;b的值是_(2)_;i的值是_(3)_ 。Option ExplicitPrivate Sub CmdRun_Click()Dim i As Integer,a As Integer,b As Integera=1:b=10For i=a To b Step a+1a=a+1b=b+1i=i+1Next iPrint a,b,iEnd Sub2.执行下面程序,单击Command1,数组元素a(3,2)的值是_(4)_,a(1,2)的值是_(5)_,a(2,3)的值是_(6)_Option ExplicitOption Base 1Private Sub Commandl_Click()Dim n As Integer,i As Integer,j As IntegerDim a(3,3)As Integer,k As Integern=3:k=1i=n:j=(n+1)/2a(i,j)=kFor k=2 To n*ni=i+1:j=j+1If in And j=n Theni=1ElseIf in Thenj=1ElseIf in And jn Theni=i-2:j=j-1ElseIf i=n And j=n And a(i,j)0 Theni=i-2:j=j-12010秋江苏计算机二级VB考试真题页码，3/7/Html/exam_twoVB/0104173447806.html 2011/10/7End Ifa(i,j)=kNext kFor i=1 To nFor j=1 To nPic1.Print Right( & Str(a(i,j),3);Next jPic1.PrintNext iEnd Sub3.运行下面的程序,单击Cmd1,窗体上显示的第一行是_(7)_,第二行是_(8)_ ,最后一行是_(9)_。Option ExplicitPrivate Sub Cmd1_Click()Dim A As IntegerA=3Call Sub1(A)Print AEnd SubPrivate Sub Sub1(X As Integer)X=X*2+1If XLen(St) Thenk=k+1ReDim Preserve a(k)a(k)=Mid(St,i,1)Print a(;k;)=;a(k)End IfNext iEnd SubPrivate Sub Sub1(S As String)Dim i As IntegerFor i=1 To Len(S)2Mid(S,i,1)=Mid(S,Len(S)-i+1,1)Next iEnd Sub5.执行下面程序,在文本框Text1中输入21 23 2 3 5 17 54#后,单击命令按钮Cmdl,数组元素A(1)的值是_(13)_,A(3)的值是_(14)_,A(5)的值是_(15)_.Option ExplicitPrivate Sub Cmd1_Click()Dim A() As Integer,K As IntegerDim L As Integer,S As StringS=Text1DoK=K+12010秋江苏计算机二级VB考试真题页码，4/7/Html/exam_twoVB/0104173447806.html 2011/10/7ReDim Preserve A(K)L=InStr(S, )If L0 ThenA(K)=Val(Left(S,L-1)S=Right(S,Len(S)-L)ElseA(K)=Val(S)End IfLoop Until L=0Call Exchang(A)For K=1 To 7Text2=Text2 & A(K) & Next KEnd SubPrivate Sub Exchang(A() As Integer)Dim i As Integer,Tem As IntegerDim Point1 As IntegerPoint1=1For i=1 To UBound(A)If A(i) Mod 3 =0ThenTem=A(i)A(i)=A(Point1)A(Point1)=TemPoint1=Point1+1End IfNext iEnd Sub6.本程序的功能是,利用下列公式求函数cos(x)的近似值,规定通项的绝对值10-6时结束计算。请完善本程序.cos(x)=1-通用公式可知:a =Option ExplicitPrivate Sub Command1_Ciick()Dim S As Single,T As Single,K As Integer,x As SingleConst eps As Single=0.000001x=Val(Text1)_(16)_S=1T=1DoT= _(17)_S=S+TK=K+1Loop While _(18)_Text2=SEndSub7.本程序的功能是找出一组连续的整数,它们的和数等于给定的数。通常给定一个数,可能会找出多组符合要求的连续整数。查找的方法是穷举法。请完善本程序。Option ExplicitPrivate Sub CmdRun_Click()Dim m As Integer,sum As Integer,st As StringDim i As Integer,j As Integer,k As Integerm=Text1For i=1 To m-1_(19)_For j=i To msum=_(20)_If sum=m Thenst= st赋以空值2010秋江苏计算机二级VB考试真题页码，5/7/Html/exam_twoVB/0104173447806.html 2011/10/7For k=i To jst= _(21)_Next kList1.AddItem Left(st,Len(st)-1)End IfNext jNext iEnd Sub8.本程序的功能是将汉字的区位码转换成以十六进制数形式表示的机内码。汉字的区位码由4位数字组成,前两位数字表示汉字在编码表中的区号,后两位数字表示位号,区号和位号均为十进制数。例如汉字中的区位码是5448,即中的区号是54,位号是48。将区号与位号分别加上160,再转换成十六进制数形式,就是中的机内码。请完善本程序。Option ExplicitPrivate Sub CmdChange_Click()Dim qw As String,jn As Stringqw=Text1Text2=qw2jn(qw)End SubPrivate Function qw2jn(st As String) As StringDim n1 As Integer,n2 As Integern1=Val(Left(st,2)+160n2=_(22)_qw2jn=d2h(n1) & d2h(n2)End FunctionPrivate Function d2h(d As Integer) As StringDim p As Integer,q As String*1Dop= _(23)_If p9 Thenq=Chr(55+p)Elseq=CStr(p)EndIf_(24)_d=d16Loop Until _(25)_End Function9.本程序的功能是查找一组数据中的众数。所谓众数,就是在这组数据中出现次数最多的数.注意:一组数据中的众数可能有多个.(即有多个数据的出现次数相同)。事件过程Cmdfind主要功能是生成n个随机整数存入数组,再调用Freq过程,求出数组中每个不相同的数据出现的次数:再求出其中最大的出现次数值,最后,将求出相应的众数输出。请完善本程序。Option ExplicitOption Base 1Private Sub Cmdfind_Click()Dim a() As Integer,n As Integer,i As IntegerDim Shu() As Integer,Cs() As Integer,Max As Integern=InputBox(输入数据个数:,查找众数,20)ReDim a(n)RandomizeFor i=1 To na(i)=Int(Rnd*5)+5Text1=Text1 & Str(a(i)If i Mod 10=0 Then Text1=Text1 & vbCrLf2010秋江苏计算机二级VB考试真题页码，6/7/Html/exam_twoVB/0104173447806.html 2011/10/7Next iCall Freq(a,Shu,Cs)Max=Cs(1)For i=2 To UBound(Cs)If Cs(i)Max Then_(26)_End IfNext iFor i=1 To UBound(Cs)If _(27)_