【计算机类职业资格】2011年秋江苏省计算机二级VB考试及答案解析.doc

1、2011 年秋江苏省计算机二级 VB 考试及答案解析(总分：78.00，做题时间：120 分钟)一、说 明：(总题数：1，分数：0.00)二、第一部分 计算机基础知识(总题数：20，分数：40.00)1.下列有关信息、信息处理、信息技术的叙述中,错误的是 _(1)_。（分数：2.00）A.信息与物质、能量是客观世界的三大构成要素B.与信息处理相关的行为和活动主要指信息的分类、计算、分析等,但不包含信息的收集和传递C.现代信息技术的主要特征之一是以数字技术为基础D.计算机技术、通信技术均属于信息技术2.下列有关数字技术与微电子技术的叙述中,错误的是_(2)_（分数：2.00）A.数字技术是采用有

2、限个状态(主要是两个状态)来表示、处理、存储和传输信息的技术B.比特是信息的基本单位,1 个比特可以表示 8 位二进制数C.集成电路芯片是微电子技术的结晶,是现代信息产业的基础D.Moore 定律是指“单块集成电路的集成度平均每 18-24 个月翻一番“3.下列有关计算机发展与分类的叙述中,错误的是_(3)_。（分数：2.00）A.数字电子计算机诞生于 20 世纪 40 年代,个人计算机(微型计算机)产生子 20 世纪 80 年代初B.第 4 代计算机的 CPU 主要采用中小规模集成电路,第 5 代计算机采用超大规模集成电路C.计算机分类有多种方法,按其内部逻辑结构通常分为 16 位机、32

3、位机或 64 位机等,目前使用的 PC 机大多是 32 位机或 64 位机D.巨型计算机一般采用大规模并行处理的体系结构,我国国防科技大学研制的“天河 1 号,巨型计算机,其性能可在全球巨型机排行榜中位居前 10 名4.下列有关 PC 机微处理器的叙述中,错误的是_(4)_（分数：2.00）A.目前 PC 机所用的各种微处理器均由 Intel 公司设计和生产B.微处理器通常由单片集成电路制成C.一台高性能 PC 机中通常包含多个微处理器D.台式 PC 机与笔记本 PC 机采用的微处理器通常有所不同5.下列有关 PC 机主板与芯片组的叙述中,错误的是 _(5)_。（分数：2.00）A.台式 PC

4、 机主板的物理尺寸已经标准化B.有些主板将声卡、网卡、显卡的功能均集成在其中C.芯片组是 PC 机各组成部分相互连接和通信的枢纽,它们与 CPU 芯片以及 IO 接口同步发展D.PC 机主板上可安装的内存条类型及内存最大容量与芯片组无关6.下列是 PC 机常用的四种外设接口,其中适用于连接硬盘和光驱的是_(6)_（分数：2.00）A.RS-232B.SATAC.IEEE-1394D.VGA7.下列有关显示器、显示卡、打印机的叙述中,错误的是_(7)_ 。（分数：2.00）A.目前常见的“宽屏“LCD 显示器,其屏幕的宽度与高度之比为 4:3B.对于集成显卡来说,显卡的功能主要是由主板上的芯片组

5、来实现C.无论是针式打印机,还是激光/喷墨打印机,均有黑白打印机与彩色打印机之分D.打印机的主要性能指标之一是打印速度,其单位为 PPM8.下列有关光盘存储器的叙述中,错误的是 _(8)_（分数：2.00）A.DVD 光盘刻录机可以刻录的光盘有 CD-R、CD-RW、DVD-R 和 DVD-RW 等类型B.组合光驱(“康宝“)组合了 CD 刻录机与 DVD 刻录机的功能C.蓝光光驱(BD)使用蓝色激光在光盘上读写信息D.光盘刻录机的读/写速度通常是不同的,一般来说读取信息的速度快于刻录的速度9.按照软件著作权益的处置方式,软件可以分为商品软件、共享软件、自由软件等类型?在下列相关叙述中,错误的

6、是_(9)_。（分数：2.00）A.商品软件需要用户付费才能得到其使用权B.共享软件是具有版权的软件,允许用户有条件的使用C.自由软件允许使用者随意拷贝、传播,允许修改其源代码但必须公开修改内容D.共享软件、自由软件均属于免费软件10.下列有关 Windows 操作系统的叙述中,错误的是_(10)_ 。（分数：2.00）A.Windows XP 和 Windows 7 均分为 32 位版本和 64 位版本B.一般来说,能安装 Windows 7 的 PC 机也能安装 Windows XPC.无论是 Windows XP 还是 Windows 7,其家庭版(基本版)均不支持多核处理器D.目前来看

