1、江苏省二级 VISUAL+BASIC-8 及答案解析(总分：100.00，做题时间：90 分钟)一、第一部分 计算机信息技术基础知识(总题数：0，分数：0.00)二、选择题(总题数：20，分数：40.00)1.下列有关信息、信息技术、信息化、信息产业的叙述错误的是_。（分数：2.00）A.从不同的学科和视角出发，对“信息”一词的解释可能有所不同B.雷达技术、卫星技术、人工智能技术、数据库技术等均属于现代信息技术C.我国信息化建设既要充分发挥工业化对信息化的基础和推动作用，又要使信息化成为带动工业化升级的强大动力D.我国的信息产业在 20 世纪 90 年代起步，目前信息产业销售收入已达每年 1
2、亿元2.关于 CPU 的叙述错误的是_。（分数：2.00）A.CPU 的主要组成部分有运算器、控制器和寄存器B.CPU 的主要功能是执行指令，不同类型的 CPU 的指令系统通常有所不同C.为了加快运算速度，CPU 中可能包含多个算术逻辑部件(ALU)D.目前 PC 所用的 CPU 都是 Intel 公司的产品3.下列有关 USB 接口的叙述错误的是_。（分数：2.00）A.通过 USB 接口与 PC 连接的外设(如数码相机、扫描仪、打印机等)均不需要外接电源，这些设备均可以通过 USB 接口由主机供电B.USB 符合“即插即用”规范，支持热插拔C.USB 2.0 接口使用 4 线连接器，其连接
3、器分为 A 型、B 型等类型D.USB 3.0 的最高数据传输速率可达每秒数百 MB4.打印机的性能指标主要是打印精度、打印速度、色彩数目和打印成本等。打印精度也就是打印机分辨率，它用 dpi 表示，是衡量图像清晰程度的最重要的指标。dpi 的含义是_。（分数：2.00）A.每厘米可打印的点数B.每平方厘米可打印的点数C.每英寸可打印的点数D.每平方英寸可打印的点数5.下列关于计算机软件的叙述错误的是_。（分数：2.00）A.软件的含义比程序更宏观、更物化一些，一般情况下，软件往往指的是设计比较成熟、功能比较完善、具有某种使用价值的程序B.软件产品一般是指软件开发厂商交付给用户用于特定用途的一
4、整套程序、数据及相关的文档(包括安装和使用手册)C.免费软件一般是指用户可共享的软件，允许随意拷贝、修改源代码、自由传播D.MS Office 软件中包含多个软件产品，用户可以有选择地安装6.下列关于程序设计语言的说法正确的是_。（分数：2.00）A.高级语言程序的执行速度比低级语言程序快B.高级语言就是人们日常使用的自然语言C.高级语言与 CPU 的逻辑结构无关D.高级语言编写的程序无须经过翻译或转换计算机就可以直接执行7.关于 3G 的叙述错误的是_。（分数：2.00）A.我国的 3G 通信有三种不同的标准B.中国移动采用的是我国自主研发的 TD-SCDMA 技术C.不同的技术标准相互兼容
5、，手机可以交叉入网，互相通用D.不同技术标准的网络是互通的，可以相互通信8.以下_可以用作某台主机的 IP 地址。（分数：2.00）A.62.26.1.256B.202.119.25.4C.178.0.0.0D.223.268.192.29.若计算机内存中连续 2 个字节的内容其十六进制形式为 34 和 64，则它们不可能是_。（分数：2.00）A.2 个西文字符的 ASCII 码B.1 个 16 位整数C.1 个汉字的机内码D.图像中一个或两个像素的编码10.声卡是获取数字声音的重要设备。下列有关声卡的叙述错误的是_。（分数：2.00）A.声卡既负责声音的数字化，也负责声音的重建B.声卡既处
6、理波形声音，也负责 MIDI 音乐的合成C.声卡中的数字信号处理器(DSP)在完成数字声音编码、解码及编辑操作中起着重要的作用D.因为声卡非常复杂，所以它们都被做成独立的 PCI 插卡形式11.下列有关信息、信息技术、信息化、信息产业的叙述错误的是_。（分数：2.00）A.信息、物质与能量是客观世界的三大构成要素，没有信息则任何事物都没有意义B.现代信息技术的主要特征之一是以计算机及其软件为核心C.信息化的概念起源于 20 世纪 90 年代，我国的信息化建设起步于 21 世纪初D.信息产业主要包括信息设备制造业、信息服务业、信息开发业等12.芯片组是 PC 各组成部分相互连通与通信的枢纽。下列
7、关于芯片组的叙述错误的是_。（分数：2.00）A.芯片组是主板上的重要部件，它直接固定在主板上，通常不可更换B.芯片组与 CPU 的类型必须相匹配C.芯片组提供了 CPU 的时钟信号D.所有外部设备的控制功能都集成在芯片组中13.关于 PC 主板上的 CMOS 芯片，下列说法正确的是_。（分数：2.00）A.CMOS 芯片需要一个电池给它供电，否则其中的数据在主机断电后会丢失B.CMOS 芯片用于存储加电自检程序C.CMOS 芯片用于存储 BIOS，是易失性的D.CMOS 芯片用于存储计算机系统的配置参数，它是只读存储器14.下列有关辅助存储器的说法错误的是_。（分数：2.00）A.硬盘的容量
8、越来越大，这是因为硬盘中的碟片数目越来越多B.硬盘的内部传输速率一般小于外部传输速率C.U 盘采用 Flash 存储技术，属于半导体存储器D.目前使用的 SSD(固态硬盘)读取数据的速度要比普通硬盘快很多15.下列关于 Windows 操作系统处理器管理的说法错误的是_。（分数：2.00）A.处理器管理主要目的是提高 CPU 的使用效率B.多任务处理是将 CPU 时间划分成时间片，轮流为多个任务服务C.并行处理系统可以使多个 CPU 同时工作，提高计算机系统的性能D.多任务处理要求计算机必须使用多核 CPU16.下列关于高级程序设计语言中的数据成分的说法错误的是_。（分数：2.00）A.数据的
9、名称用标识符来命名B.数组是一组相同类型数据元素的有序集合C.指针变量中存放的是某个数据的内存地址D.程序员不可以自己定义新的数据类型17.下列有关无线通信技术的叙述错误的是_。（分数：2.00）A.具有较强的电离层反射能力，适用于环球通信B.卫星通信利用人造地球卫星作为中继站转发无线电信号，实现在两个或多个地球站之间的通信C.卫星通信也是一种微波通信D.手机通信不属于微波通信18.某计算机系统中，西文使用标准 ASCII 码、汉字采用 GB2312 编码。设有一段纯文本，其机内码为 CB F5 DO B4 50 43 CA C7 D6 B8，则在这段文本中含有_。（分数：2.00）A.2 个
10、汉字和 1 个西文字符B.4 个汉字和 2 个西文字符C.8 个汉字和 2 个西文字符D.4 个汉字和 1 个西文字符19.UTF-8 和 UTF-16 是_标准的 2 种编码方案。（分数：2.00）A.GB2312B.GBKC.UCS(Unicode)D.GB1803020.若波形声音未进行压缩时的码率为 128kb/s，已知取样频率为 8kHz，量化位数为 8，那么它的声道数是_。（分数：2.00）A.1B.2C.4D.8三、第二部分 Visual Basic 程序设(总题数：0，分数：0.00)四、选择题(总题数：10，分数：30.00)21.以下说法正确的是_。（分数：3.00）A.每
11、个对象都有标题属性，且可以用代码修改其属性值B.每个对象都有名称(Name)属性，且不可以使用代码修改其属性值C.每个对象的属性既可以在属性窗口中设置值，也可以在代码中设置值D.不同对象不能有相同的属性22.已知变量 a、b、c 均为 Integer 类型，且均被赋值，其中 a=40，b=50，c=60，以下语句能正确执行的是_。（分数：3.00）A.Print 1 Next Print End Sub （分数：4.00）32.执行下列程序，单击按钮 Command1，在窗体上显示的第一行是 1，第二行是 2，最后一行是 3。 Option Base 1 Option Explicit Pri
12、vate Sub Command1_Click() Dim i As Integer, st As String, n As Integer, p As String*1 p=“A“ For i=3 To 1 Step-1 n=Asc(P)-i If n65 Then n=n+26 st=Chr(n) st=st b Next i Print a; b; i End Sub Private Sub Sub1(i As Integer, a As Integer, b As Integer) i=i+1 a=a+1 b=b+1 End Sub （分数：4.00）35.执行下列程序，在文本框 Te
13、xt1 中输入数据 13579 后，单击 Command1 按钮，窗体上显示的第一行是 1，第二行是 2，最后一行是 3。 Option Explicit Private Sub Command1_Click() Dim x As Integer x=Text1.Text Print p(x) End Sub Private Function p(x As Integer) As Integer If x100 Then p=x Mod 100 Else p=p(x/100)*10+x Mod 10 Print p End If End Function （分数：4.00）36.执行下列程序，
14、单击 Command1 按钮后，窗体上显示的第一行是 1，第二行是 2，最后一行是 3。 Option Explicit Private Sub Command1_Click() Dim I As Integer, n As Integer For I=1 To 20 Step 2 n=fun(I, I) Print n Next Print I End Sub Private Function fun(ByVal a As Integer, b As Integer)As Integer a=a+b b=b+a fun=a+b End Function （分数：4.00）37.执行下列程序，
15、在文本框 Text1 中输入数据”as235gh458yj”后，单击 Command1 按钮，在列表框List1 中共有 1 个列表项，列表框 List1 的第一行是 2，列表框 List1 的第二行是 3，列表框 List2 的最后一行是 4。 Option Explicit Private Sub Command1_Click() Dim st As String, s As String Dim p As String, cnt() As Integer, i As Integer, n As Integer s=Text1.Text For i=1 To Len(s) st=Mid(s
16、, i, 1) If st=“a“ And st=“z“ Then p=p Next Print End Sub （分数：4.00）解析：9 7 1032.执行下列程序，单击按钮 Command1，在窗体上显示的第一行是 1，第二行是 2，最后一行是 3。 Option Base 1 Option Explicit Private Sub Command1_Click() Dim i As Integer, st As String, n As Integer, p As String*1 p=“A“ For i=3 To 1 Step-1 n=Asc(P)-i If n65 Then n=n
17、+26 st=Chr(n) st=st b Next i Print a; b; i End Sub Private Sub Sub1(i As Integer, a As Integer, b As Integer) i=i+1 a=a+1 b=b+1 End Sub （分数：4.00）解析：4 5 8 5 1135.执行下列程序，在文本框 Text1 中输入数据 13579 后，单击 Command1 按钮，窗体上显示的第一行是 1，第二行是 2，最后一行是 3。 Option Explicit Private Sub Command1_Click() Dim x As Integer x
18、=Text1.Text Print p(x) End Sub Private Function p(x As Integer) As Integer If x100 Then p=x Mod 100 Else p=p(x/100)*10+x Mod 10 Print p End If End Function （分数：4.00）解析：15 159 15936.执行下列程序，单击 Command1 按钮后，窗体上显示的第一行是 1，第二行是 2，最后一行是 3。 Option Explicit Private Sub Command1_Click() Dim I As Integer, n As
19、 Integer For I=1 To 20 Step 2 n=fun(I, I) Print n Next Print I End Sub Private Function fun(ByVal a As Integer, b As Integer)As Integer a=a+b b=b+a fun=a+b End Function （分数：4.00）解析：5 25 5337.执行下列程序，在文本框 Text1 中输入数据”as235gh458yj”后，单击 Command1 按钮，在列表框List1 中共有 1 个列表项，列表框 List1 的第一行是 2，列表框 List1 的第二行是
20、3，列表框 List2 的最后一行是 4。 Option Explicit Private Sub Command1_Click() Dim st As String, s As String Dim p As String, cnt() As Integer, i As Integer, n As Integer s=Text1.Text For i=1 To Len(s) st=Mid(s, i, 1) If st=“a“ And st=“z“ Then p=p&st Else If p“ Then List1.AddItem p p=“ End If Next If p“ Then Li
21、st1.AddItem p ReDim cnt(List1.ListCount) For i=1 To UBound(cnt) p=List1.List(i-1) cnt(i)=Val(Left(p, Len(p)-1) n=Val(Right(p, 1) List2.AddItem fun(cnt(i), n) Next End Sub Private Function fun(x As Integer, y As Integer)As Integer Dim p As Integer, k As Integer Do p=x Mod 10 fun=fun+p*yk x=x/10 k=k+1 Loop Until x=10 End Function （分数：6.00）解析：2 235 458 5
