【VB开源代码栏目提醒】：网学会员,鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“高级语言程序设计（VB）笔试试卷（A） - 大学课件”一文，供大家参考学习!

高级语言程序设计（VB）笔试试卷A说 明：1．本试卷包括计算机基础知识部分和程序设计部分，考试时间共 120 分钟；2．本试卷满分为 60 分，分选择题和填空题；3．计算机基础知识部分全部是选择题20 分，程序设计部分分为选择题10 分和填空题30 分两种； 第一部分计算机基础知识1．在下列有关现代信息技术的一些叙述中，正确的是 。

     A.集成电路是 20 世纪 90 年代初出现的，它的出现直接导致了微型计算机的诞生 B．集成电路的集成度越来越高，目前集成度最高的已包含几百个电子元件 C.目前所有数字通信均不再需要使用调制解调技术和载波技术 D.光纤主要用于数字通信，它采用波分多路复用技术以增大信道容量2．最大的 10 位无符号二进制整数转换成八进制数是 a 。

     A．1023 B．1777 C．1000 D．10243．在下列有关目前 PC 机 CPU 的叙述中，错误的是 。

     A. CPU 芯片主要是由 Intel 公司和 AMD 公司提供的 B．“双核”是指 PC 机主板上含有两个独立的 CPU 芯片 C．Pentium 4 微处理器的指令系统由数百条指令组成 D．Pentium 4 微处理器中包含一定容量的 Cache 存储器4．在下列有关当前 PC 机主板和内存的叙述中，正确的是 。

     A. 主板上的 BIOS 芯片是一种只读存储器，其内容不可在线改写 B．绝大多数主板上仅有一个内存插座，因此 PC 机只能安装一根内存条 C．内存条上的存储器芯片属于 SRAM（静态随机存取存储器） D．目前内存的存取时间大多在几个到十几个 ns（纳秒）之问5．在下列有关 PC 机辅助存储器的叙述中，正确的是 。

     A. 硬盘的内部传输速率远远大于外部传输速率 B．对于光盘刻录机来说，其刻录信息的速度一般小于读取信息的速度 C.使用 USB 2.0 接口的移动硬盘，其数据传输速率大约为每秒数百兆字节 D．CD-ROM 的数据传输速率一般比 USB 2.0 还快6．在下列 PC 机 I/O 接口中，数据传输速率最快的是 。

     A．USB 2.0 B．IEEE-1394 C. IrDA（红外） D．SATA7．计算机软件可以分为商品软件、共享软件和自由软件等类型。

    在下列相关叙述中，错误的是 。

     A.通常用户需要付费才能得到商品软件的使用权，但这类软件的升级总是免费的 B.共享软件通常是一种“买前免费试用”的具有版权的软件 C.自由软件的原则是用户可共享，并允许拷贝和自由传播 D.软件许可证是一种法律合同，它确定了用户对软件的使用权限8．人们通常将计算机软件划分为系统软件和应用软件。

    下列软件中不属于应用软件类型的是 。

     A．AutoCAD B．MSN C．Oracle D．Windows Media Player9．在下列有关 Windows 98/2000/XP 操作系统的叙述中，错误的是 。

     A. 系统采用并发多任务方式支持多个任务在计算机中同时执行 B．系统总是将一定的硬盘空间作为虚拟内存来使用 C．文件（夹）名的长度可达 200 多个字符 D．硬盘、光盘、优盘等均使用 FAT 文件系统 110．在下列有关算法和数据结构的叙述中，错误的是 。

     A. 算法通常是用于解决某一个特定问题，且算法必须有输入和输出 B．算法的表示可以有多种形式，流程图和伪代码都是常用的算法表示方法 C．常用的数据结构有集合结构、线性结构、树形结构和网状结构等 D. 数组的存储结构是一种顺序结构11.因特网的 IP 地址由三个部分构成，从左到右分别代表 。

     A．网络号、主机号和类型号 B．类型号、网络号和主机号 C．网络号、类型号和主机号 D. 主机号、网络号和类型号12．在下列有关 ADSL 技术及利用该技术接入因特网的叙述中，错误的是 。

     A. 从理论上看，其上传速度与下载速度相同 B．一条电话线上可同时接听/拨打电话和进行数据传输 C. 利用 ADSL 技术进行数据传输时，有效传输距离可达几公里 D. 目前利用 ADSL 技术上网的计算机一般需要使用以太网网卡13．人们往往会用“我用的是 10M 宽带上网”来说明自己计算机连网的性能，这里的quot10M”指的是数据通 信中的 指标。

     A. 最高数据传输速率 B. 平均数据传输速率 C. 每分钟数据流量 D．每分钟 IP 数据包的数目14.计算机局域网按拓扑结构进行分类，可分为环型、星型和 c 型等。

     A.电路交换 B．以太 C．总线 D.对等15.网络信息安全主要涉及数据的完整性、可用性、机密性等问题。

    保证数据的完整性就是 。

     A．保证传送的数据信息不被第三方监视和窃取 B．保证发送方的真实身份 C. 保证传送的数据信息不被篡改 D．保证发送方不能抵赖曾经发送过某数据信息16.某计算机系统中，西文使用标准 ASCII 码、汉字采用 GB2312 编码。

    设有一段纯文本，其机内码为 CB F5 DO B4 50 43 CA C7 D6 88，则在这段文本中含有 。

     A. 2 个汉字和 1 个西文字符 B．4 个汉字和 2 个西文字符 C．8 个汉字和 2 个西文字符 D. 4 个汉字和 1 个西文字符17.以下关于汉字编码标准的叙述中，错误的是 。

     A．GB 2312 标准中所有汉字的机内码均用双字节表示 B. 我国台湾地区使用的汉字编码标准 BIG 5 收录的是繁体汉字 C. GB 18030 汉字编码标准收录的汉字在 GB 2312 标准中一定能找到 D. GB 18030 汉字编码标准既能与 UCS （Unicode）接轨，又能保护已有中文信息资源18.若波形声音未进行压缩时的码率为 64kb/s，已知取样频率为 8kHz，量化位数为 8，那么它的声道数 是 。

     A．1 B．2 C．4 D．819．从信息处理的深度来区分信息系统，可分为业务处理系统、信息检索系统和信息分析系统等。

    在下列 几种信息系统中，不属于业务处理系统的是 。

     A．DSS B．CAI C．CAM D．OA20.在下列有关信息系统开发、管理及其数据库设计的叙述中，错误的是 。

     A.常用的信息系统开发方法可分为结构化生命周期方法、原型法、面向对象方法和 CASE 方法等 B.在系统分析中常常使用结构化分析方法，并用数据流程图和数据字典来表达数据和处理过程的关系 C.系统设计分为概念结构设计、逻辑结构设计和物理结构设计，通常用 E-R 模型作为描述逻辑结构的 工具 D.从信息系统开发过程来看，程序编码、编译、连接、测试等属于系统实施阶段的工作 2 第二部分 Visual Basic 程序设计一、 选择题（用答题卡答题，答案依次填在 21—30 答题号内）21.在列表框 List1 中有若干列表项，可以删除选定列表项的语句是 。

     A. List1.textquotquot B. List1.ListList1.Listlndex quotquot C. List1.Clear D. List1.RemoveItem List1.Listlndex22．执行 语句时，会出现出错提示信息。

     A. Print 5 714 B.Print 163842 C. Print 327682 D. Print quot14quot 32 x 5 e2 ln x sin 3 2x23．数学表达式 对应的 VB 表达式是 。

     sin x cos x 2 A．（e（2πx-5）LogxSin2x3）/SqrSinx-Cosx 2 B. Exp23.14159x-5Logx Sin2 x 3/SqrSinx-Cosx 2 C. Exp2πx-5LnxSin2x 3/SqrSinx -Cosx 2 D. e23.14159x-5Lnx Sin2x3/SqrSingx-Cosx 224.以下关于数组的说法中，错误的是 。

     A.使用了 Preserve 子句的 ReDim 语句，只允许改变数组最后一维的上界 B．对于动态数组，ReDim 语句可以改变其维界但不可以改变其数据类型 C. Erase 语句的功能只是对固定大小的数组进行初始化 D．LBound 函数返回值是指定数组某一维的下界25.下列有关过程的说法中，错误的是 。

     A.在 Sub 或 Function 过程内部不能再定义其它 Sub 或 Function 过程 B．对于使用 ByRef 说明的形参，在过程调用时形参和实参只能按传址方式结合 C.递归过程既可以是递归 Function 过程，也可以是递归 Sub 过程 D.可以像调用 Sub 过程一样使用 Call 语句调用 Function 过程26.以下有关对象属性的说法中，错误的是 。

     A．工具箱中的控件并不是 VB 中所有的控件 B．若将 Frame 的 Enabled 属性设置为 False，则不能使用放置在 Frame 里面的控件 C.对象的 Name 属性在运行时不能改变 D.对象的所有属性都可以在属性窗口中设置27．以下关于变量作用域的叙述中，正确的是 。

     A．窗体中凡用 Private 声明的变量只能在某个指定的过程中使用 B. 模块级变量只能用 Dim 语句声明 C．凡是在窗体模块或标准模块的通用声明段用 Public 语句声明的变量都是全局变量 D．当不同作用域的同名变量发生冲突时，优先访问局限性小的变量28.表达式 CInt4.5CInt-4.51Int4.9Int-4.1Fix-1.90 Mod 2 的运算结果是 。

     A．1 B．-1 C．-2 D．-329.若要使逻辑表达式 xgty Xor yltz 结果为 True，则 x、y、z 的取值应为下列选项中的 。

     A. x3、y3、z4 B. x2、yl、z2 C. xl、y3、z2 D. x2、y2、z230.在一个多窗体程序中，可以仅将窗体 Form2 从内存中卸载的语句是 。

     A. Form2.Unload B. Unload Form2 C. Form2.End D. Form2.Hide二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）1．执行下面程序，单击 Command1，则图片框中显示的第一行是 1 ，显示的第二行是 2 ， 最后一行显示的是 3 。

     Private Sub Command1_Click 3 Dim a3 3 As Integer Dim I As Integer j As Integer For I 1 To 3 For j 3 To 1 Step -1 If I gt j Then aI j I - j Else aI j j - I End If Next j Next I For I 1 To 3 For j 3 To 1 Step -1 Picture1.Print aI j Next j Picture1.Print Next I End Sub2．运行下面程序，如果连续三次单击命令按钮之后，A 数组共有 4 个元素；数组元素 A2的值是 5 ，A5的值是 6 。

     Option Explicit Option Base 1 Private Sub Command1_Click Static A As Integer N As Integer Dim I As Integer K As Integer K N N N 2 ReDim Preserve AN For I K 1 To N AI I N 1 Next I For I 1 To N Print AI Next I Print End Sub3．运行下面的程序，单击 Command1，在窗体上显示的变量 A 的值为 7 ，变量 B 的值为 8 。

     Option Explicit Dim A As Integer Private Sub Command1_Click Dim B As Integer B 3 A 4 B FunFunA B 2 A B Print A B End Sub 4 Private Function FunN As Integer K As Integer N N A K N - K Fun N K A End Function4．执行下面的程序，单击 Command1，窗体上显示的第一行是 9 ，第二行是10 ，第四行 是 11 ，最后一行是 12 。

     Option Explicit Private Sub Command1_Click Dim n As Integer n 5 Call testn Print n End Sub Private Sub testByVal n As Integer Dim i As Integer S As String If n gt 0 Then For i 1 To n S S amp CStri Next i Print S Call testn - 2 Else Print quotOVERquot End If End Sub5 ．运行下列程 序，单击 Command1，在 窗体上显示的 第一行内容是 13 ，第 二行的内容是 14 ，第三行的内容是 15 。

    “A”的 ASCII 码是 65，“Z”是 90 Option Explicit Private Sub Command1_Click Dim I As Integer st As String n As Integer p As String 1 p quotBquot For I 3 To 1 Step -1 n Ascp - I If n lt 65 Then n n 26 st Chrn st st amp FI Print st Next I End Sub Private Function Fn As Integer Dim I As Integer Static s As Integer For I 1 To n s s I Next I 5 F s End Function -7 6．用以下公式求 fx的值。

    当通项的绝对值小于 10 时停止计算，x 的值由键盘输入。

     f x a 1 x 1 a 2 x 2 a 3 x 3 1 n 1 a n x n x 1 1 a 1 1 a 2 2 a n n 345 a n 2 a n 1 Option Explicit Private Sub Command1_Click Dim x As Single fx As Single Dim a As Single a1 As Single a2 As Single Dim t As Single a1 1: a2 2 x Text1 If 16 Then MsgBox quotx 必须在-1～1 之间quot Exit Sub End If fx a1 x - a2 x x t -1 x x Do a 1 / a1 a2 t -1 t x fx 17 a1 a2 18 Loop Until Absa t lt 0.0000001 Text2 fx End Sub7．学生的某次课程测验中，选择题的答案已记录在列表框 List1 中，其数据行格式是:学号为 6 个字符长 度、2 个空格、选择题的答案为 15 个字符长度。

    程序根据标准答案进行批改，每答对一题给 1 分，并将 得分存放到列表框 List2 中。

    标准答案存放在变量 Exact 中。

     Private Sub Command1_Click Dim Anw As String StudId As String Dim Scor As Integer Exact As String Dim i As Integer J As Integer Exact quotABCCBAACBBDCCDAquot For i 19 Anw 20 StudId LeftAnw 6 Anw RightAnw LenAnw - 8 21 For J 1 To LenAnw If 22 Then Scor Scor 1 6 End If Next J List2.AddItem StudId amp quot quot amp Scor Next i End Sub8．下面程序的功能是：统计存放在数组 A 中的 N 个数有多少个是不同的。

    具体做法是：变量 Left 指向要 被处理的数（从第 2 个元素开始），Right 指向数组最后一个元素。

    若 ALeft与排在它前面的某个数组 元素值相同，就用数组元素 ARight的值来替换 ALeft的值，同时将变量 Right 的值减 1；否则将变 量 Left 的值加 1，处理数组下一个元素，重复以上过程，直到 Leftgt Right 为止。

    Right 的值即为不同 的数的个数。

     Option Explicit Option Base 1 Private Sub Command1_Click Dim A As Integer N As Integer I As Integer Dim OP As Integer N InputBoxquot请输入数据个数quot 10 ReDim AN Randomize For I 1 To N AI IntRnd 10 1 Text1 Text1 amp AI amp quot quot Next I Call StatisticA OP Text2 quot有quot amp OP amp quot个不同的数：quot For I 1 To OP Text2 Text2 amp AI amp quot quot Next I End Sub Private Sub StatisticA As Integer Right As Integer Dim Left As Integer K As Integer I As Integer Right 23 Left 2 Do While Left lt Right K 24 For I K To 1 Step -1 If ALeft AI Then Exit For Next I If 25 Then Left Left 1 Else ALeft ARight 26 End If Loop End Sub9．在计算机中用一个字节（8 位）来存储一个字符的 ASCII 码，其中低 7 位二进制数对应字符的编码， 7每个字节的最高位一般保持为“O”，在数据传输时可用作奇偶校验位。

    传输时 ASCII 代码转换成传输码的方法是，若 7 位 ASCII 码有偶数个 1，则最高位为 1。

    有奇数个 1，则最高位为 0。

    例如字母“A”的 ASCII 码十进制表示为 65，二进制表示为 00100001。

    ”A”的传输码则为“1010 0001”。

    本程序的功能就是把 ASCII 代码转换成这种传输码。

     Option Explicit Private Sub Command1_Click Dim i As Integer s As String Dim str As String ch As String str Text1.Text For i 1 To Lenstr 27 Call convertch s List1.AddItem ch amp quotgtquot amp s Next i End Sub Private Sub convertch As String s As String Dim m As Integer k As Integer n As Integer i As Integer s 28 n Ascch Do While n gt 0 29 s m amp s If m 1 Then k k 1 End If n n 2 Loop For i 1 To 7 - Lens 将字符的二进制代码补足 7 位 s quot0quot amp s Next i If k Mod 2 0 Then 30 Else s quot0quot amp s End If End Sub 8 二级 Visual Basic 语言上机试卷A （本试卷完成时间 70 分钟）【考试须知】1． 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2． 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3． 程序代码书写应呈锯齿形。

    一、改错题（14 分）【题目】本程序功能是求二维的随机整数数组每一行元素中素数的个数。

    Option ExplicitDim a As Integer m As Integer n As IntegerPrivate Sub Command1_.