7、,Windows 比 UNIX 更容易受到病毒的侵扰11.在下列有关算法的叙述中,错误的是_(11)_。（分数：2.00）A.通俗地说,算法就是解决问题的方法和步骤B.算法总是在执行了有限步的操作后终止C.程序是算法的实现,程序与算法是一一对应的D.算法解决的往往是一类问题而不是一个特定的问题12.下列有关 Microsoft Office 2000(及其后续版本)的叙述中,错误的是_(12)_ ?（分数：2.00）A.由 Word 创建的文档,用户可以直接将其保存为 HTML 文件(即网页)B.在 Excel 中用户可以直接打开一些数据库中的表文件(例如 DBF 文件)C.在 FrontPa

8、ge 的“代码“视图中,用户可以直接对 HTML 网页进行编辑D.在 Access 数据库中每个表可以有多个主键13.下列是与通信传输介质相关的叙述,其中错误的是_(13)_。（分数：2.00）A.目前家用的电话线属于五类双绞线B.目前入户的有线电视电缆属于宽带同轴电缆C.光纤是光导纤维的简称,光纤的纤芯是细石英玻璃丝D.微波是一种电磁波,它具有类似光波的特性,在空间主要是直线传播14.因特网中的 IP 地址可以分为 A 类、B 类、C 类、D 类等。在下列 4 个 IP 地址中,属于 C 类地址的是_(14)_ 。（分数：2.00）A.28.129.200.19B.88.129.200.19

9、C.188.129.200.19D.222.129.200.1915.在下列有关 IP 地址与域名的叙述中,错误的是_(15)_ ?（分数：2.00）A.目前使用的 IP 协议主要是 IPv4 协议,其 IP 地址长度为 32 位B.因特网是多个网络互联而成的,不同网络中的主机可以具有相同的 IP 地址C.域名是 IP 地址的文字表述形式,但不是所有的 IP 地址均有相应的域名D.一个 IP 地址可以有多个对应的域名16.通常所说的 TCP/IP 协议,是指由 100 多个协议组成的协议系列(包含下列几个协议),在下列协议中,发送电子邮件主要依赖_(16)_.（分数：2.00）A.HTTP 协

10、议B.FTP 协议C.Telnet 协议D.SMTP 协议17.下列有关采用 ADSL 技术接入因特网的叙述中,错误的是_(17)_（分数：2.00）A.计算机中需要安装(集成)以太网网卡B.需要使用专用的 ADSL MODEM 设备C.上行与下行传输速率相同,传输速率可达 100MbpsD.可传送数据、音频、视频等信息18.下列有关汉字字符集及其编码的叙述中,错误的是_(18)_ .（分数：2.00）A.GB2312 是我国颁布的第一个汉字编码国家标准,该标准包含了 6000 多个汉字B.GB2312 的所有字符在计算机内都采用 2 个字节来表示C.GBK 收录了包括繁体字在内的 20000

11、 多个汉字和符号,它向下兼容 GB2312D.GB18030 是我国最新颁布的汉字编码标准,它与 GB2312 和 GBK 均不兼容19.语音在数字化时常用的取样频率为 8kHz、量化位数为 8bits。若声道数为 2,则每分钟的数字语音数据量在未压缩时大约为 _(19)_（分数：2.00）A.64KBB.128KBC.1MBD.2MB20.数字图像文件有多种文件类型,不同类型的文件各有其特点。在下列 4 种文件类型中,能够将多张图片保存在一个文件中且能产生动画效果的是_(20)_（分数：2.00）A.BMPB.JPGC.GIFD.PNG三、第二部分 Visual Basic 程序(总题数：1

12、0，分数：20.00)21.VB 应用程序设计的一般步骤是_(21)_。（分数：2.00）A.分析设计界面编码测试B.界面设计编码分析文档C.分析界面编码设计测试D.界面编码测试分析文档22.若在程序运行时,需要将焦点主动设置到指定的对象上,应调用该对象的_(22)_方法。（分数：2.00）A.MoveB.SetFocusC.RefreshD.Drag23.窗体通用声明部分的“Option Base 1“语句,决定本窗体中数组下标_(23)_。（分数：2.00）A.维下界必须为 1B.缺省的维下界为 1C.维下界不能为 0D.缺省的维下界为 024.Select Case X 结构中(X 为

13、Integer 类型),如果判断条件为 X=5,正确的 Case 语句应该是至_(24)_ 。（分数：2.00）A.Case X=5B.Case Is 5C.Case 5D.Case=525.表达式 3*52 Mod 23/3 的值是_(25)_。（分数：2.00）A.2B.5C.6D.1026.数学表达式 对应的 VB 表达式是_(26)_。（分数：2.00）A.a*b/(Sqr(c*d)*ex*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)*ex*Log(y)/L

