江苏省计算机二级VB试题及答案

二级Visual Basic全真模拟试卷一

1．信息处理系统是综合使用信息技术的系统。下面有关信息处理系统的叙述中错误的是____1____。

A．信息处理系统从自动化程度来看，有人工的、半自动化的和全自动化的

B．应用领域很广泛。例如银行是一种以感知与识别为主要目的的系统

C．信息处理系统是用于辅助人们进行信息获取、传递、存储、加工处理及控制的一种系统

D．从技术手段上来看，有机械的、电子的和光学的;从通用性来看，有专片和通用的

2．下面关于集成电路的叙述中，错误的是 2 。

A．集成电路是20世纪50年代出现的

B．现代集成电路使用的半导体材料通常是硅或砷化镓

C．集成电路的许多制造工序必须在恒温、恒湿、超洁净的无尘厂房内完成

D．集成电路按用途可分为通用和专用两大类。微处理器和存储器芯片都属于专用集成电路

3．在通信系统的性能指标中， 3 是指数据传输中出错数据占被传输数据总数的比例。

A．信道带宽 B．误码率 C．数据率 D．端-端延迟

4．以下数据最大的是 4 。

A．01110110B B．120D

通过 5 互相连接。

A．总线

C．7DH D．177Q

5．从逻辑功能上来讲，计算机硬件主要包括中央处理器（CPU）、内存储器、外存储器、输入设备和输出设备等，它们 B．控制线 C．数据线 D．地址线

6． 6 接口是一种新的I/O接口，它是一种可以连接多个设备的总线式串行接口，2.0版的数据传输速率可高达480Mb/s（60MB/s），最多可以连接127个设备。

A．USB B．IEEE1394

7．下列不属于无线局域网设备的是 7 。

A．无线网卡 B．蓝牙

A．FAT32 和FAT16文件系统

C．FAT32和NTFS文件系统

C．SCSI D．并行

C．无线HUB D．无线网桥

8． FAT16、FAT32、NTFS是三种不同的文件系统，Windows 2000/XP操作系统支持___8___。

B．NTFS文件系统

D．FAT16、FAT32和NTFS文件系统

9．下列关于CD-ROM存储器描述中，错误的是 9 。

A．CD盘上凹坑内表示0，凹坑外表示1

B．CD盘上记录数据的是一条由里向外连续的螺旋道

C．CD-ROM需要记录的信息实现要制作到光盘上，用户不能抹除，也不能再写入

D．CD-ROM成本低，可靠性好，非常耐用，即使盘面有指纹或灰尘存在，数据仍能读出

10． 10 属于文字处理软件。

A．PageMarker和Word B．Word和3D MAX

C．Photoshop和WPS D．Paintbrush和Flash

11．下列属于自由软件的操作系统是 11 。

A．UNIX B．OS/2 C．WINDOWS

12．下列关于操作系统任务管理的说法，错误的是 12 。

A．Windows操作系统支持多任务处理

B．分时是指将CPU时间划分成时间片，轮流为多个程序服务

C．分时处理要求计算机必须配有多个CPU

D．并行处理可以让多个处理器同时工作，提高计算机系统的效率

D．LINUX

13．分析某个算法的优劣时，从需要占用的计算机资源角度，应考虑的两个方面是 13 。

A．正确性和简明性 B．空间代价和时间代价

C．可读性和开放性 D．数据复杂性和程序复杂性

14．下列关于病毒的描述中，正确的是 14 。

A．计算机病毒也称为木马

B．邮件病毒很厉害，只要收到带病毒的邮件，不管看不看，计算机都会染上病毒

C．如果一台计算机染上了病毒，它旁边的计算机很有可能被传染，因此两台计算机之间要有一定的距离

D．计算机病毒是一些人蓄意编制的一种寄生性的计算机程序

15．不能作为广域网的数据传输介质的是 15 。

A．电话线 B．微波 C．双绞线 D．光缆

16．下面对于WWW和Email的说法中，错误的是 16 。

A．网页是一种采用HTML超文本标记语言描述的超文本文档, HTML文档包括头部和正文两大部分

B．电子邮件一般由三个部分组成：邮件的头部、邮件的正文、邮件的附件

C．现在的电子邮件正文中只能发送普通文本，图片等多媒体信息只能在附件中才能发送

D．Web是按客户/服务器模式工作的

17．下面关于汉字编码标准的叙述中，正确的是 17 。

A．同一个汉字的不同造型（如宋体、楷体等）在计算机中的内码不同

B．Unicode是我国最新发布的也是收字最多的汉字编码国家标准

C．GB18030与GB2312和GBK汉字编码标准不兼容

D．在GB18030汉字编码国家标准中，共有2万多个汉字

18．适用于交互式多媒体应用，包括虚拟现实、远程教学、交互式电视等的视频压缩标准是 18 。

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

19．下列信息系统中 19 属于三次信息的处理系统。

A．管理层业务处理系统 B．信息分析系统

C．专家系统 D．信息检索系统

20．关于Excel 97/2000/2003的数据筛选，下列说法中正确的是 20 。

A．筛选后的表格中只含有符合筛选条件的行，其它行被删除

B．筛选条件只能是一个固定的值

C．筛选后的表格中只含有符合筛选条件的行，其它行被暂时隐藏

D．筛选条件不能由用户自定义，只能由系统确定

21．创建应用程序的界面时，在窗体上设置了一个文本框，运行程序后，文本框没有出现在窗体上，可能的原因是 。

A．该文本框的Value属性被设置为False

B．该文本框的Enabled属性被设置为False

C．该文本框的Visible属性被设置为False

D．该文本框的Default属性被设置为True

22．下列不是Visual Basic事件名称的是 22 。

A．Change B．Click C．Scroll D．ChDir

23．由系统提供的，可在任何一个VB程序中随时使用的程序段的函数是 23 。

A．内部函数 B．公共函数 C．逻辑函数 D．关系函数

24．SQL缩写所表示的意思是 24 。

A．开放式容器 B．结构查询语言

C．数据库联接 D．数据库编程

25．Write#语句与Print#语句功能基本相同，它们之间的主要差别之一正确的是

25 。

A．Write#语句写数值型的，而Print#语句写非数值型的

B．如果是字符串数据，Write#语句写数据后在其两边加双引号，而Print#语句没有

C．Write#语句按紧凑格式写文件，而Print#语句按标准格式写文件

D．Write#语句按标准格式写文件，而Print#语句按紧凑格式写文件

26．Datetime是Data类型的变量，以下赋值语句中错误的是 26 。

A．Datetime=#5/8/03#

27．运行下列程序：

Private Sub Form_Click()

Dim sum As Integer

Dim i As Integer

sum = 0

For i = 12.4 To 3.1 Step -3.8

sum = sum + i

Next i

sum

End Sub

单击窗体后，则在立即窗口上输出结果是 27 。

A．15 B．-0.7 C．24 D．0

28．运行下列程序：

B．Datetime=#September l,2003#

D．Datetime="5/6/03" C．Datetime=#10:21:00AM#

Private Sub Command1_Click()

Dim x As Integer, n As Integer

n = 0

Do

n = n + 2

x = x + n

Loop While n < 10

x

End Sub

单击Command1命令按钮后，则在立即窗口上输出结果是是 28 。

A．2 B．10 C．12 D．30

29．运行下列程序：

Private Sub Command1_Click()

a = 100

b = 24

a = a Mod b

b = b a

a = b - a

a

End Sub

单击Command1命令按钮后，则在立即窗口上输出结果是 29 。

A．2 B．24 C．50 D．100

30．下列程序运行后，信息框显示的内容是 30 。

Private Sub Command1_Click()

Dim s1 As String

Dim s2 As Integer

s1 = "Hello-World,2004"

s2 = Len(s1) + InStr(1, s1, "2")

MsgBox s2

End Sub

A．Hello-World B．2003 C．16 D．29

二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）（每空1分，共30分）

1．freefile函数的作用是返回一个可供Open语句使用的，整型数据的 （1） 。

2．执行MyResult = 12.6 Mod 5后，变量MyResult将返回结果是 （2） 。

3．菜单控件的Checked属性用于将复选标记放到菜单项的左侧，以便表示菜单项的

（3） 。

4．数组组中的控件通过索引值来区别，设置索引号的属性是 （4） 。

5．InputBox函数来返回值的类型是 （5） 。

6．运行下列程序：

Private Sub Form_Click()

Sum = 0

For i = 1 To 100

If Mid(CStr(i), 1, 1) = "1" Then

Sum = Sum + 1

End If

Next i

Print Sum

End Sub

单击窗体后，则在窗体上显示的结果是 （6） 。

7．运行下列程序：

Private Sub Command1_Click()

b = 1

Do While b < 20

b = b * b + 1

a = a + b

Loop

MsgBox a

End Sub

单击Command1命令按钮后，则弹出的消息对话框中显示 （7） 。

8．窗体上有4个文本框控件数组text1()和一个命令按钮，程序运行前如图1所示，程序运行后如图2所示。给定的程序不完整，将程序补充完整。

图1 图2

Dim x(3) As Integer

Private Sub Command1_Click()

For i = 0 To 3

x(i) = （8）

Next i

For i = 0 To UBound(x) - 1

For j = i To UBound(x)

If （9） Then

t = x(i)

x(i) = x(j)

x(j) = t

End If

Next j

Next i

For i = 0 To 3

Text1(i).Text = Str(x(i))

Next i

End Sub

9．下列程序是将两个文本框(tetx1和text2)的内容进行组合，组合后的结果在图片框(Pic1)显示出来，如图3所示。给定的程序不完整，将程序补充完整。

图3

Private Sub Command1_Click()

Dim s1 As String, s2 As String

s1 =

s2 =

For i = （10）

s3 = s3 + Mid(s1, i, 1) + Mid(s2, i, 1)

Next i

s3

End Sub

10．下列程序的功能是将数组中的奇数相加。给定的程序不完整，将程序补充完整。

Option Base 1

Private Sub form_Click()

Dim k As Integer

Dim Total As Integer

Dim n

n = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

For k = 1 To UBound(n)

If （11） Then

Total = Total + n(k)

End If

Next k

Print Total

End Sub

11．窗体上有三个文本框Text1控件数组，两个按钮Command1和Command2，一个图片框Pic1。程序功能是解一个一元二次方程(ax2bxc0)。程序运行后如图4所示。给定的程序不完整，将程序补充完整。

图4

Private Sub Command1_Click()

Dim a As Single, b As Single, c As Single

Dim x1 As Single, x2 As Single

Dim st As Single

a = Val(Text1(0).Text)

b = Val(Text1(1).Text)

c = Val(Text1(2).Text)

If a <> 0 Then

col = （12）

st = -b / (2 * a)

If （13） Then

x1 = st + Sqr(col) / (2 * a)

x2 = st - Sqr(col) / (2 * a)

"方程有两个实根"; x1, x2

ElseIf col = 0 Then

"方程有两个相等实根"; st

Else

x1 = Sqr(-col) / (2 * a)

"方程有两个虚根"; st; "+i"; x1, st; "-i"; x1,

End If

Else

If （14） Then

root1 = -b / c

"方程仅有一个根"; root1

Else

"方程无意义"

End If

End If

End Sub

Private Sub Command2_Click()

Text1(0).Text = ""

Text1(1).Text = ""

Text1(2).Text = ""

Pic1. （15）

End Sub

12．下列程序运行后如图5所示。给定的程序不完整，将程序补充完整。

图5

Private Sub form_Click()

k = 7

For i = 5 To 1 Step -2

Print Tab(k); （16）

k = k + 1

Next i

End Sub

13．运行下列程序：

Private Sub Command1_Click()

Dim s As Integer, i As Integer

s = 0

For i = 5.8 To 0.3 Step -1.3

s = s + 1

Next i

Print s

End Sub

单击Command1命令按钮后，则在窗体上显示的结果是 （17） 。

14．下列程序中有一个按钮Command1，一个文本框text1，其属性MultiLine＝True。当单击按钮后，文本框显示 （18）

行数据，其中第二行和第三行的数据分别是 （19） 和 （20） 。

Option Explicit

Private Sub Command1_Click()

Dim a As Single, i As Integer

a = 1.2

For i = 1 To 3

a = a * i

Print fun1(a)

Next i

End Sub

Private Function fun1(t As Single) As Single

Static y As Single

y = y + t

t = y + 1

fun1 = t

End Function

15．要打印出50个在-100～100之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。

Option Base 1

Private Sub Command1_Click()

Dim b()

Randomize

（21）

Do

x = Rnd

If x > 0.5 Then y = 1 Else y = -1

t = y * Int(Rnd * 100) + 1

（22）

Do While k < j

If t <> b(k) Then

k = k + 1

Else

Exit Do

End If

Loop

If k = j Then

ReDim Preserve b(k)

