2012年9月真题

第一部分计算机基础知识

1．下列关于信息、信息技术、信息产业与信息化的叙述中，错误的是（1）。

A．世间一切事物都在运动，都具有一定的运行状态，因而都在产生信息

B．现代信息技术的主要特征之一是以数字技术为基础

C．信息产业特指利用信息设备进行信息处理与服务的行业，它不包括任何生产制造行业D．信息化是一个推动人类社会从工业社会向信息社会转变的社会转型的过程

2．下列关于数字技术与微电子技术的叙述中，错误的是（2）。

A．数字技术的处理对象是“比特”，它只有两种取值，即数字0和数字1

B．数据通信和计算机网络中传输二进制信息时，传输速率的度量单位通常为B/s、KB/s、MB/s等

C．微电子技术是实现电子电路和电子系统超小型化及微型化的技术，它以集成电路为核心

D．Intel公司创始人之一摩尔曾发表论文预测，单块集成电路的集成度平均每18~24个月翻一番

3．以下选项中，数值相等的一组数是（3）。

A．十进制数54020与八进制数54732

B．八进制数13657与二进制数1011110101111

C．十六进制数F429与二进制数1011010000101101

D．八进制数7324与十六进制数B93

4．下列关于台式PC机CPU的叙述中，错误的是（4）。

A．目前的Pc机，CPU芯片都是直接固定在主板上的，用户不可对其进行更换

B．PC机CPU芯片有多个生产厂商，例如Intel公司、AMD公司等

C．Intel公司的Core i7／i5／i3处理器是64位多内核CPU芯片

D．目前的CPU芯片中一般都集成了一定容量的高速缓冲存储器cache

5．下列关于台式PC机主板的叙述中，错误的是（5）。

A．为了便于不同PC机主板的互换，主板的物理尺寸已经标准化，例如ATX和BTX规格

B．芯片组是主板上的重要部件，它与CPU芯片及外设同步发展

C．主板上的BIOS集成电路芯片中存储了CMOS设置程序

D．主板上的CMOS存储器是一种非易失性存储器，在任何情况下其信息均不会丢失6．下列四种I／O总线(接口)中，数据传输方式为并行方式的是（6）。

A．PCI-Express B．PCI

C．USB D．IEEE-1394

7．下列关于常用I／O设备的叙述中，错误的是（7）。

A．鼠标器与主机的接口主要有PS/2和USB两种

B．光学分辨率是扫描仪的重要性能指标，目前普通办公用扫描仪的分辨率可达1000dpi 以上

C．数码相机的成像芯片均为CCD类型，且绝大多数相机的存储卡是通用的、可互换的D．宽屏LCD显示器是目前最常见的PC机显示器，其显示屏的宽度与高度之比为16：9或16：10

8．下列关于PC机外存储器的叙述中，错误的是（8）。

A．PC机硬盘接口主要有PA TA(并行ATA)和SATA(串行ATA)两种，PATA的传输速率更高些

B．目前U盘不仅能方便地保存数据，还可以模拟光驱和硬盘启动操作系统

C．固态硬盘是基于半导体存储器芯片的一种外存储设备，一般用在便携式计算机中D．光盘可分为CD光盘、DVD光盘和蓝光光盘

9．下列关于软件的叙述中，错误的是（9）。

A．软件是用于特定用途的一整套程序、数据及相关的文档

B．共享软件是没有版权的软件，允许用户对其进行修改并散发

C．目前，Adobe Reader、360杀毒软件是有版权的免费软件

D．操作系统、程序设计语言处理系统、数据库管理系统均属于系统软件

10．下列关于Windows操作系统多任务处理的叙述中，正确的是（10）。

A．如果用户只启动一个应用程序工作(如使用Word写作)，那么该程序就可以自始至终地独占CPU

B．仅当计算机中有多个处理器或处理器为多内核处理器时，操作系统才能同时执行多个任务处理

C．无论是系统程序还是应用程序，所有运行程序(进程)获得CPU使用权的优先级相同D．在多任务处理时，后台任务与前台任务都能得到CPU的及时响应

11．下列关于程序设计语言及其处理系统的叙述中，错误的是（11）。

A．机器语言就是计算机的指令系统，机器语言程序一般为二进制代码形式

B．汇编程序是指用汇编语言编写的源程序，不同计算机的汇编程序通常是相同的

C．Microsoft Office软件(如Word、Excel等)中包含VBA程序设计语言，VBA是VB的子集

D．高级语言的语言处理系统的工作方式通常分为两种，即“解释”方式和“编译”方式12．下列关于移动通信的叙述中，错误的是（12）。

