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。请完善下列程序。
图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．D18D19B20C 21．A22．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（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全真模拟试卷三
（本试卷包括计算机基础知识部分和程序设计部分，考试时间共120分钟）
说明：
1．本试卷满分为60分，分选择题和填空题，试卷不分A、B类型。
2．选择题用答题卡答题。每一项有A、B、C、D四个可供选择的答案，请选择其中一个你认为正确的答案，用HB铅笔涂写在答题卡的相应答题号内。每选对一项得1分，不选或选错不得分。
3．填空题用答题纸答题。请将答案填写在答题纸的相应答题号内，每个答案只占一行,不得换行。每填对一个答案得1分，不填或填错不得分。
4．请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是否填写正确。
第一部分 计算机基础知识
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．11111100101 D．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，而连接的服务商主机名为seu.edu.cn，则他相应的E-mail地址为 16 。
A．seu.edu.cn@jkf B．jkf@seu.edu.cn C．@jkfseu.edu.cn D．jkf.seu@edu.cn
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中输入公式后，该表达式的计算结果就被存储在单元格中
第二部分 Visual Basic程序设计
一、选择题（用答题卡答题，答案依次填在21～30答题号内）
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)