1、2009 年春江苏计算机等级考试二级 vb 及答案解析(总分：96.00，做题时间：120 分钟)一、说 明：(总题数：1，分数：0.00)二、第一部分计算机基础知识(总题数：20，分数：40.00)1.在下列有关现代信息技术的一些叙述中，正确的是 （1）。（分数：2.00）A.集成电路是 20 世纪 90 年代初出现的，它的出现直接导致了微型计算机的诞生B.集成电路的集成度越来越高，目前集成度最高的已包含几百个电子元件C.目前所有数字通信均不再需要使用调制解调技术和载波技术D.光纤主要用于数字通信，它采用波分多路复用技术以增大信道容量2.最大的 10 位无符号二进制整数转换成八进制数是（2）
2、。 （分数：2.00）A.1023B.1777C.1000D.10243.在下列有关目前 PC 机 CPU 的叙述中，错误的是 （3）。（分数：2.00）A.CPU 芯片主要是由 Intel 公司和 AMD 公司提供的B.“双核“是指 PC 机主板上含有两个独立的 CPU 芯片C.Pentium 4 微处理器的指令系统由数百条指令组成D.Pentium 4 微处理器中包含一定容量的 Cache 存储器4.在下列有关当前 PC 机主板和内存的叙述中，正确的是（4）。（分数：2.00）A.主板上的 BIOS 芯片是一种只读存储器，其内容不可在线改写B.绝大多数主板上仅有一个内存插座，因此 PC 机
3、只能安装一根内存条C.内存条上的存储器芯片属于 SRAM(静态随机存取存储器)D.目前内存的存取时间大多在几个到十几个 ns(纳秒)之间5.在下列有关 PC 机辅助存储器的叙述中，正确的是（5）。（分数：2.00）A.硬盘的内部传输速率远远大于外部传输速率B.对于光盘刻录机来说，其刻录信息的速度一般小于读取信息的速度C.使用 USB 2.0 接口的移动硬盘，其数据传输速率大约为每秒数百兆字节D.CD-ROM 的数据传输速率一般比 USB 2.0 还快6.在下列 PC 机 I/O 接口中，数据传输速率最快的是（6）。（分数：2.00）A.USB 2.0B.IEEE-1394C.IrDA (红外)
4、D.SATA7.计算机软件可以分为商品软件、共享软件和自由软件等类型。在下列相关叙述中，错误的是（7）。（分数：2.00）A.通常用户需要付费才能得到商品软件的使用权，但这类软件的升级总是免费的B.共享软件通常是一种“买前免费试用“的具有版权的软件C.自由软件的原则是用户可共享，并允许拷贝和自由传播D.软件许可证是一种法律合同，它确定了用户对软件的使用权限8.人们通常将计算机软件划分为系统软件和应用软件。下列软件中，不属于应用软件类型的是（8）（分数：2.00）A.AutoCADB.MSNC.OracleD.Windows Media Player9.在下列有关 Windows 98/2000
5、/XP 操作系统的叙述中，错误的是（9）。（分数：2.00）A.系统采用并发多任务方式支持多个任务在计算机中同时执行B.系统总是将一定的硬盘空间作为虚拟内存来使用C.文件(夹)名的长度可达 200 多个字符D.硬盘、光盘、优盘等均使用 FAT 文件系统10.在下列有关算法和数据结构的叙述中，错误的是（10）。（分数：2.00）A.算法通常是用于解决某一个特定问题，且算法必须有输入和输出B.算法的表示可以有多种形式，流程图和伪代码都是常用的算法表示方法C.常用的数据结构有集合结构、线性结构、树形结构和网状结构等D.数组的存储结构是一种顺序结构11.因特网的 IP 地址由三个部分构成，从左到右分别
6、代表（11）。（分数：2.00）A.网络号、主机号和类型号B.类型号、网络号和主机号C.网络号、类型号和主机号D.主机号、网络号和类型号12.在下列有关 ADSL 技术及利用该技术接入因特网的叙述中，错误的是（12）。（分数：2.00）A.从理论上看，其上传速度与下载速度相同B.一条电话线上可同时接听/拨打电话和进行数据传输C.利用 ADSL 技术进行数据传输时，有效传输距离可达几公里D.目前利用 ADSL 技术上网的计算机一般需要使用以太网网卡13.人们往往会用“我用的是 10M 宽带上网“来说明白己计算机连网的性能，这里的“10M“指的是数据通信中的（13）指标。（分数：2.00）A.最高
7、数据传输速率B.平均数据传输速率C.每分钟数据流量D.每分钟 IP 数据包的数目14.计算机局域网按拓扑结构进行分类，可分为环型、星型和（14）型等。（分数：2.00）A.电路交换B.以太C.总线D.对等15.网络信息安全主要涉及数据的完整性、可用性、机密性等问题。保证数据的完整性就是（15）。（分数：2.00）A.保证传送的数据信息不被第三方监视和窃取B.保证发送方的真实身份C.保证传送的数据信息不被篡改D.保证发送方不能抵赖曾经发送过某数据信息16.某计算机系统中，西文使用标准 ASCII 码、汉字采用 GB2312 编码。设有一段纯文本，其机内码为 CB F5 DO B4 50 43 C
8、A C7 D6 B8，则在这段文本中含有：（16）。（分数：2.00）A.2 个汉字和 1 个西文字符B.4 个汉字和 2 个西文字符C.8 个汉字和 2 个西文字符D.4 个汉字和 1 个西文字符17.以下关于汉字编码标准的叙述中，错误的是（17）。（分数：2.00）A.GB 2312 标准中所有汉字的机内码均用双字节表示B.我国台湾地区使用的汉字编码标准 BIG 5 收录的是繁体汉字C.GB 18030 汉字编码标准收录的汉字在 GB 2312 标准中一定能找到D.GB 18030 汉字编码标准既能与 UCS(Unicode)接轨，又能保护已有中文信息资源18.若波形声音未进行压缩时的码率
9、为 64kb/s，已知取样频率为 8kHz，量化位数为 8，那么它的声道数是（18）。（分数：2.00）A.1B.2C.4D.819.从信息处理的深度来区分信息系统，可分为业务处理系统、信息检索系统和信息分析系统等。在下列几种信息系统中，不属于业务处理系统的是（19）。（分数：2.00）A.DSSB.CAIC.CAMD.OA20.在下列有关信息系统开发、管理及其数据库设计的叙述中，错误的是（20）。（分数：2.00）A.常用的信息系统开发方法可分为结构化生命周期方法、原型法、面向对象方法和 CASE 方法等B.在系统分析中常常使用结构化分析方法，并用数据流程图和数据字典来表达数据和处理过程的关
10、系C.系统设计分为概念结构设计、逻辑结构设计和物理结构设计，通常用 E-R 模型作为描述逻辑结构的工具D.从信息系统开发过程来看，程序三、第二部分 Visual Basic 程序设计(总题数：10，分数：20.00)21.在列表框 Listl 中有若干列表项，可以删除选定列表项的语句是 （21）（分数：2.00）A.List1.text=“B.List1List(ListlListIndex)=“C.List1.ClearD.List1.RemoveItem List1.ListIndex22.执行（22）语句时，会出现出错提示信息。（分数：2.00）A.Print 5+7=14B.Print
11、 16384*2C.Print 32768*2D.Print “14“+3223.数学表达式 对应的 VB 表达式是（23）。（分数：2.00）A.(e(2*x5)*Log(x)+(Sin(2x)3)/Sqr(Sin(x)-Cos(x2)B.(Exp(2*314159*x 一 5)*Log(x)+(Sin(2*x)3)/Sqr(Sin(x)一 Cos(x2)C.(Exp(2*x5)*Ln(x)+(Sin(2*x)3)/Sqr(Sin(x)Cos(x2)D.e(2*3.14159*x 一 5)*Ln(x)+(Sin(2*x)3)/Sqr(Sing(x)Cos(x2)24.以下关于数组的说法中，错
12、误的是（24）。（分数：2.00）A.使用了 Preserve 予句的 ReDim 语句，只允许改变数组最后一维的上界B.对于动态数组，ReDim 语句可以改变其维界但不可以改变其数据类型C.Erase 语句的功能只是对固定大小的数组进行初始化D.LBound 函数返回值是指定数组某一维的下界25.下列有关过程的说法中，错误的是（25）。（分数：2.00）A.在 Sub 或 Function 过程内部不能再定义其它 Sub 或 Function 过程B.对于使用 ByRef 说明的形参，在过程调用时形参和实参只能按传址方式结合C.递归过程既可以是递归 Function 过程，也可以是递归 Su
13、b 过程D.可以像调用 Sub 过程一样使用 Call 语句调用 Function 过程26.以下有关对象属性的说法中，错误的是（26）。（分数：2.00）A.工具箱中的控件并不是 VB 中所有的控件B.若将 Frame 的 Enabled 属性设置为 False，则不能使用放置在 Frame 里面的控件C.对象的 Name 属性在运行时不能改变D.对象的所有属性都可以在属性窗口中设置27.以下关于变量作用域的叙述中，正确的是：（27）。（分数：2.00）A.窗体中凡用 Private 声明的变量只能在某个指定的过程中使用B.模块级变量只能用 Dim 语句声明C.凡是在窗体模块或标准模块的通用
14、声明段用 Public 语句声明的变量都是全局变量D.当不同作用域的同名变量发生冲突时，优先访问局限性小的变量28.表达式 CInt(4.5)+CInt(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2 的运算结果是（28）（分数：2.00）A.1B.-1C.-2D.-329.若要使逻辑表达式 xy Xor Y 结果为 True，则 x、Y、z 的取值应为下列选项中的（22）。（分数：2.00）A.X=3、Y=3、Z=4B.X=2、Y=1、Z=2C.X=1、Y=3、Z=2D.X=2、Y=2、Z=230.在一个多窗体程序中，可以仅将窗体 Form2 从内存中
15、卸载的语句是（30）（分数：2.00）A.Form2.UnloadB.Unload Form2C.Form2.EndD.Form2.Hide四、填空题(请将答案填写在答题纸的相应答题号(总题数：9，分数：36.00)31.执行下面程序,单击 Commandl,则图片框中显示的第一行是(1)，显示的第二行是(2) ，最后一行显示的是 (3) 。 Private Sub Command1_Click1 Dim a(3，3)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=3 To 1 Step -1 If i=j Then a(
16、i,j)=i-j Else a(i，j)=j-i End If Next j Next i For i=1 to 3 For j=3 To 1 Step -1 Picture1.Print a(i,j); Next j PicturelPrint Next i EndSub（分数：4.00）填空项 1:_32.运行下面程序,如果连续三次单击命令按钮之后，A 数组共有(4) 个元素；数组元素 A(2)的值是(5)，A(5)的值是(6) Option Explicit Option Base l Private Sub Command1_Click1 Static A2 As Integer,N
17、As Integer Dim I As Integer,K As Integer K=N N=N+2 ReDim Preserve A(N) For I=K+1 To N A(I)=I*N+1 Next I ForI=1 To N Print A(I)； Next I Print EndSub（分数：4.00）填空项 1:_33.运行下面的程序，单击 commandl，在窗体上显示的变量 A 的值为( 7 ),变量 B 的值为( 8 ) Option Explicit Dim A As Integer Private Sub Command1_Click1 Dim B As Integer B
18、=3 A=4 B=Fun(Fun(A,B+2),A)+B Print A,B EndSub Private Function Fun(N As Integer,K As Integer) N=N+A K=N-K Fun=N+K+A End Function（分数：4.00）填空项 1:_34.执行下面的程序，单击 command1,窗体上显示的第一行是( 9 )，第二行是( 10 ),第四行是( 11 ),最后一行是( 12 ) Option Explicit Private Sub Command1_Click1 Dim n As Integer n=5 Call test(n) Print
19、 n End Sub Private Sub test(ByVal n As Integer) Dim i As Integer,S As String If n0 Then For i=l To n S=S Next j PicturelPrint Next i EndSub（分数：4.00）填空项 1:_ （正确答案：(1)2 1 0 (2)1 0 1 (3)0 1 2）解析：32.运行下面程序,如果连续三次单击命令按钮之后，A 数组共有(4) 个元素；数组元素 A(2)的值是(5)，A(5)的值是(6) Option Explicit Option Base l Private Sub
20、Command1_Click1 Static A2 As Integer,N As Integer Dim I As Integer,K As Integer K=N N=N+2 ReDim Preserve A(N) For I=K+1 To N A(I)=I*N+1 Next I ForI=1 To N Print A(I)； Next I Print EndSub（分数：4.00）填空项 1:_ （正确答案：(4)6 (5)5 (6)31）解析：33.运行下面的程序，单击 commandl，在窗体上显示的变量 A 的值为( 7 ),变量 B 的值为( 8 ) Option Explici
21、t Dim A As Integer Private Sub Command1_Click1 Dim B As Integer B=3 A=4 B=Fun(Fun(A,B+2),A)+B Print A,B EndSub Private Function Fun(N As Integer,K As Integer) N=N+A K=N-K Fun=N+K+A End Function（分数：4.00）填空项 1:_ （正确答案：(7)19 (8)68）解析：34.执行下面的程序，单击 command1,窗体上显示的第一行是( 9 )，第二行是( 10 ),第四行是( 11 ),最后一行是( 1
22、2 ) Option Explicit Private Sub Command1_Click1 Dim n As Integer n=5 Call test(n) Print n End Sub Private Sub test(ByVal n As Integer) Dim i As Integer,S As String If n0 Then For i=l To n S=S & CStr(i) Next i Print S Call test(n-2) Else Print “0VER“ EndIf EndSub（分数：4.00）填空项 1:_ （正确答案：(9)12345 (10)12
23、3 (11)OVER (12)5）解析：35.运行下列程序，单击 Command1，在窗体上显示的第一行内容是 ( 13 ),第二行的内容是( 14 )，第三行的内容是( 15 )(“A“的 ASCII 码是 65,“z“是 90) Option Explicit Private Sub Commandl_Click1 Dim i As Integer,st As String，n As Integer,p As String*1 P=“B“ For i=3 To 1 Step -1 n=Asc(p)-i If n填空项 1:_ （正确答案：(13)Y6 (14)Z9 (15)A10）解析：3
24、6.用以下公式求 f(x)的值。当通项的绝对值小于 10-7 时停止计算，x 的值由键盘输入。 f(x)=a1x1-a2x2+a3x3-+(-1)n+1anxn+ |X| 1 其中 a1=1，a2=2，an= ,n=3,4,5 Option Explicit Private Sub Commandl_Click1、 Dim x As Single，fx As Single Dim a As Single，a1 As Single,a2 As Single Dim t As Single a1=l：a2=2 x=text1 If ( 16 ) Then MsgBox(“x 必须在-1-1 之间“
25、) ExitSub End If fx=a1*x-a2*x*x t=(-1)*x*x DO a=1/(al+a2) t=(-1)*x*x fx=( 17 ) al=a2 ( 18 ) Loop Until Abs(a*t)填空项 1:_ （正确答案：(16)Abs(x)=1 (17)fx+a*t (18)a2=a）解析：37.学生的某次课程测验中，选择题的答案已记录在列表框 list1 中，其数据行格式是:学号为 6 个字符长度，2 个空格，选择题的答案为 15 个字符长度，程序根据标准答案进行批改，每答对一题给 1 分，并将得分存放到列表框 list1 中，标准答案存放在变量 Exact 中
26、。 Option Explicit Private Sub Command1_click1 Dim Anw as string , StudId as string Dim Scor as Integer, Exact as string Dim I as Integer, J as integer Exact=”ABCCBAACBBDCCDA” For I=( 19 ) Anw=（ 20 ） StudId=Left(Anw,6) Anw=Right(Anw,Len(Anw)-8) ( 21 ) For J=1 to Len(Anw) If （ 22 ） Then Scor=Scor+1 En
27、d If Next J List2.AddItem StudId & “ “ & Scor Next I End Sub（分数：4.00）填空项 1:_ （正确答案：(19)0 To Listl.ListCount-1 (20)Listl.List(I) (21)Scor=0 (22)Mid(Anw，J，1)=Mid(Exact，J，1)）解析：38.下面程序的功能是：统计存放在数组 A 中的 N 个数有多少个是不同的。具体做法是：变量 Left 指向要被处理的数(从第 2 个元素开始)，Right 指向数组最后一个元素。若 A(Left)与排在它前面的某个数组元素值相同，就用数组元素 A(R
28、ight)的值来替换 A(Left)的值，同时将变量 Right 的值减 1；否则将变量Left 的值加 1，处理数组下一个元素，重复以上过程，直到 LeftRight 为止。Right 的值即为不同的数的个数。 Option Explicit OptionBase 1 Private Sub Commandl_Click1 Dim A2 As Integer,N As Integer,I AS Integer Dim OP As Integer N=InputBox(“请输入数据个数“, ,10) ReDim A(N) Randomize For I=1 To N A(I)=Int(Rnd*
29、10)+1 Text1=Text1 & A(1) & “ “ Next I Call Statistic(A,OP) Text2=“有“ & oP & “个不同的数:“ For I=1 To OP Text2=Text2 & A(I) & “ “ Next I End Sub Private Sub Statistic(A3 As Integer,Right As Integer) Dim Left As Integer,K As Integer,I As Integer Right=( 23 ) Left=2 Do While Left“ & S Next i End Sub Private
30、 Sub convert(ch As String，S As String) Dim m As Integer,k As Integer,n As Integer,i As Integer s= ( 28 ) n=Asc(ch) Do While n0 ( 29 ) S=m & S If m=1 Then k=k+1 End If n=n/2 Loop For i=1 To 7-Len(s) 将字符的二进制代码补足7 位 S=“0“ & S Next i If k Mod 2=0 Then ( 30 ) Else S=“0“ & S End If End Sub（分数：4.00）填空项 1:_ （正确答案：(27)ch=Mid(str，i，1) (28)“ “ (29)m=n Mod 2 (30)s=“1“ & s）解析：