b(k) = t

Print b(k);

j = j + 1

End If

Loop Until j > 50

Print

（23）

Max = b(1)

For n = 2 To 50

If b(n) > Max Then

（24）

p = n

End If

Next n

Print "最大数是："; Max

Print "位置在第"; p; "个"

End Sub

16．有下列程序，运行后变量x1、y1和z1的结果分别是 （25） 、 （26） 和 （27） 。

Private Sub fun1(s, m, n)

s = m + 1

m = n + 2

n = s + 3

End Sub

Private Sub form_Click()

Dim x1, y1

x1 = 1

y1 = 1

z1 = 1

Call fun1(x1, y1 + 1, (z1))

x1; y1; z1

End Sub

17．编写一过程把C盘中的文件内容读出，并在文本框中显示出来。在窗体Form1上建立一个文本框Text1，将其MuhiLine属性设置为True，ScrollBars属性设置为3-Both。给定的程序不完整，将程序补充完整。

Option Explicit

Private Sub Form_Click()

Dim ch1 As String, fn As Integer

Dim Str As String

fn = （28）

Open "C:" For Input As fn

Do While Not EOF( （29） )

Line Input #fn, ch1

Str = Str + ch1 + vbCrLf

Loop

= （30）

End Sub

二级Visual Basic全真模拟试卷一参考答案

一、选择题：

1．B2．D3．B4．C5．A6．A7．B8．D9．A10．A11．D12．C13．B14．D15．C16．C17．D18．B19．B20．C

21．C22．D23．A24．B25．B26．B27．C28．D29．A30．D二、填空题：（1）文件号（2）3（3）开/关

（4）Index（5）字符串（6）12（7）33（8）Val(Text1(i).Text)（9）x(i)>x(j)（10）Len(s1) To 1 Step-1

（11）n(k) Mod 2<>0（12）b^2-4*a*c（13）col>0（14）b<>0（15）Cls（16）String(i,"*")（17）7

（18）2.2（19）6.6（20）26.4（21）j=1（22）k=1（23）p=1（24）Max=b(n)（25）3（26）1（27）1

（28）FreeFile（29）fn（30）Str

二级Visual Basic全真模拟试卷二

1．下列关于“信息系统”的叙述中错误的是 1 。

A．图书馆是一种以信息收藏和检索为主的系统

B．雷达是一种以感知与识别为主要目的的系统

C．信息系统可以有人工的，也可以有自动的

D．电视系统是一种双向的、点到点的信息系统

2．下列叙述中，错误的是 2 。

A．微电子技术以集成电路为核心

B．硅是微电子产业中常用的半导体材料

C．现代微电子技术已经用砷化镓取代了硅

D．制造集成电路都需要使用半导体材料

3．下面对于多路复用技术的说法中，正确的是 3 。

A．将同一信号沿多条线路传输，以提高可靠性

B．将同一信号多次传输，以提高正确率

C．将多路信号沿同一条线路传输，以提高利用率

D．可分为时分和频分多路复用两种

4．十进制算式3×512+7×64+5的运算结果对应的二进制数是 4 。

A． B．

C． D．

5．从逻辑功能上来讲，计算机硬件主要包括 5 、内存储器、外存储器、输入设备和输出设备等，它们通过总线互相连接。

A．中央处理器 B．控制器 C．运算器

D．寄存器

D．AGP

6．现在PC机上常用的总线是1991年开始使用的 6 局部总线。

A．ISA B．EISA C．PCI

7． 7 文档最重要的特性是它能支持超链。链源可以是文本中的任何一个字、词或句子，甚至可以是一幅图象。链宿可以是另一个Web服务器上的某个信息资源，也可以是文本内部标记书签的某个地方。

A．TELNET B．HTML C．URL D．WWW

8．CPU中有一个程序计数器（又称指令计数器），它用于存放 8 。

A．下一条要执行的指令的内存地址 B．正在执行的指令的内容

C．下一条要执行的指令的内容 D．正在执行的指令的内存地址

9．关于PC机组成，下列说法错误的是 9 。

A．CPU和存储器芯片分别通过主板上的CPU插座和存储器插座安装在主板上

B．PC机常用的外围设备主要通过一些扩充卡（如声音卡、视频卡等）与主板相连

C．CRT显示器通过插入AGP插槽的图形卡与主板相连

D．扩充卡的功能不能集成在主板上

10． 10 属于绘图软件。

A．Word和FrameMaker B．AutoCAD和Foxmail

C．Photoshop和CoreDraw D．PageMaker和Dreamweaver

11．下面对于操作系统的一些说法，正确的是 11 。

A． 文件管理可以实现文件的共享、保密和保护

B．“虚拟内存”其实是外存

C．用户必须了解设备及接口的技术细节才能使设备和计算机协调工作

D．作业管理的任务主要是管理内存资源的合理使用

12．下面关于Windows的说法中，错误的是 12 。

A．Windows采用并发多任务方式支持系统中多个任务的执行

B．Windows可以在任何一台计算机上运行

C．Windows 2000 server不是目前Windows系列操作系统的最新版本

D．Windows XP既适合家庭用户，也适合商业用户

13．实现算法所需的存储单元多少称为算法的 13 。

A．可实现性 B．困难度 C．空间复杂度

14．适用于DVD、高清晰度电视的视频压缩标准是 14 。

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

D．时间复杂度

D．MPEG-2

15．目前我国家庭计算机用户接入互联网的下述几种方法中，最快的是 15 。

A．电话拨号 B．ADSL C．一线通 D．光纤入户

16．已知接入Internet网的计算机用户为jkf，而连接的服务商主机名为，则他相应的E-mail地址为 16 。

A．@jkf B．jkf@

C．@ D．@

17．按照汉字的“输入处理输出打印”的处理流程，不同阶段使用的汉字编码分别对应为 17 。

A．国标码交换码字形码 B．输入码国标码机内码

C．输入码机内码字形码 D．拼音码交换码字形码

18．下列关于图像的说法，错误的是 18 。

A．尺寸大的彩色图片数字化后，其数据量必定大于尺寸小的图片的数据量

B．图像的数字化过程大体可分为四步：扫描、取样、分色、量化

C．像素是构成图像的基本单位

D．黑白图像或灰度图像只有一个位平面

19．计算机信息系统（简称“信息系统”）是一类以提供信息服务为主要目的的数据密集型、人机交互的计算机应用系统。在下列有关信息系统的叙述中，错误的是 19 。

A．在信息系统中，绝大多数数据是持久的，不随程序运行的结束而失效

B．信息系统开发方法有多种，例如生命周期法、原型法等

C．MRPⅡ的英文说法是Material Requirement Planning Ⅱ，制造业物料需求计划Ⅱ

D．电子商务，简称EC，是指对整个贸易活动实现电子化

20．在使用Excel 97/2000/2003处理数据时，下列叙述中正确的是 20 。

A．单元格的引用分为绝对引用和相对引用两种

B．一个工作表最多有65536行，256列

C．一个工作簿中可以无工作表

D．在Excel中输入公式后，该表达式的计算结果就被存储在单元格中

21．若需要在同一窗口内安排两组相互独立的单选按钮（OptionButton），适当的控件将它们分隔开。下列不能将单选按钮分组的控件是 21 。

① TexBox ②PictureBox ③ Image ④Frame ⑤ListBox

A．①②③

A．Log(x)

B．①③⑤

C．②④⑤

D．③④⑤

D．Ln(x)

22．Visual Basic指定参数x的自然对数值，返回一个Double的函数是 22 。

B．Lg(x) C．Exp(x)

23．运行程序时，显示下图1内容的语句是 23 。

A．b = InputBox("输入一个整数",2003,"程序示例")

B．b = InputBox("程序示例","输入一个整数",2003)

C．b = MsgBox("输入一个整数",2003,"程序示例")

D．b = MsgBox("程序示例", "输入一个整数",2003)

图1

24．各种运算符间的优先顺序，从高到低是 24 。

A．比较运算符→算术运算符→逻辑运算符

B．比较运算符→逻辑运算符→算术运算符

C．算术运算符→比较运算符→逻辑运算符

D．算术运算符→逻辑运算符→比较运算符

25．将表达式转换为Double类型的函数是 25 。

A．Cbool

26．运行下列程序：

Private Sub Form_Click()

Dim sum As Double, i As Integer

For i = 1 To 20

If i Mod 5 = 0 Then

sum = sum + i

End If

Next i

Print sum

End Sub

单击窗体后，则在窗体上显示的结果是 26 。

A．50 B．100 C．4 D．5050

B．Cbyte C．Cdbl D．Cstr

27．如果在立即窗口中执行以下操作：

x=1 '表示回车，下同

y=2

Print x > y

则输出结果是 27 。

A． -1 B．1 C．False

28．运行下列程序：

Private Sub Form_Click()

a = 32: b = 5

Do

a = a / 2

b = b + 1

Loop While b < 10

Print a

End Sub

单击窗体后，则在窗体上显示的结果是 28 。

A．1 B．2 C．5

29．运行下列程序：

Option Base 1

Private Sub Form_Click()

y = 43

x = Array(21, 4, 50, 18, 23, 44, 87, 32, 67, 70)

For i = 1 To 10

If x(i) < y Then

z = x(i) + 1

y = x(i)

Else

z = z + y

End If

Next i

Print z

End Sub

单击窗体后，则在窗体上显示的结果是 29 。

A．43 B．21 C．37

30．运行下列程序：

Private Sub form_Click()

t = Val(InputBox("请输入一个数："))

x = t - 1

Select Case t

Case 1 To 10

y = 4 * t

Case Is > 10

y = 3 * t

Case Else

y = 2 * t

End Select

D．True

D．11

D．44

Print x; y

End Sub

运行时，从键盘输入4，输出的结果是 30 。

A．3 16 B．4 4 C．3 4 D．4 10

二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）（每空1分，共30分）

1．在创建菜单时，如果命令在完成之前还需要附加信息，则在其名称后面应当有一个 （1） 。

2．VB6.0集成开发环境中，功能键Ctrl+F5的功能是对 （2） 。

3．在VB6.0中定义变量时，通过在变量名后加一个用于规定变量类型的说明字符，来规定变量的类型。当变量名后加―#‖时，则表明该变量为 （3） 。

4．将表达式的结果为非零的值返回True；否则返回False的函数是 （4） 。

5．为了在TextBox控件中显示多行文本，要将 （5） 属性设置为True。

6．运行下列程序，单击窗体后，则在窗体上显示的第四行和最后一行的结果分别是 （6） 和 （7） 。

Private Sub Form_Click()

n = 0

a = 1: b = 2: c = 3

For i = 1 To 4

For j = 0 To i

a = b + 1: b = c + 2: c = a + 2

n = n + 1

Print c

Next j

Next i

Print n

End Sub

7．在窗体有有一文本框，名为text1，则执行如下事件过程后，文本框中的输出为 （8） 。

Private Sub form_Click()

For i = 1 To 3

a = 1

For j = 1 To 3

a = a + 4

Next j

Next i

= Str(a)

End Sub

8．下列程序运行后，在窗体上打印的结果是 （9） 。

Private Sub test(a, b, c)

a = a + 1: b = b + 2: c = c + 3

End Sub

Private Sub Command1_Click()

x = 1: y = 2: z = 3

Call test(x, y + 3, (z))

Print "Main:"; x; y; z

End Sub

9．下列程序的执行结果是 （10） 。

Private Sub Form_Click()

s = 50: n = 2

Do

s = s - n

n = n + 1

Loop Until n > 8

Print s

End Sub

10．运行下列程序：

Private Sub Form_Click()

Do

For I = 1 To 100

m = Int(Rnd * 100) + 1

Select Case m

Case 13: Exit For

Case 78: Exit Do

End Select

n = n + 1

Next I

Loop

Print m

End Sub

单击窗体后，则在窗体上显示的结果是 （11） 。

11．下列程序的功能是计算两个自然数的最大公约数，如图2所示。给定的程序不完整，将程序补充完整。

图2

Private Sub Command1_Click()

Dim x As Long, y As Long, i As Long

x = Val()

y = Val()

= Str( （12） )

End Sub

Function fun1(a As Long, b As Long) As Long

Dim r As Long

Dim t As Long

If （13） Then

t = a

a = b

b = t

End If

r = a Mod b

Do While r <> 0

a = b

b = r

r = a Mod b

Loop

（14）

End Function

12．试求出所有满足下述条件的二位数：当它们乘以数字2，3，4，5，6，7，8，9时，其数字之和不变。给定的程序不完整，将程序补充完整。

Private Sub Command1_Click()

Dim m As Integer, sum As Integer

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

For a = 1 To 9

For b = （15）

（16）

For c = 2 To 9

m = c * (a * 10 + b)

sum = 0

Do

sum = sum + m Mod 10

m = m 10

