江苏省二级vb模拟试卷笔试9-16

江苏省高等学校非计算机专业学生 计算机基础及应用能力等级考试试卷

二级Visual Basic全真模拟试卷九

（本试卷包括计算机基础知识部分和程序设计部分，考试时间共120分钟）

说明：

1．本试卷满分为60分，分选择题和填空题，试卷不分A、B类型。

2．选择题用答题卡答题。每一项有A、B、C、D四个可供选择的答案，请选择其中一个你认为正确的答案，用HB铅笔涂写在答题卡的相应答题号内。每选对一项得1分，不选或选错不得分。

3．填空题用答题纸答题。请将答案填写在答题纸的相应答题号内，每个答案只占一行,不得换行。每填对一个答案得1分，不填或填错不得分。

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

第一部分 计算机基础知识

1．在表示存储器的存储容量时，1MB的准确含义是 1 。

A．10243字节 B．10242字节 C．1024字节 节

2．计算机主板上有一块特别有用集成电路芯片 2 ，其中存放的是用户对计算机

硬件所设置的一些参数，包括当前日期和时间，已安装的软驱和硬盘的个数及类型等。

A．EPROM B．BIOS C．CMOS D．CPU 3．数据终端建立通信链路，通信结束后再拆除链路。目前在Internet网络中使用的交换技术主要是 3 。

A．电路交换 B．报文交换 C．信元交换 D．分组交换 4．现在常用的单面单层DVD的存储容量是 4 。

A．650MB B．9.4GB C．8.5GB D．4.7GB 5．下面关于I/O操作的叙述中，错误的是 5 。

A．同一时刻只能有一个I/O设备进行工作 B．I/O设备的操作是由CPU启动的

C．I/O设备的操作是由I/O控制器负责完成的 D．I/O设备的工作速度比CPU慢

6． 6 是一种新的I/O接口，主要用于连接需要高速传输大量数据的音频和视频设备，其数据传输速度特别快，可高达400MB/s。

A．USB B．并行 C．SCSI D．IEEE1394 7．下列各项中，非法的IP地址是 7 。

A．126.96.2.6 B．203.256.1.68 C．203.113.7.15 D．190.226.38.8 8．一幅具有真彩色（24位）、分辨率为1024×768的数字图像，在没有进行数据压缩时，它的数据量大约是 8 。

D．10244字

A．900KB B．18MB C．2.25MB D．3.75MB 9．目前广泛使用的移动存储器 9 。

A．只有“优盘” B．只有“移动硬盘” C．“优盘”和移动硬盘 D．“优盘”、移动硬盘和手机

10．下列操作系统都具有网络通信功能，但其中不能作为网络服务器操作系统的是___10_____。

A．Windows 98 B．Windows NT Server C．Windows 2000 Server D．Unix 11．操作系统采用虚拟存储器技术的原因是是___11_____。

A．解决CPU与主机速度不匹配的问题 B．内存不够时，扩充内存 C．资源调度的策略

D．解决外设与主机速度不匹配的问题

12．计算机局域网的硬件包括网络工作站、网络服务器、网络打印机、网络接口卡、___12____、网络互连设备等。

A．传输介质 B．通讯协议 C．路由器 D．网关 13．算法设计一般采用的是 13 方法。

A．由粗到细、由抽象到具体 B．由细到粗、由抽象到具体 C．由粗到细、由具体到抽象 D．由细到粗、由具体到抽象

14．计算机中用于描述音乐乐曲并由声卡合成出音乐来的语言（规范）为 14 。

A．MP3 B．MIDI C．JPEG D．XML 15． 15 网指较小地域范围内的计算机网络，一般是一栋建筑物内或一个单位几栋建筑物内的计算机互连成网。

A．WAN B．LAN C．公司网 D．小型网 16．下列有关电子邮件叙述中，正确的是 16 。

A．电子邮件只能传输文本 B．电子邮件只能传输文本和图片 C．电子邮件能传输文本、图片、程序等 D．电子邮件不能传输图片 17．对于计算机编码的说法中，错误的是 17 。

