1、江苏计算机等级考试二级 Visual+BASIC 真题 2012 年 3 月及答案解析(总分：39.00，做题时间：120 分钟)一、说 明：(总题数：1，分数：0.00)二、第一部分 计算机基础知识(总题数：20，分数：20.00)1.下列有关信息产业、信息化、信息社会等相关的叙述中,错误的是_。（分数：1.00）A.信息产业是指生产制造信息设备的制造业,不包含信息服务行业B.信息化是一个推动人类社会从工业社会向信息社会转变的过程C.在信息社会中,信息将借助材料和能源的力量产生重要价值而成为社会进步的基本要素D.目前我国还处于工业化的中期阶段,需要大力推进信息化与工业化的融合式发展2.下列有
2、关数字技术与微电子技术的叙述中,错误的是_。（分数：1.00）A.数字技术的处理对象是“比特“,它只有两种状态(取值)B.在计算机中,经常使用称为“触发器“的双稳态电路来存储比特,一个触发器可以存储 1 个比特C.微电子技术以集成电路为核心,现代集成电路所使用的半导体材料主要是硅D.所有的 IC 卡均只能存储数据,不能处理和收发数据3.下列有关计算机发展与分类的叙述中,错误的是_（分数：1.00）A.人们通常根据计算机采用的主要电子元器件的不同,将计算机的发展划分为四代B.由于 20 世纪 90 年代计算机网络的发展,计算机应用进入了“网络计算模式“C.目前所有的服务器产品均为小型计算机、大型
3、计算机或巨型计算机,PC 机不能作为网络服务器使用D.美国的 HP、DELL 和我国的联想、方正、同方等均是知名的 PC 机品牌4.下列有关 PC 机 CPU 的叙述中,错误的是_。（分数：1.00）A.长期以来,多数 PC 机采用 Intel 公司生产的 CPU 芯片B.Intel Core i7 是高端的 CPU 产品,其中 i7 表示它采用 7 个内核的结构C.目前部分 PC 机使用 AMD 公司的 CPU 芯片,它们与 Intel 公司的 CPU 芯片指令系统基本一致,因此这些PC 机相互兼容D.目前我国也能设计、生产 PC 机的 CPU 芯片5.下列有关 PC 机主板上 CMOS 和
4、 BIOS 的叙述中.错误的是_。（分数：1.00）A.主板上的 CMOS 芯片是一种易失性存储器,它通常使用电池供电B.BIOS 是存储在主板上闪烁存储器中的一组程序.每次机器加电时总是首先执行其中的程序C.CMOS 设置程序存储在 CMOS 存储器中,它与 BIOS 无关D.CMOS 芯片中存储了许多配置信息,包括当前的日期与时间、开机密码等6.下列是 PC 机使用的四种外设接口,其中最新的一种是_。（分数：1.00）A.USB3.0B.IEEE.1394bC.IDED.红外线接口(IrDA)7.下列有关扫描仪与数码相机的叙述中.错误的是_（分数：1.00）A.扫描仪分为平板扫描仪、手持扫
5、描仪、滚筒扫描仪等多种类型.相对来说使用平板扫描仪的较多B.光学分辨率是扫描仪的主要性能指标,其单位为 dpiC.目前数码相机的成像芯片为 CCD 或 CMOS.它可以将光信号转换为电信号D.数码相机所拍摄的数字图像以 GIF 格式存储在存储卡中8.光盘分为多种不同类型,其容量大小差异较大。对于单面单层、80mm 的 DVD 光盘来说.其容量大约为 _。（分数：1.00）A.670MBB.1.46GBC.4.7GBD.25GB9.通用的应用软件可以分为若干类型,例如文字处理软件、信息检索软件、媒体播放软件等。在下列软件中,不属于文字处理软件的是_（分数：1.00）A.WPSB.Adobe Ac
6、robatC.WordD.Access10.下列有关 Windows XP 操作系统的叙述中,错误的是_（分数：1.00）A.Windows XP 分为多种版本.例如家庭版、专业版B.Windows xP 采用并发多任务方式支持多个任务的执行C.Windows XP 一般采用按时间片轮转的策略调度处理器来执行每个任务D.虚拟存储器由主板上的 RAM、ROM 及显示卡的显存联合组成,它与硬盘无关11.在下列有关算法的叙述中.错误的是_（分数：1.00）A.算法的设计一般采用由细到粗、由具体到抽象的方法B.算法设计方法有多种,例如枚举法、迭代法、递归法等等C.算法的表示可以有多种形式,例如文字说明
7、、流程图表示、伪代码等D.一个问题的解决往往可以有多种不同的算法12.下列有关 Microsoft Office 2000(及其后续版本)的叙述中.错误的是_（分数：1.00）A.由 Word、Excel、PowerPoint 创建的文档,均可以设置打开文件的密码B.在 Word 文档中,可以插入声音和视频对象C.ExceI 工作簿可以包含的工作表数量、工作表的行数与列数均没有限制,用户可以根据需要无限制地增加D.由 PowerPoint 创建的演示文稿,用户可以直接将其保存为 HTML 文件(即网页)13.在下列有关调制解调技术、多路复用技术的叙述中.错误的是_（分数：1.00）A.调制与解
8、调技术中使用的“载波“信号,通常是低频正弦波信号B.调制技术可以分为幅度调制、频率调制和相位调制C.多路复用技术的作用主要是提高传输线路的利用率,降低通信成本D.多路复用技术可以分为时分复用、频分复用等类型14.目前 IPv4 协议只有大约 36 亿个地址.很快就会分配完毕。新的 IPv6 协议把 IP 地址的长度扩展到_,几乎可以不受限制地提供 IP 地址。（分数：1.00）A.32 位B.64 位C.128 位D.256 位15.下列与 IP 地址相关的叙述中.错误的是_。（分数：1.00）A.IP 地址由三个部分组成,从左到右分别代表类型号、网络号和主机号B.因特网上的每台在线主机都必须
9、有 IP 地址C.通过 ADSL 上网时,用户主机的 IP 地址通常是由因特网服务提供者动态分配的D.网络中的路由器不需要设置 IP 地址16.通常所说的 TCP/IP 协议.是指由 100 多个协议组成的协议系列(包含下列几个协议)。在下列协议中。实现文件传输服务主要依赖_。（分数：1.00）A.NNTP 协议B.FTP 协议C.Telnet 协议D.SMTP 协议17.目前有线电视(CATV)系统已经广泛采用数字技术传输电视节目。下列是有关数字有线电视的相关叙述.其中错误的是_。（分数：1.00）A.数字有线电视采用光纤同轴电缆混合网.其主干线部分采用光纤连接到“小区“B.数字有线电视网络
10、依赖于时分多路复用技术C.借助数字有线电视网络接入因特网.需要专用的 Cable MODEM 或互动式机顶盒D.借助数字有线电视网络接入因特网的多个终端用户共享连接段线路的带宽18.下列有关文本与文本处理的叙述中,错误的是_。（分数：1.00）A.文本信息在计算机中存储时,汉字均为双字节编码,非汉字字符均为单字节编码B.文本输入可以是键盘输入,也可以是联机手写输入、语音输入等C.DOC 文档、HTML 网页、PDF 文档均为丰富格式文本,但它们的格式标记方式不同D.文本中的字符可以使用不同的字体,不同字体的同一个汉字,其机内码相同19.在未压缩的情况下.存储一幅分辨率为 10241024 的
11、24 位彩色数字图像需要的存储空间大约为_（分数：1.00）A.24KBB.3MBC.8MBD.24MB20.文件扩展名通常用于标识文件的类型。下列 4 个文件扩展名中,属于数字波形声音文件的是_。（分数：1.00）AWAVBMIDICAVIDMPG三、第二部分 Visual Basic 程序设计(总题数：10，分数：10.00)21.以下说法中,错误的是_。（分数：1.00）A.以.frm 为扩展名的文件是窗体模块文件B.以.bas 为扩展名的文件是标准模块文件C.窗体模块文件包含该窗体及其窗体上相关控件的属性信息D.标准模块文件由事件过程、通用过程等内容组成22.下列语句中,错误的是_。（
12、分数：1.00）A.Label1.Caption=“Hello“B.Text1.Caption=“Hello“C.Command1.Caption=“Hello“D.Frame1.Caption=“Hello“23.在一个控件数组中用_属性标识不同的控件数组元素。（分数：1.00）A.TabIndexB.IndexC.CaptionD.Left24.在 select Case X 结构语句中(X 为 Integer 类型),能正确描述 5x10 的 Case 语句是_（分数：1.00）A.Case Is=5,IsInt(4.5)B.Print CInt(-4.5)Fix(-4.5)C.Prin
13、t CInt(-4.5)Int(-4.5)D.Print CInt(4.5)Fix(4.5)26.数学表达式 -Sin( )对应的 VB 表达式是_。（分数：1.00）A.Sqr(x+y)-Sin(Abs(y2*x)/(x-y)B.Sqr(x+y)-Sin(Abs(y2*x)/x-y)C.Sqr(x+y)-Sin(|y2*x|/(x-y)D.Sqr(x+y)-Sin(|y2*x|/x-y)27.以下关于变量的说法中,正确的是_。（分数：1.00）A.同一个模块中的模块级变量不能和局部变量同名B.同一模块的不同过程中的变量名不能相同C.不同模块中的变量名不能相同D.不同模块中的全局变量名可以相同
14、28.在窗体的通用声明处有语句 Dim a() As Single,以下重新定义数组的语句中,正确的是_（分数：1.00）A.ReDim a(3,3):ReDim a(3,4) As DoubleB.ReDim a(3,3):ReDim Preserve a(4,4)C.ReDim a(3): ReDim a(3,3) As DoubleD.ReDim a(3,3):ReDim Preserve a(3,4)29.以下有关自定义函数过程的说法中,错误的是_。（分数：1.00）A.在自定义函数过程中可以多次为函数名赋值B.如果在函数体内没有给函数名赋值,则该函数无返回值C.函数名的命名规则与变量
15、名的命名规则相同D.函数定义时如果没有说明函数名的类型,则为变体类型30.设 x 为字符型变量,n 为整型变量,以下关于 Mid 函数的说法中,错误的是_。（分数：1.00）A.Mid(x,n)表示从字符串 x 的第 n 个位置开始向右取所有字符B.若 x=“xyz“,执行语句 Mid(x,1,2)=“ab“后,x 的值为“abz“C.Mid(x,n,1)的取值与 Left(x,n)的取值相同D.使用 Mid 函数可提取字符串中指定位置、指定个数的字符四、填空题(请将答案填写在答题纸的相应答题号(总题数：9，分数：9.00)31.执行下面程序,单击命令按钮 Command1 后,a(2,3)的
16、值为 1(1) 2,a(3,4)的值为 3(2) 4,a(5,4)的值为 5(3) 6。 Option Explicit Private Sub Commandl_Click7 Dim a(5,5)As Integer,i As Integer,j As Integer For i=1 TO 5 For j=1 To 5 If i=1 Or j=1 Then a(i,j)=1 Else a(i,j)=a(i-1,j)+a(i,j-1) End If Print a(i,j)； Next j Print Next i EndSub（分数：1.00）填空项 1:_32.执行下面程序,单击命令按钮
17、Cmd1 后输出的 fun 函数值是 1(4) 2,a 的值是 3(5) 4 ,b 的值是 5(6) 6。 Option Explicit Private Sub Cmd1_Click7 Dim a As Integer,b As Integer a=8 b=12 Print fun(a,b);a;b End Sub Private Function fun(ByVal a As Integer,b As Integer)As Integer a=a Mod 5 b=b/5 fun=a+b End Function（分数：1.00）填空项 1:_33.执行下面程序,单击命令按钮 Cmd1 后,
18、a(2)的值是 1(7) 2,a(3)的值是 3(8) 4,a(5)的值是 5(9) 6。 Option Explicit Option Base 1 Private Sub Cmd1_Click7 Dim a8 As Integer,i As Integer,n As Integer Dim k As Integer n=8 ReDim a(n) For i=1 To n a(i)=2*i-1 Next i k=2 Do For i=UBound(a) To 1 Step -1 If i Mod a(k)=0 Then Call delete(a,i) End If Next i k=k+1
19、 Loop Until a(k)UBound(a) For i=1 To UBound(a) Text1=Text1 最后一行内容是 5(15) 6 Option Explicit Private Sub Cmdl_Click7 Dim i As Integer,c As Integer,s As String,t As String*1 Dim a8 As String,s1 As String,jg As Integer s=“43X17Z23Y“ For i=1 To Len(s) t=Mid(s,i,1) s1=s1 a;b End Sub Private Function fun(B
20、yVal a As Integer,b As Integer)As Integer a=a Mod 5 b=b/5 fun=a+b End Function（分数：1.00）填空项 1:_ （正确答案：5 8 2）解析：33.执行下面程序,单击命令按钮 Cmd1 后,a(2)的值是 1(7) 2,a(3)的值是 3(8) 4,a(5)的值是 5(9) 6。 Option Explicit Option Base 1 Private Sub Cmd1_Click7 Dim a8 As Integer,i As Integer,n As Integer Dim k As Integer n=8 R
21、eDim a(n) For i=1 To n a(i)=2*i-1 Next i k=2 Do For i=UBound(a) To 1 Step -1 If i Mod a(k)=0 Then Call delete(a,i) End If Next i k=k+1 Loop Until a(k)UBound(a) For i=1 To UBound(a) Text1=Text1 最后一行内容是 5(15) 6 Option Explicit Private Sub Cmdl_Click7 Dim i As Integer,c As Integer,s As String,t As Stri
22、ng*1 Dim a8 As String,s1 As String,jg As Integer s=“43X17Z23Y“ For i=1 To Len(s) t=Mid(s,i,1) s1=s1 & t If t=“X“ And t0 Option Explicit Private Sub Command1_Click1 Dim x As Single,y As Single Dim k As Integer,tx As Single x=Val(Text1.Text) y=Log(x) Do k=k+1 tx= 2(16) 3 y=y+tx Loop while 4(17) 5 Text
23、2.Text=Format(y,“0.#“) End Sub Private Function fact(ByVal n As Integer)As Long If n=10-5 N*fact(n-1)）解析：37.下面程序的功能是从输入的一串数字中找出全部由该数字串中连续数字组成的素数。 Option Explicit Private Sub CmdRun_Click1 Dim n As Long,s As String Dim i As Integer,j As Integer S=Text1.Text For i=1 To Len(s) For j=1 To Len(s)-i+1 n=
24、2(19) 3 If prime(n) Then List1.AddItem CStr(n) Next j Next i End Sub Private Function prime( 4(20) 5)As Boolean Dim i As Integer For i=2 To Sqr(n) If n Mod i=0 Then Exit Function Next i 6(21) 7 End Function（分数：1.00）填空项 1:_ （正确答案：Mid(s,i,j) N as Long Prime=true）解析：38.这是一个解密程序。密码由若干数字组成,每三位为一个数字组,若数字组
25、中所有数字均小于 5,则该数字组有效,将有效的数字组按 5 进制转换成 10 进制数,再按 ASCII 代码转换为字符就可得到明文。 Option Explicit Private Sub Command1_Click1 Dim st As String,p As String st=Text1 Do P= 2(22) 3 If judge(p) Then Text2=Text2 & Chr(conv(p) End If st=Right(st,Len(st)-3) Loop Until 4(23) 5 End Sub Private Function judge(p As String) A
26、s Boolean 判断有效数字组 Dim q As String*1,i As Integer For i=1 To Len(p) q=Mid(p,i,1) If 6(24) 7 Then Exit Function Next i judge=True End Function Private Function conv(p As String)As Integer 进制转换 Dim k As Integer,q As String*1,i As Integer For i=Len(p) To 1 Step-1 q=Mid(p,i,1) conv=conv+Val(q)*5k 8(25) 9
27、 Next i End FUnction（分数：1.00）填空项 1:_ （正确答案：Mid(st,1,3) Len(st)=0 q=”5” K=k+1）解析：39.以下程序的功能是验证“数学黑洞 6174“。对于任意一个各位数字不全部相同的四位整数,将组成该数的数字组合成一个最大的数和一个最小的数,二者相减,判断其差值是否为 6174,若不是,再将相减的结果组合成新的最大的数和最小的数,以上过程最多重复 7 次,必得结果 6174。程序运行界面如图所示。 Option Explicit Option Base 1 Private Sub Cmd1_Click1 Dim i As Intege
28、r,k As Integer Dim max As Integer min As Integer k=Val(Text1) For i=1 T0 3 判断 4 位数字是否全部一样 If Mid(CStr(k),i,1)3 Then MsgBox “输入的数据不合要求“ Text1=“ Exit Sub End If For i=1 To 7 Call Validate(k max,min) List1.AddItcm k &“:“ & max &“-“ & min & “=“ & max-min If max-min=6174 Then Exit For Else k= 4(27) 5 End
29、 If Next i If 6(28) 7 Then List1.AddItem “验证失败!“ End Sub Private Sub Validate(n As Integer,max As Integer,min As Integer) Dim i As Integer,t(4)As Integer Dim s As String,s1 As String,s2 As String S=CStr(n) For i=1 To 4 t(i)=Val(Mid(s,i,1) Next i Call sort(t) For i=1 To 4 s1=s1 & CStr(t(i) s2= 8(29)
30、9 Next i min=Val(s1) max=VaI(s2) End Sub Private Sub sort(a10 As Integer) Dim i As Integer,j As Integer,t As Integer For i=1 To UBound(a)-1 For j=i+1 To UBound(a) If 11(30) 12 Then t=a(i):a(i)=a(j):a(j)=t End If Next j Next i End Sub（分数：1.00）填空项 1:_ （正确答案：Exit for Max-min i7 或 i=8 Cstr(t(i) & s2 A(i) a(j)）解析：