Loop While m > 0

If （17） Then flg = 0: Exit For

Next c

If （18） Then

Print a; b

End If

Next b

Next a

End Sub

13．下列程序的功能是计算圆周率π（计算精度到第n项减1的绝对值小于10-5为止）。请完善下列程序。

2Option Explicit

Private Sub Form_Click()

Dim y As Single, t As Single, a As Single

y = 2: t = 0

Do

t = Sqr(2 + t)

（19）

If Abs(a - 1) < 1E-5 Then （20）

y = y * a

Loop

Print "pi="; y

End Sub

222222222„„

14．统计[1,1000]中包含数字1自然数，并将统计结果值，以及每相间100内具有该特征的数显示在文本框中，如图3所示。

图3

Private Sub Form_Click()

Sum = 0: sum1 = 0

For i = 1 To 1000

（21）

For j = 1 To Len(s)

If Mid(s, j, 1) = "1" Then

Sum = Sum + 1

sum1 = sum1 + 1

（22）

End If

Next j

If i Mod 100 = 0 Then

= + Str(sum1)

（23）

End If

Next i

Print

= Sum

End Sub

15．窗体上有一个命令按钮，数据文件的内容如下：

"宿舍""2001",87

"商店""2002",35

"教室""2003",92

"球场""2004",16

又有运行下列程序：

Type bs

aa As String * 2

bb As String * 4

cc As Integer

End Type

Private Sub Command1_Click()

Dim xs As bs

Dim f1 As Integer

f1 = FreeFile

Open "d:" For Input As #f1

Do While Not EOF(f1)

Input #f1, , ,

m

m

m

Loop

Print EOF（f1）

Close

End Sub

问：在列表框中第一行、第三行、第四行的内容是 （24） 、 （25） 、 （26） 。窗体上打印出的是 （27） 。

16．编写一过程把C盘中的文件内容读出，并在文本框中显示出来。在窗体Form1上建立一个文本框Text1，将其MuhiLine属性设置为True，ScrollBars属性设置为3-Both。给定的程序不完整，将程序补充完整。

Option Explicit

Private Sub Form_Click()

Dim ch1 As String, fn As Integer

Dim Str As String

fn = （28）

Open "C:" For Input As fn

Do While Not EOF( （29） )

Line Input #fn, ch1

Str = Str + ch1 + vbCrLf

Loop

= （30）

End Sub

二级Visual Basic全真模拟试卷二参考答案

一、选择题：1．D2．C3．C4．B5．A6．C7．B8．B9．D10．C11．A12．B13．C14．D15．D16．B

17．C18．A19．C20．B21．B22．A23．B24．C25．C26．A27．C28．A29．C30．A二、填空题：

（1）„（2）工程执行全编译（3）双精度浮点数（4）Cbool（5）MultiLine（6）13（7）14（8）13

（9）Main:2 2 3（10）15（11）78（12）fun1(x,y)（13）a

（17）a+b<>sum（18）flg=1（19）a=2/t（20）Exit Do（21）s=CStr(i)（22）Exit For（23）sum1=0

（24）2001（25）87（26）2002（27）True（28）ReDim s(t)（29）String(2*i+1,"*")（30）Print s(i)

二级Visual Basic全真模拟试卷三

1．数据通信中的数据传输速率是最重要的性能指标之一，它指单位时间传送的二进位数目，下面是一些计量单位

（1）Kb/s （2）MB/s （3）Mb/s （4）Gb/s

其中常用的是 1 。

A．（1） B．（2）和（4）

C．（1）、（2）、（3）和（4） D．（1）、（3）和（4）

2．下面有关于微电子技术的说法，错误的是 2 。

A．集成电路将永远遵循Moore定律

B．IC卡是“集成电路卡”的缩写

C．现代PC机所使用的电子元件都是超大规模和极大规模集成电路

D．现代集成电路使用的半导体材料通常是硅（Si）

3．下列关于PC机主板的叙述中，错误的是 3 。

A．CPU和RAM存储器均通过相应的插座安装在主板上

B．芯片组是主板的重要组成部分，所有控制功能几乎都集成在芯片组内

C．软盘驱动器也安装在主板上

D．为便于安装，主板的物理尺寸已标准化

4．已知X的补码为10011000，其原码为 4 。

A．11101000 B．11100111 C．10011000 D．11100110

5． 5 是一种新型的非易失性存储器，但又像RAM一样能快速方便地写入信息。

A．DRAM B．FlashRAM C．SRAM D．CACHE

6．下列4项中，错误的IP地址是 6 。

A．202.22.201.10 B．60.268.24.128 C．123.45.67.09 D．111.57.0.49

7．一幅1280×1024的24位真彩色图像，如果未经压缩，则它的数据量为 7 。

A．3.75MB B．768KB C．24KB D．1.44MB

8．目前许多外部设备（如打印机、数码相机、扫描仪等）采用了USB接口。下面关于USB的叙述中，错误的是 8 。

A．USB接口有两种规格，2.0版的数据传输速度要比1.1版快得多

B．主机不能通过USB连接器引脚向外设供电

C．利用“USB集线器”，一个USB接口能连接多个设备

D．USB属于一种串行接口

9．下列说法中，错误的是 9 。

A．硬盘安装在机箱内，属于主机的组成部分

B．硬盘驱动器和盘片是密封在一起的，不能随意更换盘片的

C．硬盘是多张盘片组成的盘片组

D．硬盘的技术指标除容量外，另一个是转速

10． 下列属于应用软件的是 10 。

①Word ②Windows XP ③Linux

④Visual Basic ⑤MSN Messenger 7.5 ⑥图书管理系统

A．①③④⑤ B．①④⑤⑥

C．①⑤⑥ D．①⑥

11．在下列有关Ｗindows98／2000／XP操作系统的叙述中，错误的是 11 。

A．它们都支持即插即用（ＰnＰ）功能

B．它们都支持支持FAT32文件系统

C．优盘中被删除的文件可从―回收站‖中回复出来

D．它们都是32位操作系统

12．下列各条中，对计算机操作系统的作用完整描述的是 12 。

A．它是用户与计算机的界面

B．它对用户存储的文件进行管理，方便用户

C．它管理计算机系统的全部软、硬件资源，合理组织计算机的工作流程，以达到充分发挥计算机资源的效率，为用户提供使用计算机的友好界面

D．它执行用户键入的各类命令

13．比较算法和程序，以下说法中正确的是 13 。

A．程序中的指令和算法中的运算语句都必须用高级语言表示

B．算法和程序都必须满足有穷性

C．算法可采用“伪代码”或流程图等方式来描述

D．算法就是程序

14． 14 由两部分组成，第一部分指出客户端希望得到主机提供的哪一种服务，第二部分是主机名和网页在主机上的位置。

A．HTTP B．TELNET C．URL D．WWW

15．在数据库系统中，最常用的一种基本数据模型是关系数据模型。在这种模型中，表示实体集及实体集之间联系的结构是 15 。

A．网络 B．图 C．二维表 D．树

16．发送邮件时，邮件传送程序必须与远程的邮件服务器建立TCP连接，并按照 16 协议传输邮件。如果接受方邮箱在服务器上确实存在，才进行邮件的发送，以确保邮件不会丢失。

A．POP3 B．TCP C．SMTP D．IP

17．在中文Windows 98/2000/XP环境下，设有一段文本，该文本中有4个汉字和2个西文字符，则这段文字的内码，最有可能是 17 。

A．CB F5 D0 B4 50 B．9B 95 90 94 50 43 8A 87 D6 B8

C．CB 45 D0 B4 50 43 CA C7 46 B8 D．CB F5 D0 B4 50 43 CA C7 D6 B8

18．在下列有关声卡的描述中，错误的是 18 。

A．声卡的主要功能是控制波形声音和MIDI声音的输入输出

B．波形声音的质量与量化位数、采样频率有关

C．声卡中数字信号处理器在完成数字声音的解码及编辑操作中起着重要作用

D．声卡所要求的数据率不高，用ISA 总线进行传输

19．信息分析系统是一种高层次的信息系统，为管理决策人员掌握企事业单位运行规律和趋势、制订规划、进行决策的辅助系统，可分为 19 和经理支持系统。

A．信息处理系统 B．决策支持系统

C．学生信息系统 D．图书管理系统

20．在使用Excel 97/2000/2003处理数据时，下列叙述中不正确的是 20 。

A．在Excel中提供了许多内置函数, 函数范围包括数据库、数学和三角函数、查询与引用函数等

B．在默认情况下，每一个工作簿文件会打开3个工作表文件，分别以Sheet1、Sheet2、Sheet3来命名

C．每个工作表中的行和列数量是没有限制的

D．在Excel中，输入公式前要先输入一个等号“＝”才行

第二部分 Visual Basic程序设计

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

121．代数式A．sqr((1+(s+t)/(x+y))/log(s))

C．sqr((1+(s+t)/(x+y))/ln(s))

abcdln(a)对应的Visual Basic6.0表达式是 21 。

B．(1+(s+t)/(x+y))/log(s)/2

D．sqr((1+s+t/x+y)/log(s))

22．设变量D为Date型、A为Integer型、S为String型、L为Long型，下面赋值语句中不能执行的是 22 。

A．D=#11:30:00 PM# B．A= "182" * 182

C．S=Date D．L="5487D4"

23．在窗体上有一个框架框(名称为Frame1)，一个计时器(名称为Timerl)，计时器的时间间隔属性Interval=100，在图片框中有一个复选按钮(名称为Check1)和一个命令按钮(名称为Command1)，用户界面如图1所示。

其中，计时器有Timer1_Timer事件过程如下：

Private Sub Timer1_Timer()

If >= Then = 0

+ 50

End Sub

运行后，窗体中的现象是 23 。

A．仅框架框移动

B．框架框携带复选按钮和命令按钮同时移动

C．框架框携带复选按钮同时移动

D．框架框携带命令按钮同时移动

24．Loc函数作用是，返回一个 24 。

A．Long型数据，在已打开的文件中指定当前读／写位置

B．Long型数据，计算其文件长度

C．Integer型数据，表示文件号的范围

D．Long型数据，表示用Open语句打开的文件的大小

25．文件操作的一般顺序是 25 。

A．操作→关闭文件

B．打开文件→操作→关闭文件

C．打开文件→操作

D．打开文件→关闭文件→操作

26．运行下列程序：

Private Sub Form_Click()

For i = 0 To 2

Print Tab(4 - i); String(i * 2 + 1, "A")

Next i

Print

End Sub

单击窗体后，则在窗体上显示的结果是 26 。

A．AAA B． AAA

AAA AAA

AAA AAA

C． A D．AAA

AAA AAA

AAAAA AAA

27．运行下列程序：

Private Sub form_Click()

x = InputBox("请输入一个数：")

Select Case x

Case Is > 0: y = x + 1: x = y + 1

Case Is = 0: y = x + 2: x = y + 2

Case Else: y = x + 3: x = y + 3

End Select

Print x; y

End Sub

从键盘输入1，输出的结果是 27 。

A．3 2 B．2 3 C．2 2 D．1 4

28．在当前窗体有一个文本框Text1，在D盘的根目录存在数据文件，数据文件的内容是

abc 10 20 30

efg 40 50 60

若运行程序，要在文本框中显示的内容是 28 。

Private Sub Form_Click()

Open "d:" For Input As #10

Do Until EOF(10)

Line Input #10, lines

= + Mid(lines, 5, 2)

Loop

Close #10

End Sub

A．abc B．1040 C．efg D．10 20

29．运行下列程序：

Private Sub form_Click()

Dim x

x = 0

Do While x < 10

x = x + 3

Loop

MsgBox x

End Sub

单击窗体后，则在窗体上显示的结果是 29 。

A．0 B．3 C．10 D．12

30．运行下列程序：

Private Sub form_Click()

s = InputBox("请输入一个字符A：")

Select Case Asc(s)

Case Is > 65

n = String(3, UCase(s))

Case Is = 65

n = String(3, LCase(s))

Case Else

n = s

End Select

Print n

End Sub

从键盘输入A，输出的结果是 30 。

A．aaa B．AAA C．65 D．a

二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）（每空1分，共30分）

1．由Visual Basic系统中，引发事件的对象叫做 （1） 。

2．在VB6.0中，CInt(-3.4)的函数值是 （2） 。

3．Stretch的属性只使用于 （3） 控件。

4．在用Open语句打开文件时，设定为二进制访问模式是 （4） 。

5．指示复选框处于选定、未选定或禁止状态(暗淡的)中的属性是 （5） 。

6．下列程序运行时，单击鼠标的右键时，窗体上打印出的数值是 （6） 。

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Cls

Print Button

End Sub

7．下列程序运行后，输出的图形是一个 （7） 。

Private Sub Form_Click()

Dim Cx, Cy