A．大写英文字母的ASCII码值大于小写英文字母的ASCII码值 B．GB2312-80汉字的内码一定无重码

C．UCS-2编码包含了世界各地的各种字符和数字 D．GBK编码包含繁体字和生僻的字

18．在多媒体制作过程中，不同媒体类型的数据收集需要不同的设备和技术手段，动画一般通过 18 获得。

A．字处理软件 B．声卡剪辑 C．专用软件制作 D．视频卡采集 19．下面对于信息系统的说法错误的是 19 。

A．信息系统的发展趋势是多媒体化、系统集成化、功能智能化、结构分步化 B．信息系统的开发方法有很多，如结构化生命周期方法、原型法等 C．CAD属于知识层业务处理系统

D．MRP和ERP都是面向电子商务的信息系统

20．下面对Microsfot Excel（97及以后版本）的说法中，错误的是 20 。

A． Excel工作表中行和列的数目是没有限制的

B．当打开一个Excel工作簿时，所有工作表都被打开 C．Excel工作表可以保存为网页文件

D．Excel的单元格中可以是文字、数字或公式等

第二部分 Visual Basic程序设计

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

21．下列的四项叙述中错误的是 21 。

A．Close语句可以包含多个文件号参数，“文件号”之间用“，”分隔 B．在Print#语句中，用逗号“，”，输出的数据按标准格式写到文件中 C．一个Dim语句定义多个数组时，逗号“，”可作为数组间的分隔符

D．在Print#语句中，各输出项之间可以用分号“；”分隔开，打印格式为应标准格式

22．下面所列的控件中，其值既能在程序设计时设定，又能在程序运行时通过赋值改变的是 22 。

A. List1.ListCount B. FileListBox.List C. Form1. BorderStyle D. Label1.Visible 23．能将焦点移至指定的控件或窗体的方法是 23 。

A．Show B．LostFocus C．setFocus D．Load 24．将图形载入到窗体的Picture属性、PictureBox控件或Image控件的函数是 24 。

A．Pictureload B．LoadPicture C．Loadlmage D．Imageload 25．运行下列程序：

Private Sub Text1_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub

在文本框中键入x不按回车键后，窗体上打印的输出结果是 25 。

A．X B．keyAscii C．120 D．x 26．运行下列程序：

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ x As Single, y As Single) If Button = 2 Then Print \有志者\ End If End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _ x As Single, y As Single) Print \事竟成\End Sub

在窗体单击左键，则输出结果是 26 。

A．有志者 B．事竟成 C．有志者事竟成 D．\有志者\事竟成\27．运行下列程序：

Dim x As Integer

Private Sub Form_Click() c = 2

If x > 2 Then x = x + 1 Else

x = x + 2 End If

y = Fun1(c) Debug.Print x, y End Sub

Public Function Fun1(ByVal y) Fun1 = y * x End Function

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

A．1 0 B．2 4 C．5 10 28．运行下列程序：

Private Sub form_Click() a = 1: Sum = 0 Do

For i = 1 To a

Sum = Sum + 1 Next i a = a + 1

If a = 7 Then Exit Do Loop Print Sum End Sub

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

A．0 B．1 C．7 29．运行下列程序：

Private Sub Form_Click()

Dim a As Integer, i As Integer For i = 1 To 20 Call fun1(a) Next i Print a End Sub

Private Sub fun1(ByVal x) x = x + 2 End Sub

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

A．0 B．1 C．20 30．运行下列程序：

Option Base 1

Private Sub Form_Click()

Open \ a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) i = 1

Do While i < UBound(a) Write #10, a(i), i i = i + 1 Loop Close 10 End Sub

在文件data.txt中写入的记录共有 30 个。

A．1个 B．9 C．10

D．4 8

D．21

D．22

D．3

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

共30分）

1．要显示弹出式菜单，必须调用的方法是 （1） 。

