江苏省计算机等级考试visual basic 2009年(秋)笔试试卷(附答案)

第一部分计算机基础知识

1．下面关于个人移动通信的叙述中，错误的是____ _。

A．第1代个人移动通信（简称1G）采用的通信技术是数字通信技术

B．目前广泛使用的GSM手机采用的通信技术属于第2代移动通信技术（简称2G）

C．第3代移动通信技术（简称3G）将无线通信与互联网、多媒体通信相结合

D．3G有多个国际技术标准，其中也有我国自主制定的3G技术标准2．在下面有关集成电路的叙述中，正确的是_____。

A．现代集成电路所使用的半导体材料都是硅

B．所有的集成电路都是数字集成电路

C．Moore定律认为单块集成电路的集成度平均每年翻一番

D．Intel公司微处理器产品Core 2 Duo，其集成度已高达数千万个电子元件3．与十六进制数AB等值的八进制数是___ __。

A．253 B．254 C．171 D．172

4．在下列有关PC机CPU的叙述中，错误的是___ _。

A．CPU中包含几十个甚至上百个寄存器，用来临时存放数据、指令和控制数据

B．所有PC机的CPU都具有相同的指令系统，因而PC机可使用相同的软件

C．一台计算机至少包含1个CPU，也可以包含2个、4个、8个甚至更多个CPU

D．Intel公司是国际上研制和生产CPU的主要公司，我国也能生产CPU 5．在下列有关PC机主板上部件的叙述中，错误的是__ _____。

A．BIOS保存在主板上的一个闪存中，其内容在关机后通常不会改变

B．CMOS中保存有用户设置的开机口令，关机后主板上的电池继续给CMOS供电

C．启动CMOS设置程序可以重新设置CMOS中的数据，该程序是BIOS 的组成部分

D．网卡通常集成在主板上，由主板上独立的IC实现其功能，与芯片组无关

6．从PC机存储器的层次结构来看，下列存储器中存取速度最快的是____。

A．Cached存储器B．RAM和ROMa

C．寄存器D．硬盘和优盘

7．在下列4种PC机常用I/O接口中，数据传输速度最快的是____。

A．PS/2 B．SATA C．IEEE-1394b D．USB 2.0 8．在下列有关I/O操作、I/O总线和I/O接口的叙述中，错误的是__ _____。

A．I/O操作的任务是在I/O设备与内存的指定区域之间传送信息

B．I/O总线传送的只能是数据信号，它不能传送控制信号和地址信号

C．不同类型的I/O接口，其插头/插座以及相应的通信规程和电气特性通常各不相同

D．并行总线的数据传输速率不一定比串行总线高

9．在下列有关PC机和I/O设备的叙述中，错误的是__ _____。

A．数码相机的成像芯片可以为CCD器件或CMOS芯片，目前大多数用

CCD器件

B．平板式扫描仪的分辨率通常远远高于胶片扫描仪和滚动式扫描仪

C．常见的宽屏液晶显示器的宽度与高度之比为16：9（或16：10）

D．目前在银行、超市等商业部门一般采用针式打印机来打印存折和票据10．在下列有关计算机软件的叙述中，错误的是______。

A．程序设计语言处理系统和数据库管理系统被归类为系统软件

B．共享软件是一种具有版权的软件，它允许用户买前免费试用

C．机器语言和汇编语言与特定的计算机类型有关，取决于CPU

D．目前PC机只能使用Windows系列操作系统，均不能使用UNIX和Linux 操作系统

11．在下列常用的PC机软件中，编辑的文档（内容）能直接保存为图片类型（例如JPEG我那件类型）的是__ _。

A．Microsoft Word B．Microsoft Excel

C．Microsoft PowerPoint D．Microsoft FrontPage 12．在下列关于以太网（局域网）的叙述中，错误的是_____。

A．在共享式以太网中，任何时间只允许一对计算机进行通信

B．在交换式以太网中，每台计算机均独享相同的带宽，其带宽仅由交换机决定

C．无论是共享式以太网还是交换式以太网，网络中的所有计算机都要安装以太网网卡

D．无论是共享式以太网还是交换式以太网，它们的数据帧和MAC地址格式均相同

13．连接在因特网上的每一台主机都有一个IP地址。下面不能作为IP地址的是___。

A．211.256.49.68 B．21.18.33.48

C．120.34.0.18 D．37.251.68.0