Cx = ScaleWidth / 2

Cy = ScaleHeight / 2

Line (Cx, 0)-(Cx, ScaleHeight)

Line (0, Cy)-(ScaleWidth, Cy)

End Sub

8．运行下列程序,单击Command1命令按钮后，则在窗体上显示第一行和第二行的结果分别是 （8） 和 （9） 。

Private Sub Command1_Click()

t = 1: x = 2: y = 3: z = 4

If t > 0 Or t = x And x <> y Or y > z Then

t = fun1(t, z)

Print t

Else

t = fun1(x, y)

Print t

End If

Print x

Print y

End Sub

Function fun1(ByVal x As Integer, ByVal y As Integer) As Integer

Do While y <> 0

t = x y

x = y

y = t

Loop

fun1 = x

End Function

9．当下列程序运行，单击窗体后，分别输入72和24，信息框上显示的结果是 （10） 。

Private Sub Form_Click()

Dim x As Integer, y As Integer

x = Val(InputBox("输入整数72"))

y = Val(InputBox("输入整数24"))

z = fun1(x, y)

MsgBox Str(z)

End Sub

Private Function fun1(ByVal a As Integer, ByVal b As Integer) As Integer

Do

r = a Mod b

a = b

b = r

Loop Until r = 0

fun1 = a

End Function

10．运行下列程序，单击窗体后，则在窗体上显示第一行和第二行的结果分别是 （11） 和 （12） 。

Private Sub Form_Click()

x = 3: y = 7: z = 2: t = 5

Do

y = y + x

x = x + y

Call sub1(x, y, z, t)

Print x; z; t

Loop While x < 54

End Sub

Private Sub sub1(x, y, z, ByVal w)

z = x

y = z

w = x + y + z

x = w

End Sub

11．下列程序运行后，在窗口显示结果的第二行和第三行分别是 （13） 和 （14） 。

Option Base 1

Private Sub Command1_Click()

Dim a

a = Array(1, 2, 3, 4, 5)

Call sub1(a, 3)

For i = 1 To 5

Print a(i)

Next i

End Sub

Public Sub sub1(x, n)

If n > 1 Then

t = x(1)

x(1) = x(n - 1)

x(n - 1) = t

Call sub1(x, n - 1)

End If

End Sub

12．下列程序的窗口上有一个列表框List1，程序运行单击窗体后列表框最后一行的值为 （15） ，unt的值为 （16） 。

Option Base 1

Private Sub form_Click()

For i = 1 To 10

m i

Next i

Sum = 0

For i = 0 To unt - 1

Sum = Sum + (i)

Next i

m Sum

End Sub

13．下列程序运行后，在对话框内输入4后，结果如图2所示。给定的程序不完整，将程序补充完整。

图2

Private Sub form_Click()

Dim s()

t = Val(InputBox("请输入整数4"))

k = 2 * t

（17）

For i = 0 To 2 * t

Select Case i

Case Is = 0, 2 * t

s(i) = String(2 * t, " ") + （18）

Case Is < t

s(i) = String(k, " ") & "*" & String(2 * i - 1, " ") & "*"

Case Else

s(i) = String(i, " ") & "*" & String(2 * k - 1, " ") & "*"

End Select

（19）

Next i

For i = 0 To 2 * t

Print s(i)

Next i

End Sub

14．有下列程序，利用下列公式，即级数求和的方法，求cos(x)值。

计算精度为1×106。程序运行后的结果如图3所示。给定的程序不完整，将程序补充完整。

－x2x4x6cos(x)12!4!6!

Option Base 1

Private Sub Command1_Click()

Dim x As Single, n As Long, sum As Single

x = Val()

sum = 1

k = -1

n = 2

（20）

Do

s = s * x * x

t = s / fun1(n)

sum = sum + k * t

n = n + 2

k = （21）

Loop Until t < 0.000001

= sum

End Sub

Private Function fun1(n As Long) As Long

Dim i As Long

If n = 0 Or n = 1 Then

（22）

Else

fun1 = n * fun1(n - 1)

End If

End Function

15．将1～20的自然数围成一圈，使其相邻的两数之和均为素数。程序中数组a存放1～20中的奇数，数组b存放1～20中的偶数，c数组存放最后结果(即有上述性质的圈)。程序实现将1(奇数)放入c，从b中选一偶数放入c，使该两数之和为素

数，然后再从a中选一奇数放入c，使相邻两数之和为素数，重复此过程直至c中放到20个为止。程序运行后的结果如图4所示。给定的程序不完整，将程序补充完整。

图4

Option Base 1

Private Sub Command1_Click()

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

Dim i, j, k, m, n

For i = 1 To 10

a(i) = 2 * i - 1

b(i) = 2 * i

Next i

c(1) = a(1)

m = c(1)

a(1) = 0

（23）

Do While k <= 20

If m Mod 2 <> 0 Then

n = fun1(b, m)

Else

n = fun1(a, m)

End If

If n > 0 Then

（24）

k = k + 1

m = n

Else

Print "fail"

End If

（25）

If fun2(c(1) + n) Then

t = 0

For i = 1 To 20

c(i);

t = t + 1

If t Mod 10 = 0 Then

Next i

End If

End Sub

Public Function fun2(n) As Boolean

fun2 = True

For i = 2 To Sqr(n)

If n Mod i = 0 Then

（26）

Exit Function

End If

Next i

End Function

Public Function fun1(x, m) As Integer

f = 1

n = 0

i = 10

Do While f * i > 0

If x(i) = 0 Then

i = i - 1

Else

n = x(i)

If fun2(m + n) Then

x(i) = 0

f = 0

Else

i = i - 1

End If

End If

Loop

If i > 0 Then fun1 = n Else fun1 = 0

End Function

16．本程序的功能是从给定的纯英文字符串（Text1中的内容）中找出最长的一个按字母顺序排列的子串，并在Text2中显示出来。程序界面参见图5。请完善下列程序。

Option Explicit

Private Sub Command1_Click()

Dim st1 As String

st1 = Text1

Text2 = （27）

End Sub

Private Function max_s(st As String) As String

Dim i As Integer, sta As String, s1 As String, s2 As String

Dim tem As String

s1 = Mid(st, 1, 1)

For i = 2 To Len(st) - 1

s2 = （28）

If Asc(s2) - Asc(s1) = 1 Then

tem = tem & s1

Else

If Len(tem) > 1 And Len(tem) > Len(sta) Then

sta = tem

（29）

End If

End If

（30）

Next i

If Len(tem) > 1 And Len(tem) > Len(sta) Then

max_s = tem

Else

max_s = sta

End If

End Function

二级Visual Basic全真模拟试卷三参考答案

一、选择题：

1．D2．A3．C4．D5．B6．B7．A8．B9．A10．C11．C12．C13．C14．C15．C16．C17．D18．D19．B20．C21．A

22．B23．B24．A25．B26．C27．A28．B29．D30．A

二、填空题：

（1）事件源（2）-3（3）Image（4）Binary（5）Value（6）2（7）十字形图形（8）4（9）2（10）24（11）39 13 5（12）273

91 5（13）1（14）3（15）55（16）11（17）ReDim s(k)（18）"*"（19）k=k-1（20）s=1

（21）(-1)*k（22）fun1=1（23）k=2（24）c(k)=n（25）Loop（26）fun2=False（27）max_s(st) （28）Mid(st,i,1)

（29）tem=""（30）s1=s2

二级Visual Basic全真模拟试卷四

1．计算机最具代表性的应用领域是科学计算，数据处理， 1 ，计算机辅助设计和人工智能。

A．办公室自动化 B．银行电子化 C．算术运算 D．实时控制

2．下列关于集成电路的叙述中，错误的是 2 。

A．集成电路使用的都是半导体硅（Si）材料

B．集成电路根据它所包含的晶体管数目可分为小规模、中规模、大规模、超大规模和极大规模集成电路

C．集成电路的工作速度与组成逻辑门电路的晶体管尺寸有密切关系

D．集成电路是将大量晶体管、电阻及互连线等制作在尺寸很小的半导体单晶片上

3．在CPU中， 3 是指挥中心，它有一个指令计数器，用来存放CPU正在执行的指令的地址，CPU将按照该地址从内存读取所要执行的指令。

A．寄存器 B．指挥器 C．运算器 D．控制器

4．二进制带符号整数（补码）10000000的表示的十进制数为 4 。

A．0 B．128 C．-0 D．-128

5．下列关于RAM的说法中，错误的是 5 。

A．DRAM芯片电路简单，集成度高，工耗小，成本低

B．DRAM工作速度快，适合用作Cache

C．SRAM芯片电路复杂，集成度低，工耗大，成本高

D．无论是DRAM还是SRAM，当关机或断电时，其中的信息都将随之丢失

6．下面有关PCI总线的叙述中，错误的是 6 。

A．PCI总线的数据宽度仅为32位

B．PCI总线的时钟与CPU时钟无关

C．PCI总线数据线宽度比ISA总线宽

D．PCI总线可同时支持多组外围设备，与CPU的型号无关

7．成像芯片的像素数目是数码相机的重要性能指标，它与可拍摄的图象分辨率直接相关。索尼(SONY)--DSC-T7的像素约为500万，它所拍摄的图象的最高分辨率为 7 。

A．1280×960 B．1600×1200

C．2048×1536 D．2592×1944

8． 8 音乐与高保真的波形声音相比，虽然在音质方面还有一些差距，也无法合成出所有各种不同的声音，但它的数据量很少，又易于编辑修改，还可以与波形音乐同时播放。

A．MIDI B．Rel C．MPEG D．JPEG

9．如果一个图像的颜色深度为24，这该图像能表示的最大颜色数目为 9 。

A．24种 B．256种

C．1千6百多万种 D．10亿种以上

10．下列应用软件中___10___属于网络通信软件。

A．FrameMaker 7.0 B．Flash

C．Outlook Express D．Frontpage

11．虚拟存储系统能够为用户程序提供一个容量很大的虚拟地址空间，但其大小有一定的范围，它受到___11__的限制。

A．内存容量大小

B．外存空间及CPU地址表示范围

C．交换信息量大小

D．CPU时钟频率

12．下列关于PC机的叙述中，下面说法中正确的是 12 。

A．CMOS中存放着基本输入/输出系统（BIOS）

B．PC机只能安装MS-DOS或Windows操作系统

C．PC机主板型号与CPU型号是一一对应的，不同的主板对应不同的CPU

D．CMOS芯片需要一个电池给它供电，否则其中数据会因主机断电而丢失

13．算法是问题求解规则的一种描述，下面哪些选项属于其基本性质 13 。

A．确定性、有穷性、能行性、输入、输出

B．确定性、无穷性、能行性、输入、输出

C．不确定性、无穷性、能行性、输入、输出

D．不确定性、有穷性、能行性、输入、输出

14．计算机网络是利用通信设备和网络软件，把地理位置分散而 14 的计算机（及智能设备）以相互共享资源和进行信息传递为目的连接起来的一个系统。

A．相互连接 B．功能齐全 C．功能独立 D．价格便宜

15．关于有线电视电缆调制解调技术的描述中，正确的是 15 。

A．使用电缆调制解调技术，上网速度很快，但在上网的同时不能看电视

B．电缆调制解调技术是多用户共享带宽，用的人多了，单个用户的速度会下降

C．使用电缆调制解调技术非常的方便，只要有有线电视的地方就能上网

D．电缆调制解调器的下载速度快，上传速度慢

16．通过Internet发送或接收电子邮件(E-mail)的首要条件是应该有一个电子邮件(E-mail)地址，它的正确形式是

16 。

A．用户名#域名 B．用户名@域名

C．用户名/域名 D．用户名.域名

17．微软公司自Windows 95简体中文版始，系统采用 17 代码，该代码共收录汉字21003个、符号883个，并提供1894个造字码位，简、繁体字融于一库。

A．UCS B．BIG5 C．GBK D．CJK

18．目前，数据相机所采用的既支持无损压缩又支持有损压缩的图像文件格式是 18 。

A．TIF B．JPEG C．BMP D．GIF

19．用于辅助人们进行信息获取、传递、存储、加工处理、控制及显示的综合使用各种信息技术的系统，可以通称为

19 。

A．自动办公系统

C．信息处理系统

B．信息管理系统

D．人工智能系统

20．在电子表格软件Excel环境下，下列叙述中不正确的是 20 。

A．在一个单元格内最多可以存放255个西文字符

B．在输入由数字组成的字符输入项时，应为数字字符串加双引号

C．利用“填充柄”可向单元格输入系列数据

D．单元格引用分为相对引用、绝对引用和混合引用

21．在 Select Case a结构中，描述判断条件 1 ≦ a ≦ 10 的测试项应该写成 21 。

A．Case 1 <= a <= 10 B．Case 1 ≦ a And a ≦ 10