14、og(10)27.以下说法中错误的是_(27)_ 。（分数：2.00）A.在过程中用 Dim、Static 声明的变量都是局部变量B.执行过程时,给所有局部变量分配内存并进行初始化;过程执行结束,释放它们所占的内存C.局部变量可与模块级或全局变量同名,且在过程中,其优先级高于同名的模块级或全局变量D.在模块通用声明部分,可使用 Dim 声明模块级变量或数组28.以下有关数组的说法中,错误的是_(28)_。（分数：2.00）A.定义固定大小数组时,维界定义中不可以包含变量B.可以使用常数表达式或已经定义过的符号常数说明数组的维界C.定长字符串类型的数组不可以作为过程的形式参数D.只能在标准模块中

15、用 Public 语句定义一个全局数组29.下面有关自定义过程的说法中,错误的是_(29)_ 。（分数：2.00）A.可以用 Call 语句调用自定义函数,也可以用函数名直接调用自定义函数B.可以定义没有形式参数的 Sub 过程和 Function 过程C.调用过程时,可以用常数或表达式作为实在参数与被调过程的按地址传递的形参结合D.主调程序与被调用的函数过程之间,只能依靠函数名把被调过程的处理结果传递给主调程序30.以下关于 MsgBox 函数的说法中,正确的是_(30)_ 。（分数：2.00）A.MsgBox 函数有返回值,且返回值类型为数值型B.MsgBox 函数没有返回值C.MsgBo

