1、二级 Visual Basic 模拟试卷 1（本试卷包括计算机基础知识部分和程序设计部分，考试时间共 120 分钟）说明：1本试卷满分为 60 分，分选择题和填空题，试卷不分 A、B类型。2选择题用答题卡答题。每一项有 A、B、C、D 四个可供选择的答案，请选择其中一个你认为正确的答案，用 HB 铅笔涂写在答题卡的相应答题号内。每选对一项得 1 分，不选或选错不得分。3填空题用答题纸答题。请将答案填写在答题纸的相应答题号内，每个答案只占一行,不得换行。每填对一个答案得 1 分，不填或填错不得分。4请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是否填写正确。 第一部分 计算机基础
2、知识1信息处理系统是综合使用信息技术的系统。下面有关信息处理系统的叙述中错误的是_1_。A信息处理系统从自动化程度来看，有人工的、半自动化的和全自动化的B应用领域很广泛。例如银行是一种以感知与识别为主要目的的系统C信息处理系统是用于辅助人们进行信息获取、传递、存储、加工处理及控制的一种系统D从技术手段上来看，有机械的、电子的和光学的;从通用性来看，有专片和通用的2下 面 关 于 集 成 电 路 的 叙 述 中 ， 错 误 的 是 2 A 。A集成电路是 20 世纪 50 年代出现的B现代集成电路使用的半导体材料通常是硅或砷化镓C集成电路的许多制造工序必须在恒温、恒湿、超洁净的无尘厂房内完成D集
3、成电路按用途可分为通用和专用两大类。微处理器和存储器芯片都属于专用集成电路3在通信系统的性能指标中，D 3 是指数据传输中出错数据占被传输数据总数的比例。A信道带宽 B误码率 C数据率D端- 端延迟4以下数据最大的是 A4 。A01110110B B120D C7DHD177Q5从逻辑功能上来讲，计算机硬件主要包括中央处理器（CPU） 、内存储器、外存储器、输入设备和输出设备等，它们通过 5A 互相连接。A总线 B控制线 C数据线D地址线6 A6 接口是一种新的 I/O 接口，它是一种可以连接多个设备的总线式串行接口，2.0 版的数据传输速率可高达480Mb/s（ 60MB/s） ，最多可以连
4、接 127 个设备。AUSB BIEEE1394 CSCSID并行7下列不属于无线局域网设备的是 A 7 。A无线网卡 B蓝牙 C无线 HUBD无线网桥8 FAT16、FAT32、NTFS 是三种不同的文件系统，Windows 2000/XP 操作系统支持_C 8_。A FAT32 和 FAT16 文件系统 B NTFS文件系统C FAT32 和 NTFS 文件系统D FAT16、FAT32 和 NTFS 文件系统9 下列关于 CD-ROM 存储器描述中，错误的是 C 9 。ACD 盘上凹坑内表示 0，凹坑外表示 1B CD 盘上记录数据的是一条由里向外连续的螺旋道C CD-ROM 需要记录的
5、信息实现要制作到光盘上，用户不能抹除，也不能再写入DCD-ROM 成本低，可靠性好，非常耐用，即使盘面有指纹或灰尘存在，数据仍能读出10 10 属于文字处理软件。AAPageMarker 和 Word B Word 和 3D MAXC Photoshop 和 WPS DPaintbrush 和 Flash11 下 列属于自由软件的操作系统是 1C1 。AUNIX BOS/2 CWINDOWSDLINUX 12下列关于操作系统任务管理的说法，错误的是 1C2 。AWindows 操作系统支持多任务处理B分时是指将 CPU 时间划分成时间片，轮流为多个程序服务C分时处理要求计算机必须配有多个 CP
6、U D并行处理可以让多个处理器同时工作，提高计算机系统的效率13分析某个算法的优劣时，从需要占用的计算机资源角度，应考虑的两个方面是 B 13 。A正确性和简明性 B空间代价和时间代价C可读性和开放性 D数据复杂性和程序复杂性14下列关于病毒的描述中，正确的是 D 14 。A计算机病毒也称为木马B邮件病毒很厉害，只要收到带病毒的邮件，不管看不看，计算机都会染上病毒C如果一台计算机染上了病毒，它旁边的计算机很有可能被传染，因此两台计算机之间要有一定的距离D计算机病毒是一些人蓄意编制的一种寄生性的计算机程序15不 能 作 为 广 域 网 的 数 据 传 输 介 质 的 是 15 C。A电话线 B微
7、波 C双绞线D光缆16下面对于 WWW 和 Email 的说法中，错误的是 16C 。A网页是一种采用 HTML 超文本标记语言描述的超文本文档, HTML 文档包括头部和正文两大部分B电子邮件一般由三个部分组成：邮件的头部、邮件的正文、邮件的附件C现在的电子邮件正文中只能发送普通文本，图片等多媒体信息只能在附件中才能发送DWeb 是按客户 /服务器模式工作的17下面关于汉字编码标准的叙述中，正确的是 17 C 。A同一个汉字的不同造型（如宋体、楷体等）在计算机中的内码不同B Unicode 是我国最新发布的也是收字最多的汉字编码国家标准C GB18030 与 GB2312 和 GBK 汉字编
8、码标准不兼容D在 GB18030 汉字编码国家标准中，共有 2 万多个汉字18适用于交互式多媒体应用，包括虚拟现实、远程教学、交互式电视等的视频压缩标准是 18 B 。AMPEG-1 BMPEG-4 CMPEG-3DMPEG-2 19下列信息系统中 BD 属于三次信息的处理系统。A管理层业务处理系统 B信息分析系统C专家系统 D信息检索系统20关于 Excel 97/2000/2003 的数据筛选，下列说法中正确的是 20 C 。A筛选后的表格中只含有符合筛选条件的行，其它行被删除B筛选条件只能是一个固定的值C筛选后的表格中只含有符合筛选条件的行，其它行被暂时隐藏D筛选条件不能由用户自定义，只
9、能由系统确定第二部分 Visual Basic 程序设计一、选择题（用答题卡答题，答案依次填在 2130 答题号内）21创建应用程序的界面时，在窗体上设置了一个文本框，运行程序后，文本框没有出现在窗体上，可能的原因是 C 。A该文本框的 Value 属性被设置为 FalseB该文本框的 Enabled 属性被设置为 FalseC该文本框的 Visible 属性被设置为 FalseD该文本框的 Default 属性被设置为 True22下列不是 Visual Basic 事件名称的是 22 D 。AChange BClick CScrollDChDir23由系统提供的，可在任何一个 VB 程序中
10、随时使用的程序段的函数是 23B 。A内部函数 B公共函数 C逻辑函数D关系函数24SQL 缩写所表示的意思是 24 B。A开放式容器 B结构查询语言C数据库联接 D数据库编程25Write# 语句与 Print#语句功能基本相同，它们之间的主要差别之一正确的是25 。AWrite# 语句写数值型的，而 Print#语句写非数值型的B 如果是字符串数据，Write#语句写数据后在其两边加双引号，而 Print#语句没有C Write#语句按紧凑格式写文件，而 Print#语句按标准格式写文件DWrite# 语句按标准格式写文件，而 Print#语句按紧凑格式写文件26Datetime 是 Da
11、ta 类型的变量，以下赋值语句中错误的是 26 。ADatetime=#5/8/03# B Datetime=#September l,2003#C Datetime=#10:21:00AM# DDatetime=“5/6/03“27运行下列程序：Private Sub Form_Click()Dim sum As IntegerDim i As Integersum = 0For i = 12.4 To 3.1 Step -3.8sum = sum + iNext iDebug.Print sumEnd Sub单击窗体后，则在立即窗口上输出结果是 27 。A15 B-0.7 C24 D028
12、运行下列程序：Private Sub Command1_Click()Dim x As Integer, n As Integern = 0Don = n + 2x = x + nLoop While n 0 Thencol = （12） st = -b / (2 * a)If （13） Thenx1 = st + Sqr(col) / (2 * a)x2 = st - Sqr(col) / (2 * a)Pic1.Print “方程有两个实根“; x1, x2ElseIf col = 0 ThenPic1.Print “方程有两个相等实根“; stElsex1 = Sqr(-col) / (
13、2 * a)Pic1.Print “方程有两个虚根 “; st; “+i“; x1, st; “-i“; x1,End IfElseIf （14） Thenroot1 = -b / cPic1.Print “方程仅有一个根“; root1ElsePic1.Print “方程无意义“End IfEnd IfEnd SubPrivate Sub Command2_Click()Text1(0).Text = “Text1(1).Text = “Text1(2).Text = “Pic1. （15） End Sub12下列程序运行后如图 5 所示。给定的程序不完整，将程序补充完整。图 5Privat
14、e Sub form_Click()k = 7For i = 5 To 1 Step -2Print Tab(k); （16） k = k + 1Next iEnd Sub13运行下列程序：Private Sub Command1_Click()Dim s As Integer, i As Integers = 0For i = 5.8 To 0.3 Step -1.3s = s + 1Next iPrint sEnd Sub单击 Command1 命令按钮后，则在窗体上显示的结果是 （17） 。14下列程序中有一个按钮 Command1，一个文本框text1，其属性 MultiLineTru
15、e。当单击按钮后，文本框显示 （18） 行数据，其中第二行和第三行的数据分别是 （19） 和 （20） 。Option ExplicitPrivate Sub Command1_Click()Dim a As Single, i As Integera = 1.2For i = 1 To 3a = a * iPrint fun1(a)Next iEnd SubPrivate Function fun1(t As Single) As SingleStatic y As Singley = y + tt = y + 1fun1 = tEnd Function15要打印出 50 个在-100100
16、 之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。Option Base 1Private Sub Command1_Click()Dim b()Randomize（21） Dox = RndIf x 0.5 Then y = 1 Else y = -1t = y * Int(Rnd * 100) + 1（22） Do While k b(k) Thenk = k + 1ElseExit DoEnd IfLoopIf k = j ThenReDim Preserve b(k)b(k) = tPrint b(k);j = j + 1End IfLoop Until j
17、 50Print（23） Max = b(1)For n = 2 To 50If b(n) Max Then（24） p = nEnd IfNext nPrint “最大数是：“; MaxPrint “位置在第“; p; “个“End Sub16有下列程序，运行后变量 x1、y1 和 z1 的结果分别是 （25） 、 （26） 和 （27） 。Private Sub fun1(s, m, n)s = m + 1m = n + 2n = s + 3End SubPrivate Sub form_Click()Dim x1, y1x1 = 1y1 = 1z1 = 1Call fun1(x1, y1
18、 + 1, (z1)Debug.Print x1; y1; z1End Sub17编写一过程把 C 盘中的 Config.sys 文件内容读出，并在文本框中显示出来。在窗体 Form1 上建立一个文本框Text1，将其 MuhiLine 属性设置为 True， ScrollBars 属性设置为3-Both。给定的程序不完整，将程序补充完整。Option ExplicitPrivate Sub Form_Click()Dim ch1 As String, fn As IntegerDim Str As Stringfn = （28） Open “C:Config.sys“ For Input As fnDo While Not EOF( （29） )Line Input #fn, ch1Str = Str + ch1 + vbCrLfLoopText1.Text = （30） End Sub