C．Case Is >= 10 or Is >= 1 D．Case 1 To 10

22．用Hide方法隐藏窗体时，它就从屏幕上被删除，并将其Visible属性设置为 22 。

A．1 B．0 C．False D．True

23．Lof函数作用是，返回一个 23 。

A．Long型数据，在已打开的文件中指定当前读／写位置

B．Long型数据，表示用Open语句打开的文件的大小

C．Integer型数据，表示文件号的范围

D．Boolean型数据，表明是否已经到文件的结尾

24．以下四个控件中具有Pattern属性的是 24 。

A．目录列表框

25 号。

A．"-" B．"&" C．"#"

26．运行下列程序：

Private Sub Command1_Click()

x = 3

If x < 3 Then Print x + 3;

If x < 4 Then Print x + 4;

If x < 5 Then Print x + 5;

If x < 6 Then Print x + 6;

Print

End Sub

单击Command1命令按钮后，则在窗体上显示的结果是 26 。

A．6 7 8 9 B．7 8 9 C．8 9

27．运行下列程序：

Private Sub Command1_Click()

s$ = "abcdefabcdefabcdef"

k = InStr(s$, "c")

Do While k > 0

n = n + 1

s$ = Mid(s$, k + 1)

k = InStr(s$, "c")

Loop

Print n

End Sub

单击Command1命令按钮后，则在窗体上显示的结果是 27 。

A．1 B．2 C．3 D．4

28．运行下列程序：

Private Sub Command1_Click()

s1 = "Basic"

For i = 1 To Len(s1)

D．"+"

B．驱动器列表框 C．文件列表框 D．列表框

25．为菜单上访问键被显示成带下划线的字母，请在要作为访问键的字母前面键入一个

D．9

t = Mid(s1, i, 1)

s2 = s2 + Chr(Asc(t) + 1)

Next i

s2

End Sub

单击Command1命令按钮后，则在立即窗口上输出结果是 28 。

A．Cbtjd B．65 C．Basic

29．运行下列程序：

Private Sub Command1_Click()

x = "祝你成功"

y = "1234"

For i = 1 To 4

z = z + Mid(x, i, 1) + Left(y, 1)

Next i

Print z

End Sub

单击Command1命令按钮后，则在窗体上显示的结果是 29 。

A．祝你成功1234 B．祝1你2成3功4

C．1234祝你成功 D．祝1你1成1功1

30．运行下列程序：

Private Sub Command1_Click()

x = 1

z = InputBox("请输入一个整数2")

Select Case z

Case Is > 0

y = x + 1

Case Is = 0

y = x - 2

Case Else

y = x + 5

End Select

Print x; y

End Sub

从键盘输入2，输出的结果是 30 。

A．0 1 B．1 2 C．1 3

D．出错

D．5 5

二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）（每空1分，共30分）

1．将一表达式转成Byte类型的函数是 （1） 。

2．解锁Unlock语句的功能是释放由 （2） 设置的对一个文件的多重访问保护。

3．为了改变Label控件中显示的文本，可使用 （3） 属性。

4．第一次显示某窗体时，将引发Initialize、Activate和Load三个事件，最先引发的事件是 （4） 事件。

5．窗体上有一个shape控件，其shape属性设置为2-Oval，则显示为一个 （5） 图形。

6．下列程序的执行结果是 （6） 。

Private Sub Form_Click()

Dim s As Integer, k As Integer

s = 1: k = 1

Do While k < 10

s = s + k

k = k + 1

Loop

Print s

End Sub

7．下列程序程序单击窗体后，则在窗体上的text1和text2中的内容分别是 （7） 和 （8） 。

Private Sub Form_Click()

Dim s As Variant, s1 As String

s = #5/24/2003#

= Day(s)

s1 = CStr(s)

s1 = Left(s1, 1) + Space(3) + Right(s1, 1)

= s1

End Sub

8．下列程序的功能是，找出1～10之间所有的因子之和，并在图片框Picture1中显示出来，如图1所示。给定的程序不完整，将程序补充完整。

Private Sub form_Click()

Dim a() As Integer, Id As Integer

For I = 1 To 10

I; "-> 1 ";

（9）

For j = 2 To I - 1

If I Mod j = 0 Then

Id = Id + 1

ReDim Preserve a(Id)

a(Id) = j

End If

Next j

For j = 1 To Id

（10）

Next j

Next I

End Sub

9．给定程序其功能是：建立并打印主对角线的元素为1外，主对角线之上的元素为5，主对角线之下的元素为0的方阵，如图2所示。给定的程序不完整，将程序补充完整。

图2

Option Base 1

Private Sub Form_Click()

Dim A(5, 5)

For i = 1 To 5

For j = 1 To 5

If i = j Then

（11）

ElseIf （12） Then

A(i, j) = 5

Else

A(i, j) = 0

End If

Next j

Next i

For i = 1 To 5

For j = 1 To 5

Print A(i, j);

Next j

（13）

Next i

End Sub

10．1955年，卡普耶卡(ar)研究了对四位数的一种变换：任给出四位数k0，用它的四个数字由大到小重新排列成一个四位数m，再减去它的反序数rev(m)，得出数k1=m-rev(m)，然后，继续对k1重复上述变换，得数k2。如此进行下去，卡普耶卡发现，无论k0是多大的四位数，只要四个数字不全相同，最多进行7次上述变换，就会出现四位数6174。例如：k0=5298，k1=9852-2589=7263，k2=7632-2367=5265，k3=6552-2556=3996，k4=9963-3699=6264，k5=6642-2466=4176，k6=7641-1467=6174。给定下列程序实现其功能。给定的程序不完整，将程序补充完整。

Option Base 1

Private Sub Form_Click()

Dim n(4) As Integer

Randomize

k = （14）

m = 0

Do

Print k

For i = 1 To 4

n(i) = k Mod 10

（15）

Next i

For i = 1 To 3

For j = i To 4

If （16） Then

t = n(i)

n(i) = n(j)

n(j) = t

End If

Next j

Next i

Max = n(1) * 1000 + n(2) * 100 + n(3) * 10 + n(4)

Min = n(4) * 1000 + n(3) * 100 + n(2) * 10 + n(1)

k = Max - Min

（17）

Loop Until k = 6174

Print k

Print "交换次数＝";m

End Sub

11．下面程序的功能是找出由两个不同的数字组成的回文平方数。程序界面参见图3。

图3

Option Explicit

Private Sub Command1_Click()

Dim a(0 To 9) As Integer, i As Long, flg As Boolean

Dim j As Integer, sum As Integer

For i = 10 To 1000

Erase a

Call sub1((i * i), a, flg)

If （18） Then

For j = 0 To 9

sum = sum + a(j)

Next j

If （19） Then

m CStr(i) & "^2=" & Str(i * i)

End If

End If

sum = 0

Next i

End Sub

Private Sub sub1(x As Long, a() As Integer, bl As Boolean)

Dim n As Integer, idx As Integer, i As Integer

bl = （20）

n = Len(CStr(x))

For i = 1 To n / 2

If Mid(CStr(x), i, 1) <> Mid(CStr(x), n - i + 1, 1) Then

Exit Sub

End If

Next i

bl = True

For i = 1 To n

idx = x Mod 10

a(idx) = 1

x = (x 10)

Next i

End Sub

12．下列的程序的功能是，将密码转换成字符串，其中密码的规则为：数码后面的字符表示数码的个数，例如A表示1个，B表示2个，C表示3个，……。转换顺序是密码→(每7位)二进制→ASCII码→原代码，程序运行后的结果如图4所示。给定的程序不完整，将程序补充完整。

Dim w As String

Private Sub Command1_Click()

w = Text1(0).Text

For i = 1 To Len(w) （21）

s1 = Mid(w, i, 1)

For j = 1 To Asc(Mid(w, i + 1, 1)) - 64

t = t + s1

Next j

Next i

Text1(1).Text = （22）

s2 = ""

For i = 0 To Len(t) / 7 - 1

s1 = Mid(t, i * 7 + 1, 7)

（23）

For j = 6 To 0 Step -1

Sum = Sum + Val(Mid(s1, 7 - j, 1)) * 2 ^ j

Next j

Text1(2).Text = Text1(2).Text + Str(Sum)

s2 = s2 + Chr(Sum)

Next i

Text1(3).Text = （24）

End Sub

13．下列程序是统计字母和数字字符在文本中出现的次数。程序运行后的结果如图5所示。给定的程序不完整，将程序补充完整。

图5

Option Explicit

Private Sub Command1_Click()

Dim str1 As String, n1 As Integer

Dim A(62) As Integer

Dim I As Integer, line1 As Integer

Dim s1 As String * 1, len1 As Integer

（25） =

len1 = Len(str1)

For I = 1 To len1

s1 = （26）

If s1 >= "A" And s1 <= "Z" Then

n1 = Asc(s1) - Asc("A")

A(n1) = A(n1) + 1

ElseIf s1 >= "a" And s1 <= "z" Then

n1 = Asc(s1) - Asc("a") + 26

（27）

ElseIf s1 >= "0" And s1 <= "9" Then

n1 = Asc(s1) - Asc("0") + 52

A(n1) = A(n1) + 1

End If

Next I

For I = 0 To 62

If A(I) > 0 Then

Select Case （28）

Case 0 To 25

Text2 = Text2 & Chr(I + Asc("A")) & "：" & Str(A(I)) & " "

Case 26 To 51

Text2 = Text2 & Chr(I - 26 + Asc("a")) & "：" & Str(A(I)) & " "

Case Else

Text2 = Text2 & （29）

End Select

（30）

If line1 Mod 6 = 0 Then Text2 = Text2 & vbCrLf

End If

Next I

End Sub

二级Visual Basic全真模拟试卷四参考答案

一、选择题：1．D2．A3．D4．D5．B6．A7．D8．A9．C10．C11．B12．D13．A14．C15．C16．B17．C18．B

19．C20．B21．D22．C23．B24．C25．B26．B27．C28．A29．D30．B二、填空题：（1）Cbyte（2）Lock语句（3）Caption（4）Initialize（5）椭圆（6）46（7）24（8）2 4（9）Id=0（10） "+";a(j);

（11）A(i,j)=1 （12）i

（18）flg（19）sum=2（20）False（21）Step 2（22）t（23）Sum=0（24）s2（25）str1（26）Mid(str1,I,1)

（27）A(n1)=A(n1)+1（28）I（29）Chr(I-52+Asc("0")) & ":" & Str(A(I)) & " "（30）line1=line1+1

二级Visual Basic全真模拟试卷五

1．下列关于信息及信息系统的叙述中错误的是 1 。

A．电话系统是一种单向的、点到点的以信息传递为目的的信息系统

B．雷达是一种以感知与识别为主要目的的系统

C．信息系统有专用的，也有通用的

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

2．微电子技术是以集成电路为核心的电子技术。在下列有关集成电路（IC）的叙述中，错误的是 2 。

A．目前PC机中所用的的电子元器件均为超大规模和极大规模集成电路

B．信号放大器属于数字集成电路

C．Moore定律指出（预言），集成电路的集成度平均18~24个月翻一番

D．微处理器和存储器芯片等都属于通用集成电路

3．BIOS的中文名是“基本输入/输出系统”。下列说法中错误的是 3 。

A．BIOS是固化在主板上ROM中的程序

B．BIOS中包含系统自举（装入）程序

C．BIOS中包含加电自检程序

D．BIOS中的程序是汇编语言程序

4．十六进制数4D转变成七进制数（用0～6表示）的结果为 4 。

A．141 B．140 C．115 D．116

5．在进行图像获取的过程中，将画面划分为M×N个网格，每个网格称为一个取样点。这样，一幅模拟图像就转换为M×N个取样点组成的一个阵列。这个过程称为 5 。

A．分色 B．量化 C．扫描

6．外接式调制解调器与计算机连接时，一般使用 6 。

A．计算机的并行输入输出口 B．计算机的串行输入输出口

C．计算机的ISA总线 D．计算机的STD总线

7．IP地址每个字节之间用 7 进行分隔。

A．―．‖ B．―：‖

C．―；‖ D．―，‖

8．下列都属于输出设备的是 8 。

A．显示器，打印机，音箱

C．键盘，鼠标，触摸屏

D．取样

B．打印机，键盘，鼠标

D．手写板，扫描仪，绘图仪

9．下列关于内存储器的描述中，正确的是 9 。

A．RAM是只读存储器，而ROM是可以随机访问的存储器，可以读也可以写

B．ROM是只读存储器，而RAM是可以随机访问的存储器，可以读也可以写

C．ROM和RAM都是只读存储器

D．ROM和RAM都是可以随机访问的存储器，可以读也可以写

10．对于以下列出的9个软件：①Windows ME ② Windows CE ③ Windows NT ④ Frontpage 98 ⑤ Access 97 ⑥ Unix