16、x 函数有返回值,且返回值类型为字符型D.MsgBox 函数有返回值,且返回值类型为字符型四、填空题(请将答案填写在答题纸的相应答题号(总题数：9，分数：18.00)31.执行下面程序,单击命令按钮 Command1,窗体上显示的第一行内容是 1(1) 2,第二行内容是 3(2) 4,第三行内容是 5(3) 6. Option Explicit Private Sub Command1_Click7 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 +

17、a If b 30 Then Exit For Print a, b Next i Print a, b End Sub （分数：2.00）填空项 1:_32.执行下面程序,单击命令按钮 Command1,最终 A(2,2)的值是 1(4) 2,A(3,1)的值是 3(5) 4,A(4,2)的值是 5(6) 6。 Option Explicit Option Base 1 Private Sub Commandl_Ciick7 Dim A(4,4)As Integer,i As Integer,j As Integer,k As Integer For i=1 To 4 For j=1 To

18、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 过程执行结束,释放它们所占的内存 C.局部变量可与模块级或全局变量同名,且在过程中,其优先级高于同名的模块级或全局变量D.在模块通用声明部分,可使用 Dim 声明模块级变量或数组解析：28.以下有关数组的说法中,错误的是_(28)_。（分数：2.00）A.定义固定大小数组时,维界定义中不可以包含变量B.可以使用常数表达式或已经定义过的符号常数说明数组的维界C.定长字符串类型的数组不可以作为过程的形式参数 D.只能在标准模块

19、中用 Public 语句定义一个全局数组解析：29.下面有关自定义过程的说法中,错误的是_(29)_ 。（分数：2.00）A.可以用 Call 语句调用自定义函数,也可以用函数名直接调用自定义函数B.可以定义没有形式参数的 Sub 过程和 Function 过程C.调用过程时,可以用常数或表达式作为实在参数与被调过程的按地址传递的形参结合D.主调程序与被调用的函数过程之间,只能依靠函数名把被调过程的处理结果传递给主调程序 解析：30.以下关于 MsgBox 函数的说法中,正确的是_(30)_ 。（分数：2.00）A.MsgBox 函数有返回值,且返回值类型为数值型 B.MsgBox 函数没有返

20、回值C.MsgBox 函数有返回值,且返回值类型为字符型D.MsgBox 函数有返回值,且返回值类型为字符型解析：四、填空题(请将答案填写在答题纸的相应答题号(总题数：9，分数：18.00)31.执行下面程序,单击命令按钮 Command1,窗体上显示的第一行内容是 1(1) 2,第二行内容是 3(2) 4,第三行内容是 5(3) 6. Option Explicit Private Sub Command1_Click7 Dim a As Integer, b As Integer, i As Integer a = 1 b = 5 For i = b To a Step -1 a = a

21、+ i b = b + a If b 30 Then Exit For Print a, b Next i Print a, b End Sub （分数：2.00）填空项 1:_ （正确答案：(1)6 11 (2)10 21 (3)13 34）解析：32.执行下面程序,单击命令按钮 Command1,最终 A(2,2)的值是 1(4) 2,A(3,1)的值是 3(5) 4,A(4,2)的值是 5(6) 6。 Option Explicit Option Base 1 Private Sub Commandl_Ciick7 Dim A(4,4)As Integer,i As Integer,j

22、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(A8 As Integer) Dim i As Integer,j As Integer,n As Intege,t As Integer,k As In

23、teger n=UBound(A,1) k=n+1 For i=1 To n/2 For j=1 To n If ik-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（分数：2.00）填空项 1:_ （正确答案：(4)6 (5)8 (6)3）解析：33.执行下面程序,单击命令按钮 Cmd1 后,窗体上显示的第一行内容是 1(7) 2,第二行内容是 3(8) 4,第三行内容是 5(9) 6。 Option Explicit Private Sub Cmd1_Click7 Dim st As S

24、tring,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“#“ 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 n0 Then Exit Function EndIf n=n/2 Loop pd=True End Fu

25、nction （分数：2.00）填空项 1:_ （正确答案：(7) 2 (8) 8 (9) 32）解析：34.执行下面程序,单击命令按钮 CmdRun 后,图片框 Pic1 第一行显示内容是 1(10) 2,第二行显示内容是 3(11) 4,最后一行显示内容是 5(12) 6。 Option Explicit Private Sub CmdRun_Click7 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

26、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 （分数：2.00）填空项 1:_ （正确答案：(10) 2 (11) 16 (12) 207）解析：35.执行下面程序,单击命令按钮 CmdRun 后,文本框 Text1 中第一行显示的内容是 1(13) 2 , 第二行显示的内容是 3(14) 4。第三行显示的内容是 5(15) 6 。 Option Explicit Private Sub CmdRun

27、_Click7 Dim S As String,Subs As String,P As Integer S=“100101 010110 110101“ Do P=InStr(S,“ “) If P0 Then Complement=Complement+2(L-P) End If Loop End Function （分数：2.00）填空项 1:_ （正确答案：(13) -27 (14) 22 (15) -11）解析：36.本程序的功能是按公式求 S 的近似值(计算到第 n 项的绝对值小于等于 10-7 为止)。 S=x- + * +(-1) * 请完善本程序。 Option Explici

28、t Private Sub Command1_Click1 Dim x As Single,n As Single,T As Single,S As Single x=Val(Text1) S=x Do 2(16) 3 T=afun(x,n) S=S+T Loop Until 4(17) 5 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= 6(18) 7 Next i afun

29、=(-1)n*p*x(2*n+1)/(2*n+1) End Function （分数：2.00）填空项 1:_ （正确答案：(16) n=n+1 (17) abs(t)0 And judge(q) Then Exit For Next j If 4(20) 5 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 6

30、(21) 7 Then judge=True Else judge=False End If End Function （分数：2.00）填空项 1:_ （正确答案：(19) p=j*j (20) j=int(sqr(i)+1 或 jint(sqr(i) (21) int(sqr(x)=sqr(x)）解析：38.本程序的功能是:找出所有满足各位数字之和正好是其所有质因子之和的三位数。例如 378,其各位数字之和为 18,而其质因子 2,3,3,3,7 之和也是 18,所以 378 是满足条件的数。 Option Explicit Private Sub CmdFind_Click1 Dim i

31、 As Integer,p As String,st As String,st1 As String For i=100 To 999 2(22) 3 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

32、Private Function csum(m As Integer)As Integer 求各位数字之和 Dim i As Integer,p As String p=CStr(m) For i=1 To Len(p) 4(23) 5 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 6(24) 7 E

33、nd If Loop Until 8(25) 9 End Function （分数：2.00）填空项 1:_ （正确答案：(22) st=“ (23) csum=csum+val(mid(p,i,1) (24) i=i+1 (25) m=1）解析：39.本程序的功能是,按“年/月/日“格式输入日期,计算出该日期是该年份中的第几天,过程 leap_year 用于判断该年份是否为闰年(能被 4 整除且不能被 100 整除或能被 400 整除的年份为闰年)。 Private Sub Commandl_Click1 Dim st As String,rq(3)As Integeb k As Integ

34、er,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 pLen(st) k=k+1 rq(k)=q For i= 6(28) 7 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= 8(29) 9 Next i Text2=d+rq(3) End Sub Private Function leap_year(n As Integer)As Boolean If 10(30) 11 Then leap_year=True ElseIf n Mod 400=0 Then leap_year=True End If End Function （分数：2.00）填空项 1:_ （正确答案：(26)q=“ (27)i+1 (28)rq(2)-1 (29)d+dt (30)n mod 4=0 and n mod 1000）解析：