14．为了将异构的计算机网络互相连接起来，必须使用的网络设备是___ A．调制解调器B．以太网集线器

C．以太网交换机D．路由器

15．下列网络协议中，与发送电子邮件有关的是____。

A．HTTP B．FTP C．SMTP D．TELNET 16．在下列有关字符集及其编码的叙述中，错误的是__。

A．基本的ASCII字符集共有128个字符，每个字符使用7个二进位进行编码B．GB2312字符集中收录了6千多个汉字，每个字符在机内通常使用双字节编码

C．GBK字符集中所有的字符也采用双字节编码，且该字符集收录了部分繁体汉字

D．GB18030字符集中所有的字符集均采用4字节编码，因此该字符集的代码空间很大

17．目前数码相机拍摄的照片在保存时通常采用的文件类型是__ _____。

A．BMP B．GIF C．JPEG D．TIF 18．MP3是数字波形声音的一种压缩编码文件格式，它采用的压缩编码标准属于__。

A．MPEG-1 B．MPEG-2 C．MPEG-4

D．Dolby AC-3

19．使用Macromedia公司的Flash软件制作的动画是一种矢量图形，在保存为动画文件时其文件扩展名通常为____。

A．GIF B．SWF C．A VI

D．MPG

20．在计算机应用中，CAD和CAM是典型的信息系统。它们属于___。

A．管理业务系统B．辅助技术系统

C．信息检索系统D．信息分析系统

第二部分Visual Basic程序设计

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

21．要将焦点设置在某个控件上，以下四个选项中正确的是_____。

A．只能使用鼠标直接点击该控件

B．只能使用Tab键将焦点移到该控件

C．只能在程序中调用该控件的SetFocus方法

D．A、B、C三选项中涉及的方法均可使用

22．在下列属性中，属于CommandButton控件、ListBox控件共有的是_ A．Caption、Text B．Visible、Font

C．Caption、Visible D．List、Visible

23．数学表达式y

x

e y

x

+ ++

+π2ln

30

Sin

对应的VB表达式是_ ____。

A．Sin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+Exp(x+y)

B．(Sin(30*π/180)+Sqr(Ln(x)+y))/(2*π+Exp(x+y))

C．Sin(30*180/3.14159)+Sqr(Log(x)+y)/(2*3.14159+e^(x+y))

D．(Sin(30*3.14159/180)+Sqr(Log(x)+y))/(2*3.14159+Exp(x+y)) 24．以下的关系表达式中，运算结果为True的是___ ___。

A．CInt(1.5)=Int(1.5) B．Fix(1.5)=Int(1.5)

C．Fix(-1.5)=Cint(-1.5) D．Fix(-1.5)=Int(-1.5)

CInt（X）：将X转换为整型数据CInt（-3.8）=-4

Int（X）：取小于等于X的最大整数

Fix（X）：取X的整数部分

25．下面有关数组的叙述中，不正确的是__。

①在过程中用ReDim定义的动态数组，其下标的上下界可以是变量

②数组作为形参数组时，传递的是每个数组元素的值

③在窗体模块的通用声明处可以用Public说明一个全局数组

④数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值

A．②③B．①③④C．①②③④D．③④26．下列关于文件的叙述中，错误的是__ ____。

A．用Output模式打开一个顺序文件，即使不对它进行写操作，原来的内

容也被清除

B．可以用Print#语句或Write#语句将数据写到顺序文件中

C．若以Output、Append、Random、Binary方式打开一个不存在的文件，系统会出错

D．顺序文件或随机文件都可以用二进制访问模式打开

27．以下关于控件数组的说法中，错误的是______。

A．控件数组由一组具有相同名称和相同类型的控件组成

B．控件数组中的所有控件不得具有各自不同的属性设置值

C．控件数组中的所有控件共享同一个事件过程

D．控件数组中每个元素的下标由控件的Index属性指定

28．以下Case语句中，能正确描述Y的绝对值大于6的是___。

A．Case Abs(Y)>6 B．Case -6 To 6

C．Case Not(-6 To 6) D．Case Is <6,Is > 6

29．若在模块中用Private Function Fun(A As Single, B As Integer) As Integer定义了函数Fun。调用函数Fun的过程中定义了I，J和K三个Integer型变量，则下列语句中不能正确调用函数Fun的语句是___。

A．Fun 3.14, J B．Call Fun(I, 365)