⑦ Linux ⑧ MS-DOS 6.22 ⑨ OS/2，___10___均为操作系统软件。

A. ①②③ B. ①②③⑥⑦⑧⑨

C. ①②③⑥⑨ D. ①②③⑥⑧

11． 11 是一种为网络用户运行软件的服务，即工作站需要执行的某一项任务，部分甚至全部都是由网络上的另一台计算机完成的。

A．文件服务 B．消息服务 C．应用服务 D．打印服务

12．随着新型号微处理器的不断推出，它们的指令系统也发展变化。为了解决软件兼容性问题，通常采用“ 12 ”方式来开发新的处理器，即在新的处理器中保留老处理器的所有指令，同时扩充功能更强的新指令。

A．新老结合 B．向下兼容 C．不断更新 D．与时俱进

13． 13 负责对计算机系统的各类资源进行统一控制、管理、调度和监督，合理地组织计算机的工作流程。

A．操作系统 B．应用软件

C．语言处理程序 D．数据库管理系统

14．下列有关计算机网络的描述，不正确的是 14 。

A．计算机网络最有吸引力的功能是资源共享

B．计算机网络包含有三个组成部分：若干服务器(又叫主机)、一个通信子网和一系列通信协议

C．在网络传输介质中，双绞线的传输速率可达100Mb/s

D．在家庭中，如果用电话线上网，则应使用调制解调器

15．怎样在计算机中描述乐谱呢？这就需要有一种标准的描述语言。目前普遍使用的标准叫 15 。

A．MIDI B．Rel C．MPEG D．JPEG

16．下列关于电子邮件的叙述中，不正确的是 16 。

A．向对方发送电子邮件时，并不要求对方计算机一定处于开机状态

B．发送电子邮件时，一次发送操作只能发送给一个接受者

C．可以发送文字、声音、图像等形式的文件

D．也可以向自己电子邮箱发送电子邮件

17．组成“北京”（拼音为BEIJING）、“南京”（拼音为NANJING）、“南宁”（拼音为NANNING）这三个词组的汉字均属于GB2312_80字符集中的一级汉字，则按机内码这三个词组从小到大排序的结果为 17 。

A．南宁、北京、南京 B．南京、南宁、北京

C．北京、南京、南宁 D．南宁、南京、北京

18．在使用IE浏览网页的时候，网页上的图片一般不会下载并保存在Windows的某个文件夹中。目前网页上使用的图片文件大多数为 18 格式文件。

A． BMP B．WMF

C． TIF D．JPG

19．下列关于数据库系统特点的叙述中，正确的是 19 。

A．数据库避免了一切数据重复

B．数据的一致性是指数据库中的数据类型一致

C．数据库共享是指各类用户均可任意访问数据库中的数据

D．数据库减少了数据冗余

20．在Microsoft PowerPoint 97/2000/2003中，要播放演示文稿，正确的操作是执行 20 。

A．“视图”菜单中的“幻灯片放映”命令

B．“工具”菜单中的“观看放映”命令

C．“视图”菜单中的“幻灯片浏览”命令

D．“文件”菜单中的“开始”命令

21．下面关于Sub过程的说法，错误的是 21 。

A．不能用GoTo 语句进入或转出一个Sub过程

B．可以通过调用执行Sub过程，而且可以嵌套调用

C．Sub过程可以嵌套

D．在Sub过程内，不能定义Sub过程或Function过程

22．可以用InputBox函数产生―输入对话框‖。若执行下列语句

s = InputBox("请输入", "一个", "数字")

当用户输入完毕，按―确定"按钮后，s变量的内容是 22 。

A．请输入 B．一个

C．数字 D．用户输入内容

23．Sub过程与Function过程最根本的区别是 23 。

A．Function过程可以有参数，Sub过程不可以

B．两种过程参数的传递方式不同

C．Sub过程无返回值，但Function过程有返回值

D．Sub过程是语句级调用，可以使用Call或直接使用过程名，Function过程是在表达式中调用

24．打开顺序文件时，下列叙述正确的是 24 。

A．选用Input模式，文件不存在时，将会产生一个错误

B．选用Append模式，文件不存在时，将会产生一个错误

C．选用Output模式，文件不存在时，将会产生一个错误

D．必须用Len参数指定缓冲区的字符数

25．能在窗体的文本框Text1中显示―祝你成功‖的语句是 25 。

A．Text= "祝你成功" B．Text1= "祝你成功"

C．Text1 "祝你成功" D．m "祝你成功"

26．窗体上有一个通用对话框控件CommonDialog1，有下列语句：

= ShowSave

其表示为 26 。

A．显示―打开‖对话框 B．显示―另存为‖对话框

C．显示―颜色‖对话框 D．显示―字体‖对话框

27．运行下列程序：

Private Sub form_Click()

x$ = "123": y$ = "abc"

n = Len(x)

For i = 1 To n

Print Mid(x$, n + 1 - i, 1) + Mid(y$, i, 1);

Next i

Print

End Sub

单击窗体后，则输出结果是 27 。

A．a1b2c3 B．a3b2c1 C．3a2b1c D．1c2b3a

28．运行下列程序：

Private Sub form_Click()

For i = 1 To 4

t = t * 10 + i

s = s + t

Next i

Print s

End Sub

单击窗体后，则输出结果是 28 。

A．1234 B．4321 C．1370 D．4444

29．运行下列程序：

Private Sub Form_Click()

For i = 3 To 1 Step -1

For j = 2 To 1 Step -1

"A"; String(3 - i, "*");

Next j

Next i

End Sub

单击窗体后，则在立即窗口内显示结果是 29 。

A．AAA*A**A*** B．AAA*A*A**A**

C．A*A*A*A*A*A* D．A***

30．运行下列程序：

Private Sub Form_Click()

For i = 1 To 3

Print Spc(3); (2 * i + 1) * (2 * i - 1);

Next i

Print

End Sub

单击窗体后，则在窗体上显示的结果是 30

A．1 2 3 B．3 3 3 15 3 35 C．3 15 35 D．3 2 1

二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）（每空1分，共30分）

1．一个以连字符―-‖作为它的Caption属性的菜单控件，作为一个 （1） 出现。

2．以下所列的7个控件中，具有Caption属性的有 （2） 个。

PictureBox（图片框）、Frame（框架）、OptionButton（单选按钮）、ListBox（列表框）、TextBox（文本框）、Form（窗体）、

CommandButton（命令按钮）

3．下列程序运后，当单击鼠标的左键时，在窗口打印的结果是 （3） 。

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Print Format(5248.4, "00000.00")

End Sub

4．使用Microsoft ActiveX数据对象(ADO)来快速建立数据绑定的控件和数据提供者之间的连接，应该使用 （4） 控件。

5．运行下列程序，单击窗体后在窗体上显示第三行和第四行的结果分别是是 （5） 。和 （6） 。

Private Sub Form_Click()

Dim x As Integer

Dim i As Integer, j As Integer

i = 1: j = 1: x = 0

Do

Do

x = x + j

j = j + 2

Loop Until j > 4

i = i + 1

Print i

Loop While i < 4

Print x

End Sub

6．执行下列的程序，单击窗体后在窗体上打印的结果是 （7） 。

Private Sub Form_Click()

Dim s1 As String, I As Integer

s1= "AC"

For I = Len(s1) To 1 Step -1

s1 = s1 & Chr(Asc(Mid(s1, I, 1)) + I)

Next I

Print s1

End Sub

7．当程序运行单击窗体后，则在窗体上显示的结果是 （8） 。

Private Sub form_Click()

Dim x As Integer, y As Integer, z As Integer

x = -2: y = 2

For I = 1 To 3

Select Case x

Case Is < 0

x = x + 3

Case 1 To 10

z = x + 10: x = y + 10: y = z + 10

Case Else

x = y Mod 5

End Select

Next I

Print x

End Sub

8．当程序运行单击窗体后。则在窗体上显示的结果是 （9） 。

Private Sub form_Click()

Dim s1 As String, s2 As String, s As Integer

Dim i As Integer

s1 = "abcd"

s = 0

For i = 1 To Len(s1)

s = s + InStr(s1, Chr(i + 96))

Next i

Print s

End Sub

9．下列程序运行的sum结果为 （10） 。执行完该程序后，共循环了 （11） 次。

Private Sub form_Click()

Dim sum As Integer, i As Integer, j As Integer

For i = l To 5 Step 2

For j = 1 To 3 Step 2

sum = sum + i

Next j

Next i

Print sum

End Sub

10．当程序运行单击窗体后。则在窗体上显示的结果是 （12） 。

Private Sub form_Click()

Dim k As Integer, s As Integer

Dim i As Integer

k = 1111

s = 0

For i = 1 To Len(CStr(k))

k = k 10

s = s + k

Next i

Print s

End Sub

11．用牛顿迭代法求函数f(x)=2x3-2x2+5x-2=0在x=0附近的一个实根，已知函数的导数公式为f'(x)=6*x2-4x+5，迭代公式为x=x-f(x)/f'(x)，其计算误差为|f(x)|<10-6。请将下列程序补充完整。程序如下：

Private Sub form_Click()

Dim x As Single, y As Single

x = 0

y = fun1(x)

Do While （13）

x = x - y / fun2(x)

y = fun1(x)

Loop

Print "x="; x

End Sub

Private Function fun1(x As Single) As Single

fun1 = 2 * x * x * x - 2 * x * x + 5 * x - 2

End Function

Private Function fun2(x As Single) As Single

fun2 = （14）

End Function

12．运行下列程序，单击窗体后在图片框第四行的数据是 （15） ，最后一行的数据是 （16） 。

Private Sub form_Click()

Dim sum As Integer, sum1 As Integer

sum1 = 0

For i = 1 To 10

sum = 1

For j = 2 To i - 1

If i Mod j = 0 Then

sum = sum + j

sum1 = sum1 + sum

End If

Next j

sum

Next i

sum1

End Sub

13．有一个小于500的数，其特征是分别被2～6除的余数为1，能被7整除，问这个数是多少?将结果输出到立即窗体并写在文件中。给定的程序不完整，将程序补充完整。

Private Sub Form_Click()

Open "D:" For Output As #1

For i = 7 To 500 Step 14

j = 2

（17）

Do While j < 7

If （18） Then flg = 0: Exit Do

j = j + 1

Loop

If flg = 1 Then i: a = i

Next i

Print #1, a

Close #1

End Sub

14．程序的功能是计算下列多项式的值：

其中x = 2.0，计算精度为10-6。给定的程序不完整，将程序补充完整。

Private Sub Form_Click()

i = 2: x = 2

n = 1: s = 1

Do

n = （19）

e = x ^ (i - 1) / n

s = s + e

i = i + 1

Loop While （20）

Print s

End Sub

15．在窗体有一个标签控件Label，运行程序后在窗体单击右键，则标签 （21） ，在窗体显示的内容为 （22） 。

Option Base 1

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

Dim a, s1 As Single, s2 As Single, k As Single

a = Array(-21.54, 65.2, -87.2, -32.43, -0.21, -12.82, 93.73, 61.84, 39.53, 75.64)

f(x)1x/2!x2/3!xn1/n!

If Button = 2 Then

s1 = 0: s2 = 0

For i = 1 To UBound(a)

k = Fix(a(i))

s1 = s1 + k

s2 = s2 + a(i) - k

Next i

Print s1; s2

End If

= + s1

End Sub

16．运行下列程序：

Private Sub Form_Click()

k = 5: m = 1

p = fun1(k, m)

p = fun1(k, m)

Print p

End Sub

Private Static Function fun1(a, b) As Integer

Dim m As Integer, i As Integer

If m = 0 Then m = m + 1

i = m + 1

m = i + a + b

fun1 = m

End Function

单击窗体后，则在窗体上显示的结果是 （23） 。

17．下列程序的功能是，随机产生6×6个具有两位数的矩阵，并计算每行值之和，如图1所示。给定的程序不完整，将程序补充完整。

Option Base 1

Private Sub Command1_Click()

Dim a(6, 6) As Integer

Randomize

For i = 1 To 6

For j = 1 To 6

a(i, j) = （24）

Next j

Next i

For i = 1 To 6

Sum = 0

For j = 1 To 6

Sum = Sum + a(i, j)

（25）

Next j

"|"; Sum

Next i

End Sub

18．验证：任意给定一个自然数x，如果是偶数，则变换成x/2，如果是奇数，则变换成3x+1。

