|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2011年秋江苏省计算机二级VB考试真题 |
绝密★ 启用前 2011年秋 江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试 二级试卷 试卷语种: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.信息与物质、能量是客观世界的三大构成要素 B.与信息处理相关的行为和活动主要指信息的分类、计算、分析等,但不包含信息的收集和传递 C.现代信息技术的主要特征之一是以数字技术为基础 D.计算机技术、通信技术均属于信息技术 2. 下列有关数字技术与微电子技术的叙述中,错误的是___(2)___ A.数字技术是采用有限个状态(主要是两个状态)来表示、处理、存储和传输信息的技术 B.比特是信息的基本单位,1个比特可以表示8位二进制数 C.集成电路芯片是微电子技术的结晶,是现代信息产业的基础 D.Moore定律是指"单块集成电路的集成度平均每18-24个月翻一番" 3. 下列有关计算机发展与分类的叙述中,错误的是___(3)___。 A.数字电子计算机诞生于20世纪40年代,个人计算机(微型计算机)产生子20世纪80年代初 B.第4代计算机的CPU主要采用中小规模集成电路,第5代计算机采用超大规模集成电路 C.计算机分类有多种方法,按其内部逻辑结构通常分为16位机、32位机或64位机等,目前使用的PC机大多是32位机或64位机 D.巨型计算机一般采用大规模并行处理的体系结构,我国国防科技大学研制的"天 河1号,,巨型计算机,其性能可在全球巨型机排行榜中位居前10名 4. 下列有关PC机微处理器的叙述中,错误的是___(4)___ A.目前PC机所用的各种微处理器均由Intel公司设计和生产 B.微处理器通常由单片集成电路制成 C.一台高性能PC机中通常包含多个微处理器 D.台式PC机与笔记本PC机采用的微处理器通常有所不同 5. 下列有关PC机主板与芯片组的叙述中,错误的是 ___(5)___。 A.台式PC机主板的物理尺寸已经标准化 B.有些主板将声卡、网卡、显卡的功能均集成在其中 C.芯片组是PC机各组成部分相互连接和通信的枢纽,它们与CPU芯片以及IO接 口同步发展 D.PC机主板上可安装的内存条类型及内存最大容量与芯片组无关 6. 下列是PC机常用的四种外设接口,其中适用于连接硬盘和光驱的是___(6)___ A.RS-232 B.SATA C.IEEE-1394 D.VGA 7. 下列有关显示器、显示卡、打印机的叙述中,错误的是___(7)___ 。 A.目前常见的"宽屏"LCD显示器,其屏幕的宽度与高度之比为4:3 B.对于集成显卡来说,显卡的功能主要是由主板上的芯片组来实现 C.无论是针式打印机,还是激光/喷墨打印机,均有黑白打印机与彩色打印机之分 D.打印机的主要性能指标之一是打印速度,其单位为PPM 8. 下列有关光盘存储器的叙述中,错误的是 ___(8)___ A.DVD光盘刻录机可以刻录的光盘有CD-R、CD-RW、DVD-R和DVD-RW等类型 B.组合光驱("康宝")组合了CD刻录机与DVD刻录机的功能 C.蓝光光驱(BD)使用蓝色激光在光盘上读写信息 D.光盘刻录机的读/写速度通常是不同的,一般来说读取信息的速度快于刻录的速度 9. 按照软件著作权益的处置方式,软件可以分为商品软件、共享软件、自由软件等类型• 在下列相关叙述中,错误的是___(9)___。 A.商品软件需要用户付费才能得到其使用权 B.共享软件是具有版权的软件,允许用户有条件的使用 C.自由软件允许使用者随意拷贝、传播,允许修改其源代码但必须公开修改内容 D.共享软件、自由软件均属于免费软件 10.下列有关Windows操作系统的叙述中,错误的是___(10)___ 。 A.Windows XP和Windows 7均分为32位版本和64位版本 B.一般来说,能安装Windows 7的PC机也能安装Windows XP C.无论是Windows XP还是Windows 7,其家庭版(基本版)均不支持多核处理器 D.目前来看,Windows比UNIX更容易受到病毒的侵扰 11.在下列有关算法的叙述中,错误的是___(11)___。 A.通俗地说,算法就是解决问题的方法和步骤 B.算法总是在执行了有限步的操作后终止 C.程序是算法的实现,程序与算法是一一对应的 D.算法解决的往往是一类问题而不是一个特定的问题 12.下列有关Microsoft Office 2000(及其后续版本)的叙述中,错误的是___(12)___ • A.由Word创建的文档,用户可以直接将其保存为HTML文件(即网页) B.在Excel中用户可以直接打开一些数据库中的表文件(例如DBF文件) C.在FrontPage的"代码"视图中,用户可以直接对HTML网页进行编辑 D.在Access数据库中每个表可以有多个主键 13.下列是与通信传输介质相关的叙述,其中错误的是___(13)___。 A.目前家用的电话线属于五类双绞线 B.目前入户的有线电视电缆属于宽带同轴电缆 C.光纤是光导纤维的简称,光纤的纤芯是细石英玻璃丝 D.微波是一种电磁波,它具有类似光波的特性,在空间主要是直线传播 14.因特网中的IP地址可以分为A类、B类、C类、D类等。在下列4个IP地址中,属 于C类地址的是___(14)___ 。 A.28.129.200.19 B.88.129.200.19 C.188.129.200.19 D.222.129.200.19 15.在下列有关IP地址与域名的叙述中,错误的是___(15)___ • A.目前使用的IP协议主要是IPv4协议,其IP地址长度为32位 B.因特网是多个网络互联而成的,不同网络中的主机可以具有相同的IP地址 C.域名是IP地址的文字表述形式,但不是所有的IP地址均有相应的域名 D.一个IP地址可以有多个对应的域名 16.通常所说的TCP/IP协议,是指由100多个协议组成的协议系列(包含下列几个协议)• 在下列协议中,发送电子邮件主要依赖___(16)___. A.HTTP协议 B.FTP协议 C.Telnet协议 D.SMTP协议 17.下列有关采用ADSL技术接入因特网的叙述中,错误的是___(17)___ A.计算机中需要安装(集成)以太网网卡 B.需要使用专用的ADSL MODEM设备 C.上行与下行传输速率相同,传输速率可达100Mbps D.可传送数据、音频、视频等信息 18.下列有关汉字字符集及其编码的叙述中,错误的是___(18)___ • A.GB2312是我国颁布的第一个汉字编码国家标准,该标准包含了6000多个汉字 B.GB2312的所有字符在计算机内都采用2个字节来表示 C.GBK收录了包括繁体字在内的20000多个汉字和符号,它向下兼容GB2312 D.GB18030是我国最新颁布的汉字编码标准,它与GB2312和GBK均不兼容 19.语音在数字化时常用的取样频率为8kHz、量化位数为8bits。若声道数为2,则每分钟 的数字语音数据量在未压缩时大约为 ___(19)___ A.64KB B.128KB C.1MB D.2MB 20.数字图像文件有多种文件类型,不同类型的文件各有其特点。在下列4种文件类型中, 能够将多张图片保存在一个文件中且能产生动画效果的是___(20)___ A.BMP B.JPG C.GIF D. PNG 第二部分 Visual Basic程序设计 一、选择题(用答题卡答题,答案依次填在21～30答题号内) 21.VB应用程序设计的一般步骤是___(21)___。 A.分析-->设计-->界面-->编码-->测试 B.界面-->设计-->编码-->分析-->文档 C.分析-->界面-->编码-->设计-->测试 D.界面-->编码-->测试-->分析-->文档 22.若在程序运行时,需要将焦点主动设置到指定的对象上,应调用该对象的___(22)___方法。 A.Move B.SetFocus C.Refresh D.Drag 23.窗体通用声明部分的"Option Base 1"语句,决定本窗体中数组下标___(23)___。 A.维下界必须为1 B.缺省的维下界为1 C.维下界不能为0 D.缺省的维下界为0 24.Select Case X结构中(X为Integer类型),如果判断条件为X=5,正确的Case语句应该是 至___(24)___ 。 A.Case X=5 B.Case Is 25.表达式3*5^2 Mod 23\3的值是___(25)___。 A.2 B 26.数学表达式 对应的VB表达式是___(26)___。 A.a*b/(Sqr(c*d)*e^x*Log(y)) B.a*b/(Sqr(c*d)*Exp(x)*Log(y)) C.a*b/(Sqr(c*d)*Exp(x)*Log(y)/Log(10)) D.a+b/(Sqr(c*d)*e^x*Log(y)/Log(10)) 27.以下说法中错误的是___(27)___ 。 A.在过程中用Dim、Static声明的变量都是局部变量 B.执行过程时,给所有局部变量分配内存并进行初始化;过程执行结束,释放它们所占的内存 C.局部变量可与模块级或全局变量同名,且在过程中,其优先级高于同名的模块级或全局变量 D.在模块通用声明部分,可使用Dim声明模块级变量或数组 28.以下有关数组的说法中,错误的是___(28)___。 A.定义固定大小数组时,维界定义中不可以包含变量 B.可以使用常数表达式或已经定义过的符号常数说明数组的维界 C.定长字符串类型的数组不可以作为过程的形式参数 D.只能在标准模块中用Public语句定义一个全局数组 29.下面有关自定义过程的说法中,错误的是___(29)___ 。 A.可以用Call语句调用自定义函数,也可以用函数名直接调用自定义函数 B.可以定义没有形式参数的Sub过程和Function过程 C.调用过程时,可以用常数或表达式作为实在参数与被调过程的按地址传递的形参结合 D.主调程序与被调用的函数过程之间,只能依靠函数名把被调过程的处理结果传递给主调程序 30.以下关于MsgBox函数的说法中,正确的是___(30)___ 。 A.MsgBox函数有返回值,且返回值类型为数值型 B.MsgBox函数没有返回值 C.MsgBox函数有返回值,且返回值类型为字符型 D.通过MsgBox函数中的第一个参数,可以设置信息框中的图标以及按钮的个数与类型 二、填空题(请将答案填写在答题纸的相应答题号内,每个答案只占一行) 1.执行下面程序,单击命令按钮Command1,窗体上显示的第一行内容是___(1)___,第二行内 容是___(2)___,第三行内容是___(3)___ Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer, i As Integer a = 1 b = 5 For i = b To a Step -1 a = a + i b = b + a If b > 30 Then Exit For Print a, b Next i Print a, b End Sub 2.执行下面程序,单击命令按钮Command1,最终A(2,2)的值是___(4)___,A(3,1)的值是 ___(5)___,A(4,2)的值是___(6)___。 Option Explicit Option Base 1 Private Sub Commandl_Ciick() Dim A(4,4)As Integer,i As Integer,j As Integer,k As Integer For i=1 To 4 For j=1 To 4 k=k+1 A(i,j)=k Next j Next i Call Transform(A) For i=1 To 4 For j=l To 4 Text1=Text1 & Right(" " & A(i,j),3) Next j Text1=Text1 & vbCrLf Nexti End Sub Private Sub Transform(A() As Integer) Dim i As Integer,j As Integer,n As Intege,t As Integer,k As Integer n=UBound(A,1) k=n+1 For i=1 To n/2 For j=1 To n If i<>j And j<>k-i Then t=A(i,j) A(i,j)=A(k-i,k-j) A(k-i,k-j)=t End If Next j Next i End Sub 3.执行下面程序,单击命令按钮Cmd1后,窗体上显示的第一行内容是___(7)___,第二行内容 是___(8)___,第三行内容是___(9)___。 Option Explicit Private Sub Cmd1_Click() Dim st As String,ch As String*1,t As Integer Dim i As Integer st="2,3,8,12,32,65#" For i=1 To Len(st) ch=Mid(st,i,1) If ch<>"," And ch<>"#" Then t=t*10+Val(ch) Else If pd(t) Then Print t t=0 End If Next i End Sub Private Function pd(ByVal n As Integer)As Boolean Do While n<>1 If n Mod 2<>0 Then Exit Function EndIf n=n\2 pd=True End Function 4.执行下面程序,单击命令按钮CmdRun后,图片框Pic1第一行显示内容是___(10)___,第二 行显示内容是___(11)___,最后一行显示内容是___(12)___。 Option Explicit Private Sub CmdRun_Click() Dim N As Integer,M As Integer M=135 N=8 Pic1.Print Fun(M,N) EndSub Private Function Fun(ByVal N As Integer,ByVal R As Integer)As String Dim L As Integer If N Fun=N Else L=N\R Fun=Fun(L,R) Fun=Fun & N Mod R End If Pic1.Print N End Function 5.执行下面程序,单击命令按钮CmdRun后,文本框Text1中第一行显示的内容是___(13)___ , 第二行显示的内容是___(14)___。第三行显示的内容是___(15)___ 。 Option Explicit Private Sub CmdRun_Click() Dim S As String,Subs As String,P As Integer S="100101 010110 110101" Do P=InStr(S," ") If P<>0 Then Subs=Left(S,P-1) Else Subs=S End If S=Mid(S,P+1) Text1=Text1 & Complement(Subs) & vbCrLf Loop Until Len(S)=0 Or P=0 End Sub Private Function Complement(S As String)As Integer Dim P As Integer,L As Integer L=Len(S) If Left(S,1)=1 Then Complement=-32 End If P=1 Do Until P=0 P=InStr(P+1,S,"1") If P<>0 Then Complement=Complement+2^(L-P) End If End Function 6.本程序的功能是按公式求S的近似值(计算到第n项的绝对值小于等于10^-7为止)。 S=x- 请完善本程序。 Option Explicit Private Sub Command1_Click() Dim x As Single,n As Single,T As Single,S As Single x=Val(Text1) S=x Do ___(16)___ T=afun(x,n) S=S+T Loop Until ___(17)___ Text2=Format(S,"0.#######") End SUb Private Function afun(x As Single,n As Single)As Single Dim i As Single,p As Single P=1 For i=1 To n p= ___(18)___ Next i afun=(-1)^n*p*x^(2*n+1)/(2*n+1) End Function 7.本程序的功能是找出10到60之间所有不可以表示成两个平方数之和的数,请完善本程序• Option Explicit Private Sub CmdFind_Click() Dim i As Integer,j As Integer,k As Integer Dim p As Integer,q As Integer For i=10 To 60 For j=1 To Int(Sqr(i)) ___(19)___ q=i-P If q<>0 And judge(q) Then Exit For Next j If ___(20)___ Then k=k+1 Text1.Text=Text1.Text & i & " " If k Mod 5=0 Then Text1.Text=Text1.Text & vbCrlf End If Next i EndSub Public Function judge(ByVal x As Integer)As Boolean If ___(21)___ Then judge=True Else judge=False End If End Function 8.本程序的功能是:找出所有满足各位数字之和正好是其所有质因子之和的三位数。例如378,其各 位数字之和为18,而其质因子2,3,3,3,7之和也是18,所以378是满足条件的数。 Option Explicit Private Sub CmdFind_Click() Dim i As Integer,p As String,st As String,st1 As String For i=100 To 999 ___(22)___ If csum(i)=zyz(i,st) Then p=CStr(i) st1=Left(p,1) & "+" & Mid(p,2,1) & "+" & Right(p,1) List1.AddItem i & ": " & st1 & "=" & Left(st,Len(st)-1) End If Next i If List1.ListCount=0 Then List1.AddItem "无满足要求的数!" End If End Sub Private Function csum(m As Integer)As Integer '求各位数字之和 Dim i As Integer,p As String p=CStr(m) For i=1 To Len(p) ___(23)___ Next i End Function Private Function zyz(ByVal m As Integer,st As String)As Integer '求所有质因子之和 Dim i As Integer i=2 Do If m Mod i=0 Then zyz=zyz+i st=st & i & "+" m=m\i EIse ___(24)___ End If Loop Until ___(25)___ End Function 9.本程序的功能是,按"年/月/日"格式输入日期,计算出该日期是该年份中的第几天,过程leap_year 用于判断该年份是否为闰年(能被4整除且不能被100整除或能被400整除的年份为闰年)。 Private Sub Commandl_Click() Dim st As String,rq(3)As Integeb k As Integer,d As Integer Dim p As String*1,q As String,i As Integer,dt As Integer st=Trim(Text1) i=1 Do p=Mid(st,i,1) If p<>"/" Then q=q & p Else k=k+1 rq(k)=Val(q) ___(26)___ End If i=___(27)___ Loop Until i>Len(st) k=k+1 rq(k)=q For i=___(28)___ To 1 Step -1 Select Case i Case 1,3,5,7,8,10 dt=31 Case 2 If leap_year(rq(1))Then dt=29 Else dt=28 End If Case Else dt=30 End Select d= ___(29)___ Next i Text2=d+rq(3) End Sub Private Function leap_year(n As Integer)As Boolean If ___(30)___ Then leap_year=True ElseIf n Mod 400=0 Then leap_year=True End If End Function 2011年秋季( (1)B (2)B (3)B (4)A (5)D (6)B(7)A (8)B (9)D (10)C (11)C(12)D (13)A (14)D (15)B(16)D (17)C (18)D (19)C (20)C (21)A (22)B (23)B (24)C (25)B (26)B (27)B (28)C (29)D (30)A 二、填空题 (1)6 11 (2)10 21 (3)13 34(4)6 (5)8 (6)3 (7)2 (8)8 (9)32 (10)2 (11)16 (12)207(13)-27 (14)22 (15)-11(16)n=n+1 (17)abs(t)<=1e-7 (18)p*(2*i-1)/(2*i) (19)p=j*j (20)j=int(sqr(i))+1 或j>int(sqr(i))(21)int(sqr(x))=sqr(x) (22)st="" (23)csum=csum+val(mid(p,i,1))(24)i=i+1 (25)m=1(26)q="" (27)i+1 (28)rq(2)-1 (29)d+dt (30)n mod 4=0 and n mod 100<>0
|