以下试题来自：
单项选择题下列数学表达式写成VB表达式，正确的是（）
A.数学表达式0＜x&10对应的VB表达式为x＞0orx&=10
B.数学表达式x2-（x+2）+5对应的VB表达式为x^2-（x+2）+5
C.数学表达式b2-4ac&0对应的VB表达式为b^2-4ac&=0
D.数学表达式对应的VB表达式为Sqr（x2-1）
为您推荐的考试题库
您可能感兴趣的试卷
你可能感兴趣的试题
A.MsgBox（）
D.InputBox（）
A.A=&123&+&456&
B.Label1.Captin=&你好！&
C.r=Val（Text1.Text）
A.Text1.Clear
B.Text1.SelText=&&
C.Text1.text=&&
D.Text1.SelText.Clear
B.（5，8）
D.（3，5）江苏省计算机二级VB笔试题库含答案_甜梦文库
江苏省计算机二级VB笔试题库含答案
江苏省高等学校非计算机专业学生 计算机基础及应用能力等级考试试卷二级 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．集成电路是 20 世纪 50 年代出现的 B．现代集成电路使用的半导体材料通常是硅或砷化镓 C．集成电路的许多制造工序必须在恒温、恒湿、超洁净的无尘厂房内完成 D．集成电路按用途可分为通用和专用两大类。微处理器和存储器芯片都属于专用 集成电路 3． 在通信系统的性能指标中， 3 是指数据传输中出错数据占被传输数据总数的 比例。 A．信道带宽 B．误码率 C．数据率 D．端 -端 延 迟 4．以下数据最大的是 4 。 A．B B．120D C．7DH D．177Q 5．从逻辑功能上来讲，计算机硬件主要包括中央处理器（CPU） 、内存储器、外存储器、 输入设备和输出设备等，它们通过 5 互相连接。 A．总线 B．控制线 C．数据线 D．地址线 6． 6 接口是一种新的 I/O 接口，它是一种可以连接多个设备的总线式串行接 口，2.0 版的数据传输速率可高达 480Mb/s（60MB/s） ，最多可以连接 127 个设备。1A．USB B．IEEE1394 C．SCSI D．并行 7．下列不属于无线局域网设备的是 7 。 A．无线网卡 B．蓝牙 C．无线 HUB D．无线网桥 8． FAT16、FAT32、NTFS 是三种不同的文件系统，Windows 2000/XP 操作系统支持 ___8___。 A．FAT32 和 FAT16 文件系统 B．NTFS 文件系统 C．FAT32 和 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 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．适用于交互式多媒体应用，包括虚拟现实、远程教学、交互式电视等的视频压缩标2准是18 。 A．MPEG-1 B．MPEG-4 C．MPEG-3 19．下列信息系统中 19 属于三次信息的处理系统。 A．管理层业务处理系统 B．信息分析系统 C．专家系统 D．信息检索系统 20．关于 Excel 97/ 的数据筛选，下列说法中正确的是 20 A．筛选后的表格中只含有符合筛选条件的行，其它行被删除 B．筛选条件只能是一个固定的值 C．筛选后的表格中只含有符合筛选条件的行，其它行被暂时隐藏 D．筛选条件不能由用户自定义，只能由系统确定D．MPEG-2。第二部分 Visual Basic 程序设计一、选择题（用答题卡答题，答案依次填在 21～30 答题号内） 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 sum3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．数组组中的控件通过索引值来区别，设置索引号的属性是 （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 xz 单击窗体后，则在窗体上显示的结果是 （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图2Dim x(3) As Integer Private Sub Command1_Click() （9）x(i)&x(j) （10）Len(s1) To 1 Step-1）Val(Text1(i).Text)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)5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 所示。给定的程序不完整，将程序补充完整。图3Private 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。程序功能是解一个一元二次方程( ax 2 ? bx ? c ? 0 )。程序运行后如图 4 所示。 给定的程序不完整，将程序补充完整。6图4Private 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 &方程有两个虚根&; &+i&; x1, &-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 Sub712．下列程序运行后如图 5 所示。给定的程序不完整，将程序补充完整。图5Private 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 之间不同的随机整数，并找出第几个是最大数。给定 的程序不完整，将程序补充完整。8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 &位置在第&; &个& End Sub 16． 有下列程序， 运行后变量 x1、 和 z1 的结果分别是 （25） 、（26） 和 （27） 。 y1 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 = 19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．B 2．D 3．B 4．C 5．A 6．A 7．B 8．D 9．A 10．A 11．D 12．C 13．B 14．D 15．C 16．C 17．D 18．B 19．B 20．C 21．C 22．D 23．A 24．B1025．B 26．B 27．C 28．D 29．A 30．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）Str11江苏省高等学校非计算机专业学生 计算机基础及应用能力等级考试试卷二级 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． B． C． D． 5．从逻辑功能上来讲，计算机硬件主要包括 5 、内存储器、外存储器、输入设 备和输出设备等，它们通过总线互相连接。 A．中央处理器 B．控制器 C．运算器 D．寄存器 6．现在 PC 机上常用的总线是 1991 年开始使用的 6 局部总线。 A．ISA B．EISA C．PCI D．AGP 7． 7 文档最重要的特性是它能支持超链。链源可以是文本中的任何一个字、词 或句子，甚至可以是一幅图象。链宿可以是另一个 Web 服务器上的某个信息资源，也可以 是文本内部标记书签的某个地方。12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，而连接的服务商主机名为 ，则 他相应的 E-mail 地址为 16 。 A．@jkf B．jkf@ C．@ D．jkf. 17．按照汉字的“输入?处理?输出打印”的处理流程，不同阶段使用的汉字编码分别 对应为 17 。 A．国标码?交换码?字形码 B．输入码?国标码?机内码 C．输入码?机内码?字形码 D．拼音码?交换码?字形码 18．下列关于图像的说法，错误的是 18 。 A．尺寸大的彩色图片数字化后，其数据量必定大于尺寸小的图片的数据量 B．图像的数字化过程大体可分为四步：扫描、取样、分色、量化 C．像素是构成图像的基本单位 D．黑白图像或灰度图像只有一个位平面 19．计算机信息系统（简称“信息系统” ）是一类以提供信息服务为主要目的的数据密 集型、人机交互的计算机应用系统。在下列有关信息系统的叙述中，错误的是 19 。 A．在信息系统中，绝大多数数据是持久的，不随程序运行的结束而失效 B．信息系统开发方法有多种，例如生命周期法、原型法等 C．MRPⅡ的英文说法是 Material Requirement Planning Ⅱ，制造业物料需求计划 Ⅱ13D．电子商务，简称 EC，是指对整个贸易活动实现电子化 20．在使用 Excel 97/ 处理数据时，下列叙述中正确的是 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) 23．运行程序时，显示下图 1 内容的语句是 23 。 A．b = InputBox(&输入一个整数&,2003,&程序示例&) B．b = InputBox(&程序示例&,&输入一个整数&,2003) C．b = MsgBox(&输入一个整数&,2003,&程序示例&) D．b = MsgBox(&程序示例&, &输入一个整数&,2003)图124．各种运算符间的优先顺序，从高到低是 24 。 A．比较运算符→算术运算符→逻辑运算符 B．比较运算符→逻辑运算符→算术运算符 C．算术运算符→比较运算符→逻辑运算符 D．算术运算符→逻辑运算符→比较运算符 25．将表达式转换为 Double 类型的函数是 25 。 A．Cbool B．Cbyte C．Cdbl 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 SubD．Cstr14单击窗体后，则在窗体上显示的结果是 26 。 A．50 B．100 C．4 27．如果在立即窗口中执行以下操作： x=1 &CR& '&CR&表示回车，下同 y=2 &CR& Print x & y &CR& 则输出结果是 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 & 10D．5050D．TrueD．11D．4415y=3*t Case Else y=2*t End Select P y End Sub 运行时，从键盘输入 4，输出的结果是 A．3 16 B．4 4 D．4 1030。 C．3 4二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行） （每空 1 分， 共 30 分） 1．在创建菜单时，如果命令在完成之前还需要附加信息，则在其名称后面应当有一个 （1） 。 2．VB6.0 集成开发环境中，功能键 Ctrl+F5 的功能是对 （2） 。 3．在 VB6.0 中定义变量时，通过在变量名后加一个用于规定变量类型的说明字符，来 规定变量的类型。当变量名后加D#‖时，则表明该变量为 （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)16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:&; 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 所示。 给定的程序不完整， 将程序补充完整。图2Private Sub Command1_Click()17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 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 P b End If Next b Next a18End Sub 13．下列程序的功能是计算圆周率π （计算精度到第 n 项减 1 的绝对值小于 10-5 为止） 。请完善下列程序。? ? 2?Option Explicit Private Sub Form_Click()2 2 ? 2 2? 22 2? 2? 2???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 y=y*a Loop Print &pi=&; y End Sub （20）14．统计[1,1000]中包含数字 1 自然数，并将统计结果值，以及每相间 100 内具有该特 征的数显示在文本框中，如图 3 所示。图3Private 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 Print19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, xs.cc List1.AddItem xs.bb List1.AddItem xs.aa List1.AddItem xs.cc 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 Sub20二级 Visual Basic 全真模拟试卷二参考答案 一、选择题： 1．D 2．C 3．C 4．B 5．A 6．C 7．B 8．B 9．D 10．C 11．A 12．B 13．C 14．D 15．D 16．B 17．C 18．A 19．C 20．B 21．B 22．A 23．B 24．C 25．C 26．A 27．C 28．A 29．C 30．A 二、填空题： （1）? （2）工程执行全编译 （3）双精度浮点数 （4）Cbool （5）MultiLine （6）13 （7）14 （8）13 （9）Main:2 2 3 （10）15 （11）7821（12）fun1(x,y) （13）a&b （14）fun1=b （15）0 To 9 （16）flg=1 （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)22江苏省高等学校非计算机专业学生 计算机基础及应用能力等级考试试卷二级 Visual Basic 全真模拟试卷三（本试卷包括计算机基础知识部分和程序设计部分，考试时间共 120 分钟） 说明： 1．本试卷满分为 60 分，分选择题和填空题，试卷不分 A、B 类型。 2．选择题用答题卡答题。每一项有 A、B、C、D 四个可供选择的答案，请选择其中一 个你认为正确的答案，用 HB 铅笔涂写在答题卡的相应答题号内。每选对一项得 1 分，不选 或选错不得分。 3．填空题用答题纸答题。请将答案填写在答题纸的相应答题号内，每个答案只占一行, 不得换行。每填对一个答案得 1 分，不填或填错不得分。 4．请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是否填写正 确。第一部分 计算机基础知识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 的补码为 ，其原码为 4 。 A． B． C． D．． 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 接口。下面关于23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回收站‖中回复出来 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 。24A．声卡的主要功能是控制波形声音和 MIDI 声音的输入输出 B．波形声音的质量与量化位数、采样频率有关 C．声卡中数字信号处理器在完成数字声音的解码及编辑操作中起着重要作用 D．声卡所要求的数据率不高，用 ISA 总线进行传输 19． 信息分析系统是一种高层次的信息系统， 为管理决策人员掌握企事业单位运行规律 和趋势、制订规划、进行决策的辅助系统，可分为 19 和经理支持系统。 A．信息处理系统 B．决策支持系统 C．学生信息系统 D．图书管理系统 20．在使用 Excel 97/ 处理数据时，下列叙述中不正确的是 20 。 A．在 Excel 中提供了许多内置函数, 函数范围包括数据库、数学和三角函数、查 询与引用函数等 B． 在默认情况下， 每一个工作簿文件会打开 3 个工作表文件， 分别以 Sheet1、 Sheet2、 Sheet3 来命名 C．每个工作表中的行和列数量是没有限制的 D．在 Excel 中，输入公式前要先输入一个等号“＝”才行第二部分 Visual Basic 程序设计一、选择题（用答题卡答题，答案依次填在 21～30 答题号内）1?21．代数式 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=&．在窗体上有一个框架框(名称为 Frame1)，一个计时器(名称为 Timerl)，计时器的时 间间隔属性 Interval=100，在图片框中有一个复选按钮(名称为 Check1)和一个命令按钮(名称 为 Command1)，用户界面如图 1 所示。a?b c?d ln(a ) 对应的 Visual Basic6.0 表达式是图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．框架框携带复选按钮和命令按钮同时移动25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 P 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()26Dim x x=0 Do While x & 10 x=x+3 Loop MsgBox x End Sub 单击窗体后，则在窗体上显示的结果是 29 A．0 B．3 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．10D．12C．65D．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 Then27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) P t Loop While x & 54 End Sub28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） ，List1.ListCount 的值为 （16） 。 Option Base 1 Private Sub form_Click() For i = 1 To 10 List1.AddItem i Next i Sum = 0 For i = 0 To List1.ListCount - 1 Sum = Sum + List1.List(i) Next i List1.AddItem Sum End Sub 13．下列程序运行后，在对话框内输入 4 后，结果如图 2 所示。给定的程序不完整，将 程序补充完整。图2Private Sub form_Click() Dim s() t = Val(InputBox(&请输入整数 4&)) k=2*t （17）29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)值。x2 x4 x6 ? ? ?? 2! 4! 6! －6 计算精度为 1× 10 。程序运行后的结果如图 3 所示。给定的程序不完整，将程序补充 完整。 cos( x) ? 1 ?图3Option Base 1 Private Sub Command1_Click() Dim x As Single, n As Long, sum As Single x = Val(Text1.Text) 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 Text2.Text = sum End Sub Private Function fun1(n As Long) As Long Dim i As Long If n = 0 Or n = 1 Then （22）30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 所示。给定的程序不完整，将程序补充完整。图4Option 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 pic1.Print c(i); t=t+1 If t Mod 10 = 0 Then pic1.Print Next i End If End Sub31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。请完善下列程序。图5Option 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 & s132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．D 2．A 3．C 4．D 5．B 6．B 7．A 8．B 9．A 10．C 11．C 12．C 13．C 14．C 15．C 16．C 17．D 18．D3319．B 20．C 21．A 22．B 23．B 24．A 25．B 26．C 27．A 28．B 29．D 30．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=s234江苏省高等学校非计算机专业学生 计算机基础及应用能力等级考试试卷二级 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．集成电路使用的都是半导体硅（Si）材料 B．集成电路根据它所包含的晶体管数目可分为小规模、中规模、大规模、超大规 模和极大规模集成电路 C．集成电路的工作速度与组成逻辑门电路的晶体管尺寸有密切关系 D．集成电路是将大量晶体管、电阻及互连线等制作在尺寸很小的半导体单晶片上 3．在 CPU 中， 3 是指挥中心，它有一个指令计数器，用来存放 CPU 正在执行 的指令的地址，CPU 将按照该地址从内存读取所要执行的指令。 A．寄存器 B．指挥器 C．运算器 D．控制器 4．二进制带符号整数（补码） 的表示的十进制数为 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 。35A． B． C． D． 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．自动办公系统 B．信息管理系统36C．信息处理系统 D．人工智能系统 20．在电子表格软件 Excel 环境下，下列叙述中不正确的是 20 。 A．在一个单元格内最多可以存放 255 个西文字符 B．在输入由数字组成的字符输入项时，应为数字字符串加双引号 C．利用“填充柄”可向单元格输入系列数据 D．单元格引用分为相对引用、绝对引用和混合引用第二部分 Visual Basic 程序设计一、选择题（用答题卡答题，答案依次填在 21～30 答题号内） 21．在 Select Case a 结构中，描述判断条件 1 Q a Q 10 的测试项应该写成 21 。 A．Case 1 &= a &= 10 B．Case 1 Q a And a Q 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．目录列表框 B．驱动器列表框 C．文件列表框 D．列表框 25． 为菜单上访问键被显示成带下划线的字母， 请在要作为访问键的字母前面键入一个 25 号。 A．&-& B．&&& C．&#& D．&+& 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 D．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 。37A．1 B．2 C．3 D．4 28．运行下列程序： Private Sub Command1_Click() s1 = &Basic& For i = 1 To Len(s1) t = Mid(s1, i, 1) s2 = s2 + Chr(Asc(t) + 1) Next i Debug.Print s2 End Sub 单击 Command1 命令按钮后，则在立即窗口上输出结果是 28 。 A．Cbtjd B．65 C．Basic D．出错 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 P y End Sub 从键盘输入 2，输出的结果是 30 。 A．0 1 B．1 2 C．1 3 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()38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# Text1.Text = Day(s) s1 = CStr(s) s1 = Left(s1, 1) + Space(3) + Right(s1, 1) Text2.Text = s1 End Sub 8．下列程序的功能是，找出 1～10 之间所有的因子之和，并在图片框 Picture1 中显示 出来，如图 1 所示。给定的程序不完整，将程序补充完整。图1Private Sub form_Click() Dim a() As Integer, Id As Integer For I = 1 To 10 Picture1.Print 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 Picture1.Print39Next I End Sub 9．给定程序其功能是：建立并打印主对角线的元素为 1 外，主对角线之上的元素为 5， 主对角线之下的元素为 0 的方阵，如图 2 所示。给定的程序不完整，将程序补充完整。图2Option 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 年，卡普耶卡(D.R.Kaprekar)研究了对四位数的一种变换：任给出四位数 k0， 用它的四个数字由大到小重新排列成一个四位数 m，再减去它的反序数 rev(m)，得出数 k1=m-rev(m)，然后，继续对 k1 重复上述变换，得数 k2。如此进行下去，卡普耶卡发现， 无论 k0 是多大的四位数，只要四个数字不全相同，最多进行 7 次上述变换，就会出现四位 数 6174。例如：k0=5298，k1=63，k2=65，k3=96， k4=64，k5=76，k6=74。给定下列程序实现其功能。 给定的程序不完整，将程序补充完整。 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 440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。图3Option 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 List1.AddItem 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 Sub41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 所示。给定的程序不完整，将程 序补充完整。图4Dim 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 Sub4213．下列程序是统计字母和数字字符在文本中出现的次数。程序运行后的结果如图 5 所示。给定的程序不完整，将程序补充完整。图5Option 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） = Text1.Text 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）43End Select （30） If line1 Mod 6 = 0 Then Text2 = Text2 & vbCrLf End If Next I End Sub二级 Visual Basic 全真模拟试卷四参考答案 一、选择题： 1．D 2．A 3．D 4．D 5．B 6．A 7．D 8．A 9．C 10．C 11．B 12．D 13．A 14．C 15．C 16．B 17．C 18．B 19．C 20．B 21．D 22．C 23．B 24．C 25．B 26．B4427．C 28．A 29．D 30．B 二、填空题： （1）Cbyte （2）Lock 语句 （3）Caption （4）Initialize （5）椭圆 （6）46 （7）24 （8）2 4 （9）Id=0 （10）Picture1.Print &+&; a(j); （11）A(i,j)=1 （12）i&j （13）Print （14）Int(9000*Rnd)+1000 （15）k=k\10 （16）n(i)&n(j) （17）m=m+1 （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+145江苏省高等学校非计算机专业学生 计算机基础及应用能力等级考试试卷二级 Visual Basic 全真模拟试卷五（本试卷包括计算机基础知识部分和程序设计部分，考试时间共 120 分钟） 说明： 1．本试卷满分为 60 分，分选择题和填空题，试卷不分 A、B 类型。 2．选择题用答题卡答题。每一项有 A、B、C、D 四个可供选择的答案，请选择其中一 个你认为正确的答案，用 HB 铅笔涂写在答题卡的相应答题号内。每选对一项得 1 分，不选 或选错不得分。 3．填空题用答题纸答题。请将答案填写在答题纸的相应答题号内，每个答案只占一行, 不得换行。每填对一个答案得 1 分，不填或填错不得分。 4．请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是否填写正 确。第一部分 计算机基础知识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．扫描 D．取样 6．外接式调制解调器与计算机连接时，一般使用 6 。 A．计算机的并行输入输出口 B．计算机的串行输入输出口 C．计算机的 ISA 总线 D．计算机的 STD 总线 7．IP 地址每个字节之间用 7 进行分隔。 A．D．‖ B．D：‖ C．D；‖ D．D，‖468．下列都属于输出设备的是 8 。 A．显示器，打印机，音箱 B．打印机，键盘，鼠标 C．键盘，鼠标，触摸屏 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．JPG4719．下列关于数据库系统特点的叙述中，正确的是 19 。 A．数据库避免了一切数据重复 B．数据的一致性是指数据库中的数据类型一致 C．数据库共享是指各类用户均可任意访问数据库中的数据 D．数据库减少了数据冗余 20．在 Microsoft PowerPoint 97/ 中，要播放演示文稿，正确的操作是执行 20 。 A．“视图”菜单中的“幻灯片放映”命令 B．“工具”菜单中的“观看放映”命令 C．“视图”菜单中的“幻灯片浏览”命令 D．“文件”菜单中的“开始”命令第二部分 Visual Basic 程序设计一、选择题（用答题卡答题，答案依次填在 21～30 答题号内） 21．下面关于 Sub 过程的说法，错误的是 21 。 A．不能用 GoTo 语句进入或转出一个 Sub 过程 B．可以通过调用执行 Sub 过程，而且可以嵌套调用 C．Sub 过程可以嵌套 D．在 Sub 过程内，不能定义 Sub 过程或 Function 过程 22．可以用 InputBox 函数产生D输入对话框‖。若执行下列语句 s = InputBox(&请输入&, &一个&, &数字&) 当用户输入完毕，按D确定&按钮后，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 中显示D祝你成功‖的语句是 25 。 A．Text= &祝你成功& B．Text1= &祝你成功& C．Text1 &祝你成功& D．Text.AddItem &祝你成功& 26．窗体上有一个通用对话框控件 CommonDialog1，有下列语句： CommonDialog1.Action = ShowSave 其表示为 26 。 A．显示D打开‖对话框 B．显示D另存为‖对话框 C．显示D颜色‖对话框 D．显示D字体‖对话框 27．运行下列程序： Private Sub form_Click() x$ = &123&: y$ = &abc& n = Len(x)48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 Debug.Print &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．一个以连字符D-‖作为它的 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） 控件。49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 Integer50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 附近的一个实根， 已知函数的导数 2 -6 公式为 f'(x)=6*x -4x+5，迭代公式为 x=x-f(x)/f'(x)，其计算误差为|f(x)|&10 。请将下列程序 补充完整。程序如下： 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 Sub51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 Picture1.Print sum Next i Picture1.Print sum1 End Sub 13．有一个小于 500 的数，其特征是分别被 2～6 除的余数为 1，能被 7 整除，问这个 数是多少?将结果输出到立即窗体并写在文件中。给定的程序不完整，将程序补充完整。 Private Sub Form_Click() Open &D:\data.txt& 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 Debug.Print i: a = i Next i Print #1, a Close #1 End Sub 14．程序的功能是计算下列多项式的值：f ( x) ? 1 ? x / 2!? x 2 / 3!? ? ? x n?1 / n!其中 x = 2.0，计算精度为 10-6。给定的程序不完整，将程序补充完整。 Private Sub Form_Click() i = 2: x = 2 n = 1: s = 1 Do n = （19） e = x ^ (i - 1) / n52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) 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 Label1.Left = Label1.Left + 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 所示。给定的程序不完整，将程序补充完整。图1Option Base 1 Private Sub Command1_Click() Dim a(6, 6) As Integer53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 pic1.Print &|&; 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 所示。 给定的程序不完整，将程序补充完整。{图2Private Sub Command1_Click() s = Val(Text1.Text) List1.Clear List1.AddItem s Do If （26） Then s=s/2 Else s=3*s+1 End If54List1.AddItem s Loop （27） End Sub 19．下面程序的功能是随机生成 10 个不同的两位数，从中找出所有互质数对。若两个数除了 1 以外没有其他公约数，这两个数就是互质数。其中函数 Rec 是一个递归函数。程序界面参见图 3。图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 List1.Clear （28） = Int(90 * Rnd) + 10 Text1.Text = a(1) k=2 Do While k &= 10 n = Int(90 * Rnd) + 10 If InStr(Text1.Text, CStr(n)) = 0 Then Text1.Text = Text1.Text & 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 List1.AddItem 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 Boolean55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．A 2．B 3．D 4．C 5．C 6．B 7．A 8．A 9．B 10．B 11．C 12．B 13．A 14．B 15．A 16．B 17．C 18．D 19．D5620．A 21．C 22．D 23．D 24．A 25．B 26．B 27．C 28．C 29．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）pic1.Print a(i,j); （26）s Mod 2=0 （27）Until s=1 （28）a(1) （29）k=k+1 （30）True57江苏省高等学校非计算机专业学生 计算机基础及应用能力等级考试试卷二级 Visual Basic 全真模拟试卷六（本试卷包括计算机基础知识部分和程序设计部分，考试时间共 120 分钟） 说明： 1．本试卷满分为 60 分，分选择题和填空题，试卷不分 A、B 类型。 2．选择题用答题卡答题。每一项有 A、B、C、D 四个可供选择的答案，请选择其中一 个你认为正确的答案，用 HB 铅笔涂写在答题卡的相应答题号内。每选对一项得 1 分，不选 或选错不得分。 3．填空题用答题纸答题。请将答案填写在答题纸的相应答题号内，每个答案只占一行, 不得换行。每填对一个答案得 1 分，不填或填错不得分。 4．请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是否填写正 确。第一部分 计算机基础知识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 D．21 5．外存储器也称为 5 ，其存储器容量很大，它长期存放计算机系统中几乎所有 的信息。 计算机执行程序时， 外存中的程序及相关数据必须先传送到内存， 然后才能被 CPU 使用。 A．寄存器 B．移动存储器 C．辅助存储器 D．备份存储 器 6．下列关于 USB 接口的叙述中，错误的是 6 。 A．一般来说，1394 接口的传输速度低于 USB 接口 B．一个 USB 接口通过 USB 集线器可以连接多个设备58C．USB 符合即插即用规范，连接的设备可以带电插拔 D．一个 USB 接口通过扩展可以连接多个设备 7． 7 是为了确保计算机之间能进行互连并尽可能少地发生信息交换错误而制定 的一组规则或标准，实现它的软件（及硬件）是计算机网络不能缺少的组成部分。 A．主机 B．通信协议 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０‖和D１‖组成的二进位代码 D．编译程序应具有词法分析和语法分析功能 12． 12 是根据语言学和自然语言理解的知识，使计算机模仿人的发声，自动生 成语音的过程。 A．模拟语音 B．人造语音 C．语音合成 D．MIDI 语 音 13．算法是问题求解规则的一种过程描述，在算法中要精确定义一系列规则，这些规则 指定了相应的操作顺序， 以便在有限的步骤内得到所求问题的解答。 在下列有关算法及其性 质的叙述中，错误的是 13 。 A．算法的设计一般采用由精到细、由抽象到具体的逐步求精的方法 B．算法必须具有确定性、有穷性和能行性等基本性质 C．算法均必须有多个输入量，至少有一个输出量（包括参量状态的变化） D．一个算法的好坏，需要考虑执行该算法所要占用的计算机资源 14．以太网在发送数据时，必须把数据分成一个一个的 14 ，每个节点每次只能 发送一个，然后必须把总线的使用权交出来，这样就可以让所有的节点公平地使用总线了。 A．包 B．带 C．帧 D．块 15．数据的存储结构是指 15 。 A．存储在外存中的数据 B．数据所占的存储空间量 C．数据的逻辑