A．第l代个人移动通信采用的是模拟传输技术，从第2代开始均采用了数字传输技术B．目前广泛使用的GSM和CDMA都是第2代移动通信

C．我国的3G通信目前有三种技术标准，这三种标准的网络不能互通，但终端设备互相兼容

D．目前第4代移动通信(4G)也在研发和部署之中，我国已有多个城市开始建设试验网13．下列关于因特网接入技术的叙述中，错误的是（13）。

A．采用电话拨号接入时，需要使用电话MODEM，其主流产品的速率为56kbps

B．采用ADSL接入时，数据上传速度低于数据下行速度，理想状态下数据下行速度可达8Mbps

C．采用有线电视网接入时。多个终端用户均可独享连接段线路的带宽

D．目前我国许多城市采用“光纤到楼、以太网入户”的做法，用户可享受数兆乃至百兆的带宽

14．Internet使用TCP／IP协议实现了全球范围的计算机网络的互连，连接在Internet上的每一台主机都有一个IP地址。下面不能作为IP地址的是（14）。

A．201．109．39．68 B．120．34．0．18

C．21．18．33．48 D．127．0．257．1

15．现在因特网上的多数邮件系统使用（15）协议，它允许邮件正文具有丰富的排版格式，可以包含图片、声音和超链接，从而使邮件的表达能力更强，内容更丰富。

A．MIME B．SMTP C．POP3 D．HTML

16．下列关于网络信息安全的叙述中，错误的是（16）。

A．信息在网络传输过程中，会受到窃听、伪造、篡改等安全威胁

B．最简单也是最普遍的身份鉴别方法是使用口令(密码)，但其安全性不高

C ．数据加密是常用的网络信息安全措施，也是数字签名等安全措施的基础

D ．入侵检测与防火墙一样，都是被动保护系统免受攻击的一种网络安全技术

17．下列关于字符编码标准的叙述中，错误的是 （17） 。

A ．ASCII 标准是美国制定的标准，也是目前使用最为广泛的西文字符编码标准

B ．GB2312、GBK 和GBl8030都是我国制定的标准，在这些标准中所有字符均采用双字节编码

C ．目前在台港澳等地区广泛使用BIG5编码标准，它与GB2312不兼容

D ．UCS 是ISO 制定的标准，相应的工业标准称为Unicode

18．人们说话时所产生的语音信号必须数字化才能由计算机存储和处理。假设语音信号数字化时取样频率为8kHz ，量化精度为8位，数据压缩比为4，那么1分钟数字语音的数据量(压缩后)大约为 （18） 。

A ．960K

B B ．480KB

C ．120KB

D ．60KB

19．目前数字有线电视和卫星电视所传输的数字视频采用的压缩编码标准大多是

（19） 。

A ．MPEG-1

B ．MPEG-2

C ．MPEG-4

D ．MPEG-7

20．下列关于Microsoft Office 软件(以2003/2007版本为例)功能的叙述中，错误的是

（20） 。

A ．Word 编辑处理的文档可以保存为多种文件格式，例如DOC 、RTF 、TXT 、HTML 等

B ．一个Excel 文件不可以引用另一个Excel 文件中的数据

C ．PowerPoint 编辑处理的文档可以另存为网页或图像文件

D ．Access 是一个数据库管理系统，Access 数据库中可以包含表、查询、窗体等对象

第二部分Visual Basic 程序设计

一、选择题(用答题卡答题，答案依次填在21～30答题号内)

21．可以设置为VB 程序运行启动对象的是 21 。

①工程文件 ②任意一个窗体

③窗体模块中的Main()过程 ④标准模块中的Main()过程

A ．①②③

B ．②③④

C ．②③

D ．②④

22．若要引用列表框List1中最后一个数据项的内容，应使用 22 。

A ．List1.List(List1. ListCount)

B ．List1.List(List1. ListCount-1)

C ．List1.ListIndex

D ．List1.Text

23．以下关于变量的说法中，错误的是 23 。

A ．在不同窗体中用Public 语句定义的变量可以同名

B ．在过程中用Dim 语句声明的变量都是局部变量，过程运行结束后他们将不再存在

C ．静态变量在过程运行结束时其值仍保留，以供再次运行该过程时使用，因此它不是局部变量

D ．在窗体通用声明部分声明的模块级变量，可以在本窗体内的所有过程中使用