2．FreeFile函数的作用返回一个Open语句使用的、整型数据的 （2） 。 3．语句Dim arr(-1 to 6，1 to 3) As Integer定义的数组元素有 （3） 个。

4．用来设置对象的宽度的属性是 （4） 。 5．VB6.0变量名x&的类型是 （5） 。

6．下列程序运行时，单击Command1命令按钮，在窗体上打印的结果是 （6） 。

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer a = 2: b = 1: c = 10 a = b = c Print a End Sub

7．下列程序运行时，单击Command1命令按钮，在窗体上打印的结果是 （7） 。

Function fun1(ByVal x As Long) Dim k As Long k = 0

x = Abs(x) Do While x

k = k + (x Mod 10) x = x \\ 10 Loop fun1 = k End Function

Private Sub Command1_Click() Print fun1(88) End Sub

8．下列程序运行时，单击Command1命令按钮，输入字符“A”后，在窗体上打印的结果是 （8） 。

Private Sub Command1_Click() Dim a As String

a = InputBox(\请输入字符A\ Select Case Asc(a) Case 1 To 30 Print \ Case 31 To 60 Print \ Case 61 To 90 Print \ Case Else Print \ End Select End Sub

9．下列程序运后，当2次单击窗体时，在窗体上打印的结果是 （9） ，在文本框Text1内的结果是 （10） 。

Private Sub form_Click() Static a As Integer Static b As Integer

Dim s As Long, x As Integer Cls s = 0 b = 1

For x = 1 To 10 Step 2 b = b + i a = b + a s = s + x Next x

Print a

Text1.Text = s End Sub

10．运行下列程序：

Private Sub Form_Click() x = Array(1, 2, 3, 4, 5) For i = 1 To 6

x(i Mod 5) = x((i + 1) Mod 5) Next i

For i = 0 To UBound(x) Print x(i); Next i End Sub

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

11．所谓“完数”为一个正整数的所有因子之和等于其本身。根据欧几里德完数定理：若n+1

2－1是一个素数，那么2n(2n+1－1)必是一个完数。本程序采用该定理求[1，500]范围的完数。给定的程序不完整，将程序补充完整。

Option Base 1

Private Sub Form_Click() Dim n As Integer

Dim a As Long, x As Long （12）

Do While a < 500 x = 2 ^ (n + 1) - 1 a = 2 ^ n * x

If （13） Then Print a n = n + 1 Loop End Sub

Private Function fun1(m As Long) As Boolean Dim i As Integer i = 2

fun1 = True

Do While i <= Sqr(m) If m Mod i <> 0 Then i = i + 1 Else

（14） Exit Do End If Loop End Function

12．下列程序的功能是：求正整数n的平方是一个降序数，找出10～32之间所有这样的n，并输出n和n的平方数。所谓降序数是指低位数字小于高位数字的数。例如64、441均是降序数，625不是降序数，程序执行后如图1所示。给定的程序不完整，将程序补充完整。

图1

Private Sub Form_Click()

Dim n As Integer, m As Long, k As Integer For n = 10 To 32 m = n * n （15） a = m Mod 10 Do While m <> 0 m = m \\ 10 b = m Mod 10

If b < a And m <> 0 Then flg = 0: （16） a = b Loop

If （17） Then

s = Str(n) + Str(n * n) List1.AddItem s End If Next n End Sub

13．窗体上有一个名为List1的列表框。

Option Base 1

Private Sub Form_Click()

x = Array(11, 33, 55, 22, 44, 66) For i = 1 To UBound(x)

List1.AddItem x(x(i) \\ 10) Next i End Sub

运行程序后，若单击窗体，在列表框中的第四行的数据是 （18） 。

14．程序是把10个随机产生的[1，10]范围的数首尾相连，分别将相邻的4个数相加的最大值输出到立即窗口上。给定的程序不完整，将程序补充完整。

Private Sub Command1_Click() Dim x() As Integer n = 10

ReDim x(n) Randomize

For i = 0 To UBound(x) - 1 x(i) = （19） Debug.Print x(i); Next i

Debug.Print Max = 0

For i = 0 To UBound(x) - 1

（20）

For j = （21）

Sum = Sum + x((i + j) Mod n) Next j

If Max < Sum Then Max = Sum k = i End If Next i

Debug.Print \End Sub

15．给定VB6.0程序的功能是：由泰勒级数可知：ex＝1＋x＋x2/2!＋x3/3!＋……＋xn/n!＋……。现将计算精度为10-6的ex的值。给定的程序不完整，将程序补充完整。

图2

Private Sub Command1_Click() x = Val(Text1.Text) e = 1: m = 1 n = 1: i = 1 Do

（22） m = m * x d = m / n e = e + d i = i + 1

Loop While （23） Text2.Text = Str(e) End Sub

Private Sub Command2_Click() Unload Me End Sub 16．下列程序的功能是：由系统随机产生10个1～100范围正整数，先写入图片框Picture1，单击窗体后，数字排序后写入图片框Picture2。程序运行后的结果如图3所示，给定的程序不完整，将程序补充完整。

图3

Option Explicit

Option Base 1

Private Sub Form_Click()

Dim Sort(10) As Integer, Temp As Integer Dim i As Integer, j As Integer Randomize For i = 1 To 10

Sort(i) = （24） Picture1.Print Sort(i); Next i

For i = 1 To （25） For j = i + 1 To 10

If Sort(i) > Sort(j) Then Temp = Sort(i) Sort(i) = Sort(j) Sort(j) = Temp End If Next j Next i

For i = 1 To 10 （26） Next i End Sub 17．执行下面的程序，单击按钮Command1，a（1，1）的值是 （27） ，a（1，3）的值是 （28） ，a（3，1）的值是 （29） ，a（3，4）的值是 （30） 。

Option Base 1

Private Sub Command1_Click()

Dim a() As Integer, i As Integer, j As Integer Dim k As Integer, n As Integer n = 4 ReDim a(n, n) i = 1 j = n a(i, j) = 1

For k = 1 To n * n - 1 If i + 1 > n Then i = n - j + 2 j = 1

ElseIf i + 1 <= n And j + 1 > n Then j = j - i i = 1 Else

i = i + 1 j = j + 1 End If

a(i, j) = k Next k For i = 1 To n For j = 1 To n Print a(i, j); Next j Print Next i End Sub

江苏省高等学校非计算机专业学生 计算机基础及应用能力等级考试试卷

二级Visual Basic全真模拟试卷十

（本试卷包括计算机基础知识部分和程序设计部分，考试时间共120分钟）

说明：

1．本试卷满分为60分，分选择题和填空题，试卷不分A、B类型。

2．选择题用答题卡答题。每一项有A、B、C、D四个可供选择的答案，请选择其中一个你认为正确的答案，用HB铅笔涂写在答题卡的相应答题号内。每选对一项得1分，不选或选错不得分。

3．填空题用答题纸答题。请将答案填写在答题纸的相应答题号内，每个答案只占一行,不得换行。每填对一个答案得1分，不填或填错不得分。

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

第一部分 计算机基础知识

1．计算机的应用领域可大致分为三个方面，下列答案中正确的是 。

A．计算机辅助教学、专家系统、人工智能 B．工程计算、数据结构、文字处理 C．实时控制、科学计算、数据处理 D．数值处理、人工智能、操作系统 2．下列叙述中，正确的是 2 。

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

B．按集成电路的功能来分，可分为通用集成电路与专用集成电路 C．现代微电子技术已经用砷化镓取代了硅 D．集成电路是20世纪60年代出现的

3．多路复用技术和交换技术的发展极大地提高了通信线路的利用率。在下列的一些叙述中，正确的是 3 。

A．数字传输技术采用的多路复用技术是频分多路复用技术

本文来源：https://www.bwwdw.com/article/dlft.html