江苏省计算机二级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 C．7DH D．177Q

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

A．总线B．控制线C．数据线D．地址线6．6接口是一种新的I/O接口，它是一种可以连接多个设备的总线式串行接口，2.0版的数据传输速率可高达

480Mb/s（60MB/s），最多可以连接127个设备。

A．USB B．IEEE1394 C．SCSI D．并行7．下列不属于无线局域网设备的是7。

A．无线网卡B．蓝牙C．无线HUB D．无线网桥8．FA T16、FAT32、NTFS是三种不同的文件系统，Windows 2000/XP操作系统支持___8___。

A．FA T32 和FAT16文件系统B．NTFS文件系统

C．FAT32和NTFS文件系统D．FA T16、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 D．LINUX

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

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

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

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

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

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# B．Datetime=#September l,2003#

C．Datetime=#10:21:00AM# D．Datetime="5/6/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

Debug.Print sum

End Sub

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

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

28．运行下列程序：

Private Sub Command1_Click()

Dim x As Integer, n As Integer

n = 0

Do

n = n + 2

x = x + n

Loop While n < 10

Debug.Print 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

Debug.Print 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 = Text1.Text s2 = Text2.Text For i = （10）

s3 = s3 + Mid(s1, i, 1) + Mid(s2, i, 1) Next i pic1.Print 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。程序功能是解一个一元二次方程(02=++c bx ax )。程序运行后如图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)

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

ElseIf col = 0 Then

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

Else

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

Pic1.Print "方程有两个虚根"; st; "+i"; x1, st; "-i"; x1, End If

Else

If （14）Then

root1 = -b / c

Pic1.Print "方程仅有一个根"; root1

Else

Pic1.Print "方程无意义"

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))

Debug.Print x1; y1; z1

End Sub

17．编写一过程把C盘中的Config.sys文件内容读出，并在文本框中显示出来。在窗体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:\Config.sys" For Input As fn

Do While Not EOF(（29）)

Line Input #fn, ch1

Str = Str + ch1 + vbCrLf

Loop

Text1.Text = （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．11111101001 B．11111000101

C．11111100101D．11000111101

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

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

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

A．ISA B．EISA C．PCI D．AGP 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．空间复杂度D．时间复杂度

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

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

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

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

16．已知接入Internet网的计算机用户为jkf，而连接的服务商主机名为https://www.360docs.net/doc/c55977118.html,，则他相应的E-mail地址为16。

A．https://www.360docs.net/doc/c55977118.html,@jkf B．jkf@https://www.360docs.net/doc/c55977118.html,

C．@https://www.360docs.net/doc/c55977118.html, D．jkf.seu@https://www.360docs.net/doc/c55977118.html,

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．①②③B．①③⑤C．②④⑤D．③④⑤

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

A．Log(x) B．Lg(x) C．Exp(x) D．Ln(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 B．Cbyte C．Cdbl D．Cstr

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

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

x=1 '表示回车，下同

y=2

Print x > y

则输出结果是27。

A．-1 B．1 C．False D．True 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 D．11 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 D．44 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

End Sub

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

A．316 B．4 4 C．3 4 D．410

二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）（每空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

Text1.Text = 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

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(Text1.Text)

y = Val(Text2.Text)

Text3.Text = 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

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

2222

22

222π……

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

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

Text1.Text = Text1.Text + Str(sum1)

（23）

End If

Next i

Print

Text2.Text = Sum

End Sub

15．窗体上有一个命令按钮，数据文件data.txt的内容如下："宿舍""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:\data.txt" For Input As #f1

Do While Not EOF(f1)

Input #f1, xs.aa, xs.bb, https://www.360docs.net/doc/c55977118.html,

List1.AddItem xs.bb

List1.AddItem xs.aa

List1.AddItem https://www.360docs.net/doc/c55977118.html,

Loop

Print EOF（f1）

Close

End Sub

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

16．编写一过程把C盘中的Config.sys文件内容读出，并在文本框中显示出来。在窗体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:\Config.sys" For Input As fn

Do While Not EOF(（29）)

Line Input #fn, ch1

Str = Str + ch1 + vbCrLf

Loop

Text1.Text = （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 50B．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答题号内）

21．代数式

)

ln(

1

a

d

c

b

a

+

+

+

对应的Visual Basic6.0表达式是21。

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

C．sqr((1+(s+t)/(x+y))/ln(s)) 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 Frame1.Left >= Form1.Width Then Frame1.Left = 0

Frame1.Move Frame1.Left + 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盘的根目录存在数据文件data.txt，数据文件的内容是abc 10 20 30

efg 40 50 60

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

Private Sub Form_Click()

Open "d:\data.txt" For Input As #10

Do Until EOF(10)

Line Input #10, lines

Text1.Text = Text1.Text + 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