24．对应数学表达式n e y x Sin x 102log )30(-+++ 的VB 表达式是 24 。

A ．Sin(30*3.14159/180)+Abs(x^2+Sqr(y))+Exp(x)-Log(n)/Log(10)

B ．Sin(30)+Abs(x^2+Sqr(y))+e^x-Log(n)/Log(10)

C ．Sin(30*3.14159/180)+Abs(x^2+Sqr(y))+Exp(x)-Log(x)-Log(n)

D ．Sin(30)+Abs(x^2+Sqr(y))+e^x-Log(n)

25．以下关于If分支结构语句的说法中，正确的是25 。

A．有If一定有与之配对的Else

B．有If一定有与之配对的Else If

C．有If一定有与之配对的End If

D．有End If一定有与之配对的If

26．设有字符串变量s，其值为"abcd"，可将s的值替换为"aabcd"的语句是26 。

A．Left(s,1)= "aa"

B．Mid(s,1,2)= "aa"

C．s= "aa" & Mid(s,Instr(s, "a"))

D．s= "aa" & Right(s,Len(s)-Instr(s, "a"))

27．下列表达式中，不能将一个4位整数N的百位数字提取出来的是27 。

A．N\100 Mod 10 B．Mid(CStr(N),2,1)

C．(N Mod 1000)\100 D．N\10 Mod 100

28．下列有关转换函数的说法中，正确的是28 。

A．Int和CInt函数的区别仅在于结果的数据类型不同

B．Int和Fix函数将非整数数据转换成整数，转换后的结果类型是Long

C．CInt函数的功能是将其他类型的数据转换成Integer类型

D．在处理负数时，Int和Fix函数的结果是相同的

29．以下有关数组的说法中，错误的是29 。

A．用ReDim语句重新定义动态数组时，其下标的上下界可以使用赋了值的变量

B．定义数组时，数组维界值可以不是整数

C．定义数组时，数组每一维的上界值必须大于下界值

D．定义数组时，数组维界值可以是负数

30．以下关于自定义函数的说法中，错误的是30 。

A．在自定义函数过程中可以多次给函数名赋值

B．如果在函数体内没有给函数名赋值，则该函数无返回值

C．函数定义时如果没有说明函数名的类型，则该函数的返回值为变体类型

D．若用Call语句调用函数，则将丢弃函数的返回值

二、填空题(请将答案填写在答题纸的相应答题号内，每个答案只占一行)

1．执行下面程序，单击窗体后，窗体上显示的第一行内容是 1 ，第三行内容是2 ，最后一行内容是 3 。

Option Explicit

Private Sub Form_Click()

Dim x As Integer, y As Integer, sum As Integer

For x= 1 To 3

For y=1 To 2

sum=sum+y

If sum>2 Then Exit For

Next y

Print sum;x

Next X

Print x;y

End Sub

2．执行下面程序，单击Command1按钮，则窗体上显示的a(1,3)的值是 4 ，a(2,1)的值是 5 ，a(2,2)的值是 6 。

Option Explicit

Option Base 1

Private Sub Command1_Click()

Dim a(3, 3) As Integer, j As Integer, i As Integer

For i = 1 To 3

For j = 1 To 3

a(i, j) = i*10+j

Next j

Next i

Call JH(a)

End Sub

Private Sub JH(x() As Integer)

Dim i As Integer, j As Integer, t As Integer

For i = 1 To 2

For j = 1 To 4-i

t=x(i,j)

x(i, j)=x(4-i,4-j)

x(4-i, 4-j) = t

Next j

Print

Next i

Print

End Sub

3．执行下面的程序，单击Command1后按钮，在Text1中输入“12323152”，则在窗体上显示的第一行内容是7 ，第二行内容是8 ，最后一行内容是9 。

Option Explicit

Option Base 1

Private Sub Command1_Click()

Dim s As String, i As Integer, a() As Integer

s = Text1.Text

For i = 1 To Len(s)

ReDim Preserve a(i)

a(i)=val(Mid(s,I,1))

Next i

Call Sub1(a)

End Sub

Private Sub Sub1(a() As Integer)

Dim I As Integer,j As Integer, k As Integer

i=2

Do Until i>=UBound(a)

k=i-1

Do Until a(i-1)>a(i)

i=i+1

Loop

For j=k To i-1

Print a(j);

Next j

Print

i=i+1

Loop

End Sub

4．执行下面的程序，单击Command1按钮，则在窗体上显示的第一行内容是10 ，最后一行是11 ，共显示了12 行。

Option Explicit

Private Sub Command1_Click()

Dim i As Integer

For i=1 To 6 Step 2

Call Sub1(i)

Next i

End Sub

Private Sub Sub1(a As Integer)

Static b As Integer

b=b+1

If (a+b) Mod 4=0 Then

Print a; b

Else

Call Sub1(a+1)

End If

End Sub

5．执行下列程序，单击Command1按钮，则在窗体上显示的第一行内容是13 ，第二行显示的是14 ，最后一行是15 。

Option Explicit

Private Sub Command1_Click()

Dim i As Integer

For i=4 To 7

Print Gray_Code(i)

Next i

End Sub

Private Function Gray_Code (ByVal x As Integer) As String

Dim i As Integer, d2b As String

Do

d2b=x Mod 2 & d2b

x=x\2

Loop Until x=0

d2b=Right("000" & d2b,4)

For i=4 To 2 Step -1

If Mid(d2b,i,1)=Mid(d2b,i-1,1) Then

Mid(d2b,i,1)= "0"

Else

Mid(d2b,i,1)= "1"

End If

Next i

Gray_Code=d2b

End Function

6．本程序用于验证西西弗斯串数学黑洞123。验证过程是：对于任意一个位数不限的自然数，依次统计出这个数中偶数数字（数字0被看作偶数字）的个数，奇数字的个数，总位数，将偶数字的个数值、奇数字的个数值、总位数值拼接成一个新的数：若这个新的数不是123，则再对这个数重复以上的“统计个数、拼数”操作、如此经过若干次操作，必能得到数123。例如，若初始数是35962，第一次统计个数，偶数字个数是2，奇数字个数是3，总位数是5，拼成的新数是235，不是123；再对235统计个数，其中偶数字个数是1，奇数字个数是2，拼成的新数恰是123。请完善程序。

Option Explicit

Private Sub Command1_Click()

Dim m As String, s As String, t As

String

m = Text1.Text

Do

t = Test(m)

s=s & " " & t

16

Loop Until t="123"

Text2.Text = Text1.Text & s

End Sub

Private Function Test( 17 ) As String

Dim i As Integer, x As Integer, y As Integer

For i = 1 To Len(s)

If 18 Then

x=x+1

Else

y=y+1

End If

Next i

Test=x & y & Len(s)

End Function

7．下面程序的功能是检查表达式中的括号是否匹配。请完善程序。

Option Explicit

Private Sub Command1_Click()

If KHPP(Text1.Text) Then

Text2.Text= "表达式正确"

Else

Text2.Text= "括号不匹配"

End If

End Sub

Private Function KHPP(s As String) As

Boolean

Dim i As Integer, p As String*1, L

As Integer, R As Integer

For i=1 To Len(s)

19

Select case p

Case "("

L=L+1

Case ")"

If L>R Then '必须先有左括号，才有右括号

20

Else

21

End If

End Select

Next i

If 22 Then KHPP=True

End Function

8．本程序的功能是：找出满足下列条件的n（2≤n≤4）位正整数。该数的n倍乘积也是n 位数，且这两个n位数合起来看，是由1～9之间的不同数字组成。例如：四位数1368由4位不同数字组成，其4倍乘积5472由其他不同数字组成，且两数不包含数字0。请完善程序。

Option Explicit

Option Base 1

Private Sub Command1_Click()

Dim n As Integer, i As Integer, j As Long

For i = 12 To 2498

n= 23

j=1#*i*n

If Len(CStr(j)) = n and rep(I & j) Then

List1.AddItem i & "*" & n & "=" & j

End If

Next i

End Sub

Private Function rep(st As String) As Boolean

Dim a() As Integer, i As Integer, k As Integer, x As Long

If Instr(st, "0") <>0 Then 24

x = Val(st)

Do

i =i+1

ReDim Preserve a(i)

a(i)= x Mod 10

x=x\10

Loop Until x=0

For i = 1 To Ubound(a)-1

For k=i+1 To UBound(a)

If 25 Then Exit Function

Next k

Next i

rep=True

End Function

9．下面程序的功能是比较三个不同进制数的大小。请完善程序。（说明：函数conv用于把8进制数或16进制数转换为10进制数，函数chan用于将8或16进制数的数字转换为10进制整数）（注：“A”的ASCII码值为65）

Option Explicit

Private Sub Command1_Click()

Dim a As String, b As String ,c As Integer

Dim aq As Integer, bh As Integer

a = conv(a,8)

bh = 26

If aq>bh Then

If 27 Then

Label5.Caption = "a,b,c"

ElseIf aq>c Then

Label5.Caption = "a,c,b"

Else

Label5.Caption = "c,a,b"

End If

Else

If bh

Label5.Caption = "c,b,a"

ElseIf 28 Then

Label5.Caption = "b,c,a"

Else

Label5.Caption = "b,a,c"

End If

End If

End Sub

Private Function conv(st As String, n As Integer) As Integer

Dim i As Integer,k As Integer, p As Integer

For i=Len(st) To 1 Step -1

p=chan(Mid(st,i,1))

conv=conv+p*n^k

29

Next i

End Function

Private Function chan(p As String) As Integer If p>= "A" And p<="F" Then

chan = 30

Else

chan = Val(p)

End If

End Function