C．Fun(I), (J) D．K=Fun("24", "35")

30．若需要在同一窗体内安排两组相互独立的单选按钮（OptionButton），可使用____ ____控件做容器将它们分开。

①TextBox ②PictureBox ③Image ④Frame

A．①或②B．②或③C．②或④D．③或④

二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）1．执行下面的程序，单击Command1，则数组元素a(1,2)的数值是（1），a(2,3) 的数值是（2），a(4,3)的值是（3）。

Option Explicit

Private Sub Command1_Click()

Dim a(4, 4) As Integer, i As Integer

Dim j As Integer, k As Integer, n As Integer

n = 16: k = 2

Do

For i = 1 To 4

For j = 1 To 4

If i + j = k Then

a(i, j) = n

n = n - 1

End If

Next j

Next i

k = k + 1

Loop Until k > 8

For i = 1 To 4

For j = 1 To 4

Print Right(" " & a(i, j), 3);

Next j

Print

Next i

End Sub

2．执行下面的程序，单击Command1，窗体上显示的第一行是（4）5 、第二行是（5）7 、第四行是（6）22 。

Option Explicit

Private Sub Command1_Click()

Dim i As Integer, s As Integer

For i = 1 To 9 Step 3

s = fun((i)) + fun(i)

Print s

Next i

End Sub

Private Function fun(m As Integer) As Integer

Static a As Integer

If m Mod 2 = 0 Then

a = a + 1

m = m + 1

Else

a = a + 2

m = m + 2

End If

fun = a + m

Print fun

End Function

3．执行下面的程序，单击Command1，窗体上显示的第一行是（7）、第二行是（8），最后一行是（9）。

Option Explicit

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = 1

b = 2

Print fun(a + 2, fun(2 * a, b))

Print a; b

End Sub

Private Function fun(x As Integer, ByVal y As Integer) As Integer x = x + 2

y = x - y + 3

fun = x + y

Print x; y; fun

End Function

4．执行下面的程序，单击Command1，窗体上显示的第二行是（10）、第三行是（11）、第四行是（12）。

Option Explicit

Private Sub Command1_Click()

Dim n As Integer, k As Integer

n = 36: k = 5

Print trans(n, k)

End Sub

Private Function trans(n As Integer, k As Integer) As String

Dim r As Integer

If n <> 0 Then

r = n Mod k

If r < 10 Then

trans = trans(n \ k, k) & r

Print n

Else

trans = trans(n \ k, k) & Chr(55 + r)

End If

End If

End Function

5．执行下面的程序，单击Command1，在窗体上显示的第一行是（13）、第二行的内容是（14）、第三行的内容是（15）。

Option Explicit

Private Sub Command1_Click()

Dim s As String, k As Integer

Dim key As String

s = "10101"

key = "111000"

k = 1

Do

Call encrypt(s, key)

Print s

s = Right(s, k) & Left(s, 4 - k) & Mid(s, 4, 2)

k = k + 1

Loop Until k > 3

End Sub

Private Sub encrypt(a As String, b As String)

Dim sp As String, n As Integer, i As Integer

sp = "0000"

n = Len(b) - Len(a)

If n > 0 Then a = Right(sp & a, Len(b))

For i = 1 To Len(b)

If Mid(a, i, 1) = Mid(b, i, 1) Then

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

Else

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

End If

Next i

End Sub

6．下面程序的功能是求序列：1/2、2/3、3/5、5/8、8/13、……前若干项的和，项数由文本框输入。试完善程序使其达到功能要求。

Option Explicit

Private Sub 计算_click()

Dim n As Integer, a1 As Integer, a2 As Integer

Dim i As Integer, t As Single, s As Single

n = Val(Text1.Text)

a1 = 1

a2 = 2

For i = 1 To n

（16）

s = s + t

a2 = a1 + a2

（17）

Next i

Text2 = s

End Sub

7．下面程序的功能是：从一组以16进制数形式表示的若干个字节数据中，找出其中的汉字代码（若相邻的两个字节中，每个字节的最高一位的数值都大于或等于8，则这两个字节为一个汉字的代码）。试完善程序使其达到功能要求。Option Explicit

Private Sub command1_click()

Dim st() As String, p As String, k As Integer

Dim n As Integer, i As Integer

p = Trim(Text1)

Do

n = InStr(p, " ")

If （18）Then

k = k + 1

ReDim Preserve st(k)

