2012秋江苏省高校计算机二级VB笔试真题

本题目的视频讲解请登录school.njwww.net查看

绝密★ 启用前

2012年秋

江苏省高等学校非计算机专业学生

计算机基础知识和应用能力等级考试

二级试卷

试卷语种:Visual Basic语言

说明：

1．本试卷包括计算机基础知识部分和程序设计部分,考试时间共12 0分钟；

2．本试卷满分为60分,分选择题和填空题,试卷不分A、B类型；

3．计算机基础知识部分全部是选择题(20分),程序设计部分分为选择题(1 0

分)和填空题(30分)两种；

4．选择题用答题卡答题。每一项有A、B、C、D四个可供选择的答案,请选

择其中一个你认为正确的答案,用HB铅笔涂写在答题卡的相应答题号内。

每选对一项得1分,不选或选错不得分；

5．填空题用答题纸答题。请将答案用蓝、黑色钢笔或圆珠笔填写在答题纸的

相应答题号内,每个答案只占一行,不得换行。每填对一个答案得1分,

不填或填错不得分；

6．请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是

否填写正确。

7．考试结束时将试卷、答题卡和答题纸放在桌上,不得带走。待监考人员收

毕清点后,方可离场。

第一部分计算机基础知识

一、选择题(用答题卡答题,答案依次填在1--20题号内)

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机硬盘接口主要有PATA(并行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.第1代个人移动通信采用的是模拟传输技术,从第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和GB18030都是我国制定的标准,在这些标准中所有字符均采用双字节编码

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

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

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

A.960KB 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.Count) B.List1.List(List1.Count-1)

C.List1.ListIndex D.List1.Text

23.以下关于变量的说法中,错误的是___23___

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

B.在过程中用Dim语句声明的变量都是局部变量,过程运行结束它们将不再存在

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

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

24.对应数学表达式sin(30 )+|x + |+e -log n 的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(n)

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

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

A.有If一定有与之配对的Else B.有If一定有与之配对的ElseIf

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, i As Integer, j 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

Next i

For i = 1 To 3

For j = 1 To 3

Print x(i, j);

Next j

Next i

End Sub

3.执行下面程序,单击Command1后，在Text1中输入"12123152",窗体上显示的第一行内容是___(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

i = i + 1

Loop

End Sub

4.执行下面程序,单击Command1后，窗体上显示的第一行内容是___(10)___,最后一行内容是___(11)___,共显示了___(12)___行

Option Explicit

Option Base 1

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

d2b = x Mod 2 & d2b

x = x \ 2

Loop Until x = 0

d2b = Right("0000" & 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,总位数是3,拼成的新数恰是123,请完善程序

Option Explicit

Private Sub Command1_Click() '"验证"按钮

Dim m As String, s As String, t As String

m = Text1.Text

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)___ Mod 2 = 0 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 ___(21)___ Then khpp = True

End Function

8.下面程序的功能是:找出满足下列条件的n(2<=n<=4)位正整数,该数的n倍乘积也是n位数,且这两个n位数合起来看,是由1--9之间的不同数字组成,例如:四位数1368由4位不同数字组成,其4倍乘积5472由其他4位不同数字组成,且两数均不包含数字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)

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

option base 1

Private Sub Command1_Click() '"判别"按钮

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

Dim aq As Integer, bh As Integer

a = Text1.Text: b = Text2.Text: c = Text3.Text

aq = 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 < c Then

Label5.Caption = "c,b,a"

ElseIf ___(28)___ Then

Label5.Caption = "b,c,a"

Else

Label5.Caption = "b,a,c"

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

二级VB参考答案

一、选择题

(1)C (2)B (3)B (4)A (5)D (6)B (7)C (8)A (9)B (10)D
(11)B (12)C (13)C (14)D (15)A (16)D (17)B (18)C (19)B (20)B

21.D 22.B 23.C 24.A 25.D 26.D 27.D 28.C 29.D 30.B

二、填空题:

(1)3 1 (2)4 2 (3) 4 1 (4)31 (5)23 (6)22 (7)1 2 (8)1 2 3 (9)1 5) (10)2 2

(11)6 6 (12)3 (13)0110 (14)0111 (15)0100 (16)m=t (17)byval s as string

(18)mid(s,i,1) mod 2=0 (19)p=mid(s,i,1) (20)R=R+1 (21)exit Function

(22)L=R (23)Len(Cstr(i)) (24)Exit function (25)a(i)=a(k) (26)Conv(a,16)

(27)bh>c (28)c>aq (29)k=k+1 (30)chr(p)-55