{x/2(x是偶数)

C(x)=

3x+1(x是奇数)

此后，再对得数继续进行上述变换。例如x=52，可以陆续得出26，13，40，20，10，5，16，8，4，2，1，最终得到1。再试其他的自然数也会得出相同的结果，如图2所示。给定的程序不完整，将程序补充完整。

Private Sub Command1_Click()

s = Val()

m s

Do

If （26） Then

s = s / 2

Else

s = 3 * s + 1

End If

m s

Loop （27）

End Sub

19．下面程序的功能是随机生成10个不同的两位数，从中找出所有互质数对。若两个数除了1以外没有其他公约数，这两个数就是互质数。其中函数Rec是一个递归函数。程序界面参见图3。

Option Explicit

Private Sub Command1_Click()

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

Dim n As Integer, k As Integer

Randomize

（28） = Int(90 * Rnd) + 10

= a(1)

k = 2

Do While k <= 10

n = Int(90 * Rnd) + 10

If InStr(, CStr(n)) = 0 Then

= & Str(n)

a(k) = n

（29）

End If

Loop

For i = 1 To 9

For j = i + 1 To 10

If rec(a(i), a(j), 2) Then

m Str(a(i)) & Str(a(j))

End If

Next j

Next i

End Sub

Private Function rec(n As Integer, m As Integer, k As Integer) As Boolean

If k > n Then

rec = （30）

Else

If n Mod k = 0 And m Mod k = 0 Then

rec = False

Exit Function

Else

rec = rec(n, m, k + 1)

End If

End If

End Function

二级Visual Basic全真模拟试卷五参考答案一、选择题：1．A2．B3．D4．C5．C6．B7．A8．A9．B10．B11．C

12．B13．A14．B15．A16．B17．C18．D19．D20．A21．C22．D23．D24．A25．B26．B27．C28．C29．B

30．C二、填空题：（1）分隔符条（2）4（3）05248.40（4）ADO Data（5）4（6）16（7）ACEB（8）1（9）10（10）12（11）6（12）123（13）Abs(y)>0.000001（14）6*x*x-4*x+5（15）3（16）37（17）flg=1（18）i Mod j<>1（19）n*i（20）e>0.000001（21）右移动（22）181.74（23）15（24）Int(90*Rnd)+10（25） a(i,j);（26）s Mod 2=0（27）Until s=1（28）a(1)（29）k=k+1（30）True

二级Visual Basic全真模拟试卷六

1．现在已经不再沿用“第**代计算机”的说法。人们正在研究开发的计算机系统，主要着眼于计算机的 1 ，它以知识处理为核心，具有自然的人机通信能力。当然，这是一个需要长期努力才能实现的目标。

A．运算能力 B．智能化 C．通信能力 D．网络化

2．微电子技术是以集成电路为核心的电子技术。在下列有关集成电路（IC）的叙述中，错误的是 2 。

A．目前PC机中所用的的电子元器件均为大规模和超大规模集成电路

B．集成电路的许多工序必须在恒温、恒湿、超洁净的无尘厂房内完成

C．现代集成电路使用的半导体材料大多是硅（Si）

D．Moore定律指出（预言），集成电路的集成度平均18~24个月翻一番

3．采取多路数据传输合用一条传输线，这就是多路复用技术，下面对于多路复用技术的说法中，不正确的是 3 。

A．计算机中使用的最基本的多路复用技术是时分多路复用

B．目前有线电视采用频分多路复用技术在同一电缆上传输多套节目的

C．无线电广播信号传输所采用的信道复用技术是时分多路复用技术

D．时分多路复用不仅仅局限于传输数字信号，也可以同时交叉传输模拟信号

4．根据某进制数的运算规则2×3=10，在该进制下3×5= 4 。

A．23 B．17 C．15

存中的程序及相关数据必须先传送到内存，然后才能被CPU使用。

D．21

5．外存储器也称为 5 ，其存储器容量很大，它长期存放计算机系统中几乎所有的信息。计算机执行程序时，外

A．寄存器 B．移动存储器 C．辅助存储器

6．下列关于USB接口的叙述中，错误的是 6 。

A．一般来说，1394接口的传输速度低于USB接口

B．一个USB接口通过USB集线器可以连接多个设备

C．USB符合即插即用规范，连接的设备可以带电插拔

D．一个USB接口通过扩展可以连接多个设备

件（及硬件）是计算机网络不能缺少的组成部分。

A．主机 B．通信协议

D．备份存储器

7． 7 是为了确保计算机之间能进行互连并尽可能少地发生信息交换错误而制定的一组规则或标准，实现它的软 C．服务器 D．通信子网

8．显示器的尺寸即屏幕的大小是以 8 长度来度量的，一般有15英寸，17英寸等。

A．对角线 B．垂直 C．水平 D．平均

9． 下列有关视频信息在计算机中的表示与处理的叙述中，错误的是 9 。

A．多媒体计算机中所说的视频信息特指运动图像

B．MPEG系列标准均是关于数字视频（及其伴音）压缩编码的国际标准

C．MPEG-2标准主要用于数字电视

D．DVD-Video采用MPEG-2标准对图像进行压缩

10．数据库管理系统是 10 。

A．应用软件 B．操作系统

C．系统软件 D．编译系统

11．在下列有关程序设计语言及其处理程序的叙述中，错误的是 11 。

A．用多种不同的汇编语言编写一个程序称为“交叉汇编”

B．汇编语言是一种用助记符号表示的、与机器语言接近的符号语言

C．机器语言指令是由一串―０‖和―１‖组成的二进位代码

D．编译程序应具有词法分析和语法分析功能

12． 12 是根据语言学和自然语言理解的知识，使计算机模仿人的发声，自动生成语音的过程。

A．模拟语音 B．人造语音 C．语音合成 D．MIDI语音

13．算法是问题求解规则的一种过程描述，在算法中要精确定义一系列规则，这些规则指定了相应的操作顺序，以便在有限的步骤内得到所求问题的解答。在下列有关算法及其性质的叙述中，错误的是 13 。

A．算法的设计一般采用由精到细、由抽象到具体的逐步求精的方法

B．算法必须具有确定性、有穷性和能行性等基本性质

C．算法均必须有多个输入量，至少有一个输出量（包括参量状态的变化）

D．一个算法的好坏，需要考虑执行该算法所要占用的计算机资源

14．以太网在发送数据时，必须把数据分成一个一个的 14 ，每个节点每次只能发送一个，然后必须把总线的使用权交出来，这样就可以让所有的节点公平地使用总线了。

A．包 B．带 C．帧

15．数据的存储结构是指 15 。

A．存储在外存中的数据

C．数据的逻辑结构在计算机中的表示

D．块

B．数据所占的存储空间量

D．数据在计算机中的顺序存储方式

D．附件

16．电子邮件一般有三部分组成：头部、正文和 16 。

A．地址 B．声音 C．图片

17．至目前为止，已发布多种汉字信息的编码标准。在下列叙述中，错误的是 17 。

A．无论采用那种编码标准（如GBK、UCS-4等），汉字的机内码都是采用16位二进制表示的

B．中文版Windows98/2000/XP操作系统都支持GB2312-80、GBK等多种汉字编码标准

C．GB2312-80是我国颁布的第一个汉字信息编码的国家标准

D．不同的汉字输入法，其可以输入的不同汉字个数可能有所不同

18．计算机中的数字图像按其生成方法可以分为两类：一类是从现实世界中通过扫描仪、数码相机等设备获取的，称为图像；另一类是使用计算机合成的，称为 18 。

A．图案 B．图像

范畴的是 19 。

A．决策支持系统

C．电子政务系统

C．图片 D．图形

19．信息系统是以提供信息服务为主要目的的数据密集型、人机交互的计算机应用系统。下列系统中，不属于信息系统B．实时监控系统

D．信息检索系统

20．Internet Explorer（简称IE）是目前最为流行的用于WWW信息浏览和查找的浏览器。在下列有关IE的功能和操作的叙述中，不正确的是___20__。

A．IE是浏览器软件，用户不能通过该软件启动电子邮件服务程序以收发E-mail

B．频道是用于从Internet向用户计算机传递内容的Web站点

C．收藏夹是指用于收藏用户经常需要访问的网页或地址的系统文件夹

D．刷新网页功能可以使Internet Explorer跳过缓冲区，直接从网页的原始地址下载

21．以下关于方法的叙述中，错误的是 21 。

A．事件是由Visual Basic预先设置好的、能够被对象识别的动作

B．虽然事件名称相同，但不同的对象能够识别的事件也不一样

C．单击鼠标左键即可在触发Click事件

D．响应某个事件后所执行的操作可以通过一指令来实现

22．数学式[(3.2x2+ln(1.2))x-5.1]x-sin(x)对应的VB 6.0表达式是 22 。

A．((3.2x^2+log(1.2))*x-5.1)*x - Sinx

B．((3.2 * x * x+ ln(1.2))*x-5.1)*x - Sin(x)

C．((3.2x * 2+ log(1.2))x-5.1)*x - Sin(x)

D．((3.2 * x* x + log(1.2))* x - 5.1)* x - Sin(x)

23．缺省时，CheckBox控件设置Value属性值为 23 。

A．2 B．3 C．0 D．1

24．关于数据文件，下列叙述正确的是 24 。

A．数据文件中的记录长度是固定的

B．根据数据的编码方式，数据文件可分为ASCII码文件和二进制文件

C．数据文件中就是ASCII码文件

D．在数据文件中ASCII码字符和中文字符都用一个字节存放

25．当一个工程含有多个窗体时，其中的启动窗体是 25 。

A．启动Visual Basic时建立的窗体 B．第一个添加的窗体

C．最后一个添加的窗体 D．在―工程属性‖对话框中指定的窗体

26．MaxLength属性用来设置允许在文本框中输入的最大字符数。在一般情况下，该属性的默认值为 26 。

A．32k B．0 C．64k D．256

27．运行下列程序：

Private Sub Command1_Click()

Dim s1 As String * 1

Dim s2 As String

s1 = "a"

For i = Asc(s1) To Asc(s1) + 4

s2 = s2 & Chr(i)

Next i

Print s2

End Sub

单击Command1命令按钮后，则在窗体上显示的结果是 27 。

A．a B．abcde C．aaaa D．s2

28．运行下列程序：

Private Sub Command1_Click()

Dim A(10) As Integer

For i = 1 To 5

A(i) = i

A(i + 5) = i

Next i

For i = 1 To 10

s = s + A(i)

Next i

s

End Sub

单击按钮后，则在立即窗口内显示的结果是 28 。

A．5 B．10 C．30 D．出错信息

29．运行下列程序：

Private Sub Command1_Click()

a = Val(InputBox("a = "))

Print fun1(a)

End Sub

Private Function fun1(b)

If b > 0 Then

fun1 = 10

ElseIf b = 0 Then

fun1 = 9

Else

fun1 = 8

End If

End Function

单击按钮后从键盘为变量a输入数据3，输出的结果是 29 。

A．3 B．8 C．9 D．10

30．运行下列程序：

Private Sub Form_Click()

Dim x As Integer, y As String, z As String

y = "12345"

For x = 1 To Len(y)

z = Mid(Left(y, x), 1)

Next x

Print z

End Sub

单击窗体后，则在窗体上显示的结果是 30 。

A．1 B．11111 C．55555 D．12345

二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）（每空1分，共30分）

1．CommonDialog控件提供诸如 （1） 和保存文件、设置打印选项、选择颜色和字体等操作的一组标准对话框。

2．表达式Int(12.76) + Fix(-12.76)的值为 （2） 。

3．将字符串转换为日期，则使用是 （3） 函数。

4．如果要向文件中添加数据，在打开该文件的语句Open中For后面的模式应该是 （4） 。

5．下列程序运后，当单击Command1命令按钮时，则在窗口打印的结果是 （5） 。

Option Base 1

Private Sub Command1_Click()

Dim arr(4) As Integer

n = 0

For i = 1 To 4

arr(i) = 2 * n + i

n = n + 1

Next i

Print arr(n)

End Sub

6．下列程序运后，当单击Command1命令按钮时，则在窗口打印第三行的值是 （6） 和第四行的值是 （7） 。

Private Sub Command1_Click()

Dim x As Integer, y As Integer

x = 0: y = 1

Do

x = x + y

Print x

y = y + 1

If x >= 10 Then

Exit Do

End If

Loop While y <= 10

End Sub

7．一个两位的正整数，如果将它的个位数字与十位数字对调，则产生另一个正整数，我们把后者叫做前者的对调数。请找到另一个两位的正整数，使得这两位正整数之和等于它们各自的对调数之和。例如：12+32=23+21。下列程序运行后如图1所示，给定的程序不完整，将程序补充完整。

Option Base 1

Private Sub Command1_Click()

Dim n1 As Integer, b() As Integer, k As Integer

Randomize

n1 = Int(90 * Rnd) + 10

Call sub1(b, n1)

s2 = （8）

k = 9

Do

Call （9）

s1 = b(1) * 10 + b(2)

If n1 + k = s2 + s1 Then

n1; "+"; k; "="; s1; "+"; s2

End If

（10）

Loop Until k = 100

End Sub

Public Sub sub1(d() As Integer, k As Integer)

ReDim d(2)

d(1) = k Mod 10

d(2) = k 10

End Sub

8．下列程序的功能是，将门牌号(存储在数组y内)的顺序从小到大排序，相对应的住户名(存储在数组x内)也跟随移动，最后将排序的结果在窗体上打印出来。给定的程序不完整，将程序补充完整。

Option Base 1

Private Sub Form_Click()

Dim x, y

x = Array("张良","李清","王武","高林","刘福","魏升","陈明","孙权","赵昆","金庸")

y = Array(44, 83, 13, 37, 29, 57, 24, 19, 11, 75)

For i = 1 To UBound(x) - 1

For j = （11）

If y(j) < y(i) Then

Tem = y(i)

（12）

y(j) = Tem

Tem = x(i)

（13）

x(j) = Tem

End If

Next j

Next i

Print "序号", "姓名", "门牌号"

For i = 1 To UBound(x)

Print i, x(i), y(i)

Next i

End Sub

9．执行下列程序，单击命令按钮Command1，则在窗体上第一行显示是 （14） ，第二行显示是 （15） ，第三行显示是 （16） 。

Private Sub Command1_Click()

Dim i As Integer

For i = 1 To 3

sub1 i

Next i

End Sub

Private Sub sub1(y As Integer)

Static x As Integer

Do

x = x + y

Loop While x < 16

x

End Sub

10．执行下列程序，单击命令按钮Command1，则在窗体上第三行显示是 （17） ，第四行显示是 （18） ，第五行显示是 （19） 。

Private Sub Command1_Click()

Dim s As Integer

s = 5

Do

If s Mod 2 = 0 Then

s = s / 2

Else

s = 3 * s + 1

End If

Select Case s

Case s Mod 2 = 0

k = k + 1

Print k

Case Else

k = k + 2

Print k

End Select

Loop Until s = 1

End Sub

11．下列程序是计算劳务费，其费用支出标准按职称，例如：―助工‖1.2元/小时，―工程师‖为1.5元/小时，―高工‖为2.5元/小时，其他的按―一般人员‖处理，即0.6元/小时。工作时间t从文本框Text1读取，费用s显示文本框Text2，按―退出‖键将结束运行。界面如图2所示。给定的程序不完整，将程序补充完整。

Private Sub Command1_Click()

t = Val()

If t <> 0 Then

If Option1 = True Then

（20）

ElseIf Option2 = True Then

s = t * 1.5

ElseIf Option3 = True Then

s = t * 1.2

ElseIf Option4 = True Then

s = t * 0.6

End If

（21）

Else

MsgBox ("数据有误！")

End If

End Sub

Private Sub Command2_Click()

（22）

End Sub

Private Sub Form_load()

Option1 = True

End Sub

12．运行下列程序：

Private Sub Form_Click()

a = 1: b = 1

Do

b = b + a

a = a + 1

Loop Until a > 5

a; b

End Sub

单击窗体后，则在立即窗口内显示的结果为 （23） 。

13．执行Command1_Click事件过程时，共输出 （24） 行数据，其中第三行输出结果为 （25） 。

Private Sub Command1_Click()

dunno 3

End Sub

Public Function dunno(M As Integer)

Dim value As Integer

If M = 0 Then

value = 3

Else

value = dunno(M - 1) + 5

End If

dunno = value

Print M, value

End Function

14．随机产生10个1～100之间的正整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即第1个元素与第10个元素互换，第2个元素与第9个元素互换……，第5个元素与第6个元素互换。分别输出数组原来的各元素的值和对换后各元素的值。下列程序运行后如图3所示，给定的程序不完整，将程序补充完整。

图3

Option Base 1

Private Sub Command1_Click()

Dim a(10) As Integer, i As Integer, j As Integer, tem As Integer

Randomize

For i = 1 To 10

a(i) = （26）

a(i);

Next i

j = 10

For i = 1 To 5

tem = a(i)

a(i) = a(j)

（27）

j = j - 1

Next i

For i = 1 To 10

a(i);

Next i

End Sub

15．某人决定把他的金鱼全部出售了，并分以下五次卖出：

第一次卖出全部金鱼的一半加二分之一条金鱼；

第二次卖出剩余金鱼的三分之一加三分之一条金鱼；

第三次卖出剩余金鱼的四分之一加四分之一条金鱼；

第四次卖出剩余金鱼的五分之一加五分之一条金鱼；

现在还剩下11条金鱼。当然，在出售时金鱼是不能切开或者有任何破损的。他原来共有多少条金鱼？

下列程序解决了上述问题。程序运行时，单击图片框Picture1，执行结果如图4所示。给定的程序不完整，将程序补充完整。

Private Sub Picture1_Click()

Dim n As Integer

Dim m As Single

n = 0

Do

n = n + 1

（28）

For i = 2 To 5

m = r / i + 1 / i

If m - Int(m) > 0 Then

（29）

Else

m; "="; r; "/"; i; "+ 1 /"; i

r = r - m

End If

Next i

Loop Until （30）

r

End Sub

二级Visual Basic全真模拟试卷六参考答案一、选择题：1．B2．A3．C4．A5．C6．A7．B8．A9．C10．A11．A12．C

13．C14．C15．C16．D17．A18．D19．B20．A21．D22．D23．C24．B25．D26．B27．B28．C29．D30．D二、填空题：（1）打开（2）0（3）DateValue（4）Append（5）10（6）6（7）10（8）b(1)*10+b(2)（9）sub1(b,k)（10）k=k+1（11）i To UBound(x)

（12）y(i)=y(j)（13）x(i)=x(j)（14）16 （15）18 （16）21（17）6 （18）8 （19）10（20）s=t*2.5（21）=Str(s)（22）Unload Me（23）6 16（24）四（25）2 13

（26）Int(100*Rnd)+1（27）a(j)=tem（28）r=n（29）Exit For（30）i=6

二级Visual Basic全真模拟试卷七

1．现代信息技术的主要特征是以数字技术为基础，以 1 为核心，采用电子技术进行信息的收集、传递、加工、存储、显示与控制，它包括通信、广播、计算机、微电子、遥感遥测、自动控制、机器人等诸多领域。

A．微电子 B．自动控制 C．计算机 D．机器人

2．现代集成电路使用的半导体材料通常是 2 。

A．硅 B．碳 C．铜 D．铝

3．为提供线路的利用率，数据通信中常用多路复用和交换技术，下面说法中错误的是 __3 。

A．多路复用技术主要有时分多路复用和频分多路复用

B．电路交换时节点之间有一条专用物理线路，通信完毕后，通信链路即被拆除

C．分组交换线路利用率较高, 适宜用于实时或交互通信方式的应用

D．目前有线电视采用频分多路复用技术在同一电缆上传输多套电视节目

4．十进制数1989对应的二进制数是 4 。

A．

C．

B．

D．

5．当一个PC机要扩充内存时，装上内存条后却不能正常工作，产生这种现象的原因多半是 5 。

A．所扩内存条与主板不匹配 B．操作系统不支持所扩的内存条

C．CPU可支持的存储空间已不能再扩大 D．不是同一公司生产的内存条

6．关于I/O接口的叙述中，正确的是 12 。

A．I/O接口即I/O控制器，它用来控制I/O设备的操作

B．I/O接口在物理上是一些插口，它用来连接I/O设备与主机

C．I/O接口即扩充卡（适配卡），它用来连接I/O设备与主机

D．I/O接口即I/O总线，它用来传输I/O设备的数据

7．使用一个像素为320万的数码相机时，它所拍摄的数字图像能达到的最大分辨率是 7 。

A．1280×960 B．1920×1440

C．2048×1536 D．2560×1920

8． 8 是借助液晶对光线进行调制而显示图像的一种显示器。

A．CRT B．LCD C．CCD D．CMOS

9．下面对于光盘的几种说法中不正确的是 9 。

A．CD光盘驱动器的性能指标之一是数据传输速率，目前驱动器的速率多为40倍速、48倍速，甚至更高

B．DVD的英文全名是Digital Versatile Disk，即数字多用途光盘

C．CD-R是一种只能读出，不能写入的光盘

D．DVD光盘的容量一般为数千兆字节

10．如果你想撰写论文，你应该使用 10 软件。

A．Media Player B．Powerpoint

C．SPSS D．Word

11．为了克服传统数据库系统数据模型（层次型、网状型和关系型）的不足，人们提出一种理想的可扩充的通用数据模型是 11 。

A．扩充的概念模型 B．面向对象数据模型

C．动态数据模型 D．空间数据模型

12．下面关于操作系统的说法中，错误的是 12 。

A．Windows NT/ME /2000/XP均能识别NTFS文件系统

B．Windows系列是美国微软公司开发的图形界面的多任务操作系统，WinNT系统是网络操作系统

C．UNIX操作系统是一种通用多用户交互式分时操作系统

D．Linux系统的源代码向世人公开

13．在高级程序语言中，求解计算问题的程序框架都可用 13 这三种基本控制结构成分来描述。

A．顺序、选择和重复 B．顺序、选择和复合

C．顺序、重复和复合 D．以上三种结构均正确

14．在互联网上的每台计算机都有一个IP地址，由4个十进制数组成，它不方便于人们记忆和使用。更合适的方法是使用具有特定含义的符号来表示英特网中的每一台主机。如是南京财经大学的WWW服务器的主机名（IP地址是210.28.80.1）。把域名（主机名）翻译为IP地址的软件是 14 。

A． TCP/IP B． WWW C．DNS

D．ADSL

15．计算机网络有两种基本的工作模式：对等模式和 15 模式。

A．不对等 B．QQ C．C/S D．传奇

16．电子邮件的特点之一是 16 。

A．在通信双方的计算机都开机工作的情况下方可快速传递数字信息

B．比邮政信函、电报、电话、传真都更快

C．只要在通信双方的计算机之间建立起直接的通信线路后，便可快速传递数字信息

D．采用存储—转发方式在网络上逐步传递信息，不像电话那样直接，但费用较低

17．下列有关Unicode汉字编码标准（字符集）中，叙述不正确的是 17 。

A．Unicode 3.0编码的长度为16位

B．Unicode收录了一万多个汉字及符号

C．Windows支持Unicode编码

D．Unicode中包含拉丁字母和音节符号

18．计算机中的数字图像按其生成方法可以分为两类：一类是从现实世界中通过扫描仪、数码相机等设备获取的，称为

18 ；另一类是使用计算机合成的，称为图形。

A．图形 B．图案 C．图片 D．图像

19．对于信息系统的说法中，不正确的是 19 。

A．GIS就是地理信息系统

B．制造资源计划系统记为MRP

C．ERP是企业资源计划的简称

D．电子商务（简称：EC）是指对整个贸易活动实现电子化

20．在Microsfot PowerPoint 97/2000/2003中，在幻灯片的“动作设置”对话框中设置的超级链接对象不允许是 20 。

A．下一张幻灯片 B．一个应用程序

C．幻灯片中的某一对象 D．其他演示文稿

21．下面有关文件管理控件的说法，错误的是 21 。

A．改变驱动器列表框的ListIndex属性值，会改变Drive属性值并触发Change事件

B．Drive属性只能用程序代码设置，不能通过属性窗口设置

C．在程序执行期间，驱动器列表框下拉显示系统所拥有的驱动器名称

D．ChDir语句改变缺省目录位置的同时，改变缺省驱动器位置

22．―工程资源管理器‖窗口又称为―工程浏览器‖窗口，在窗口中会列出当前工程的所有 22 。

A．变量和常数 B．变量和数组 C．窗体和模块 D．过程和事件

23．窗体上仅有一个文本框Text1，当执行程序后按下键盘―a‖键时打印出的结果是 23 。

Private Sub Text1_KeyDown(KeyCode As Integer, ShIft As Integer)

key1 = KeyCode > 0

Print key1

End Sub

A．True B．False C．65 D．0

24．关于Close语句的叙述正确的是 24 。

A．执行Close语句后，所有打开的文件也会自动关闭。

B．打开文件后，必须要用Close语句关闭文件，否则当程序结束时，产生一个错误

C．执行Close语句后，程序将关闭所有窗口

D．执行Close语句后，每次只能关闭一个文件，否则要用Reset语句

25．下列操作中不能向工程中添加窗体的是 25 。

A．执行―工程‖菜单中的―添加窗体‖命令

B．单击工具栏上的―添加窗体‖按钮

C．右击窗体，在弹出的菜单中选择―添加窗体‖命令

D．右击工程资源管理器，在弹出的菜单中选择―添加‖命令，然后在下一级菜单中选择―添加窗体‖命令。

26．运行下列程序：

Private Sub form_Click()

For i = 1 To 2

x = 1

For j = 1 To 3

x = 5

For k = 1 To 4

x = x + 2