st(k) = Left(p, n - 1)

p = Right(p, Len(p) - n)

Else

ReDim Preserve st(k +

1)

（19）

End If

Loop Until n = 0

For i = 1 To UBound(st) - 1

If chinese(st(i), st(i + 1)) Then

List1.AddItem st(i) & "," & st(i + 1)

（20）

End If

Next i

End Sub

Private Function chinese(p As String, q As String) As Boolean

Dim st As String, k As Integer, n As Integer

Dim i As Integer

st = "0123456789ABCDEF"

For i = 1 To Len(st)

If Left(p, 1) = Mid(st, i, 1) Then k = i - 1

（21）

Next i

If k >= 8 And n >= 8 Then chinese = True

End Function

8．本程序的功能是求出n~m之间所有的可分解整数。所谓可分解整数是指具有以下性质的数，它的各位数字之和等于其所有质因子各位数字之和（注意：素数不是可分解整数）。例如整数121，各位数字之和是4，其质因子是11、11，质因子的各位数字之和也是4（1+1+1+1=4），所以121是可分解整数。试完善程序使其达到功能要求。

Option Explicit

Private Sub command1_click()

Dim n As Integer, m As Integer, k As Integer

n = Text1

m = Text2

For k = n To m

If sum1(k) = sum2(k) Then

List1.AddItem k

End If

Next k

End Sub

Private Function sum1( （22）) As Integer

Do

sum1 = （23）

n = n \ 10

Loop Until n = 0

End Function

Private Function sum2(ByVal n As Integer) As Integer

Dim k As Integer, nn As

Integer

（24）

nn = n

Do

If n Mod k = 0 Then

sum2 = sum2 +

sum1(k)

n = n \ k

Else

（25）

End If

Loop Until k > nn / 2

End Function

9．下面程序的功能是：将a、b两个数组的数据按从大到小的顺序合并到数组c 中。a、b两个数组的数据分别从文本框A和文本框B输入，数据以空格分隔。合并结果在文本框C中输出。试完善程序使其达到功能要求。

Option Explicit

Option Base 1

Private Sub command1_click()

Dim a() As Integer, b() As Integer, c() As Integer

Dim i As Integer, st As String

st = Trim(Text1)

Call load_a(st, a)

st = Trim(Text2)

Call load_a(st, b)

ReDim c(1)

（26）

For i = 2 To UBound(a)

Call change(a(i), c)

Next i

For i = 1 To UBound(b)

Call change(b(i), c)

Next i

For i = 1 To UBound(c)

Text3 = Text3 & Str(c(i))

Next i

End Sub

Private Sub load_a(s As String, a() As Integer)

Dim i As Integer, k As Integer, p As String, q As String * 1

For i = 1 To Len(s)

q = Mid(s, i, 1)

If q >= "0" And q <= "9" Or q = "-" Then

（27）

ElseIf p <> "" Then

k = k + 1

ReDim Preserve a(k)

a(k) = Val(p)

（28）

End If

Next i

If p <> "" Then

ReDim Preserve a(k + 1)

a(k + 1) = p

End If

End Sub

Private Sub change(n As Integer, c() As Integer)

Dim i As Integer, j As Integer

ReDim Preserve c(UBound(c) + 1)

For i = 1 To UBound(c) - 1

If n > c(i) Then

For j = UBound(c) To i + 1 Step -1

c(j) = c(j - 1)

Next j

（29）

End If

Next i

（30）

End Sub

第一部分信息技术基础知识

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

第二部分Visual Basic程序设计

一、选择题

21.D 22.B 23.D 24.B 25.A

26.C 27.B 28.D 29.B 30.C

二、填空题

(1) 15

(2) 9

(3) 2

(4) 5

(5) 12

(6) 25

(7) 4 5 9

(8) 5 -1 4

(9) 1 2

(10) 7

(11) 36

(12) 121

(13) 101101

(14) 001110

(15) 011011

(16) t = a1 / a2

st = ""

(17) a1 = a2 - a1

(18) n <> 0

(19) st(k + 1) = p

(20)i = i + 1

(21) If Left(q, 1) = Mid(st, i, 1) Then n = i - 1

(22) ByVal n As Integer

(23) sum1 + n Mod 10

(24) k = 2

(25) k = k + 1

(26) c(1) = a(1)

(27) p = p & CStr(q)

(28) p = ""

(29) Exit For

(30) c(i) = n