VB历届笔试试卷2007年(春)笔试试卷

第一部分计算机基础知识 1．微电子技术是信息技术领域的关键技术，它以集成电路(IC)为核心。在下列有关叙述中，错误的是________。 A．目前IC芯片(如CPU芯片)的集成度可达数千万个电子元件 B．Moore定律指出，单块IC的集成度平均每半年翻一番 C．从原料熔炼到最终产品包装，IC的制造工序繁多，工艺复杂，技术难度非常高 D．非接触式IC卡采用电磁感应方式无线传输数据，所以又称为射频卡或感应卡 2．在下列有关通信中使用的传输介质的叙述中，错误的是________。 A．计算机局域网中大多使用无屏蔽双绞线，其无中继有效传输距离大约100 m B．同轴电缆可用于传输电视信号 C．光纤价格高，一般不在校园网和企业网中使用 D．微波的波长很短，适合于长距离、大容量无线通信 3．二进制数(1010)2与十六进制数(B2)16相加，结果为________。 A．(273)8 B．(274)8 C．(314)8 D．(313)8 4．设有一段文本由基本ASCII字符和GB2312字符集中的汉字组成，其代码为B0 A1 57 69 6E D6 DO CE C4 BO E6，则在这段文本中含有________。 A．1个汉字和9个西文字符 B．2个汉字和7个西文字符 C．3个汉字和5个西文字符 D．4个汉字和3个西文字符 5．在下列有关CPU的叙述中，错误的是________。 A．CPU的主要组成部分有运算器、控制器和寄存器组 B．CPU的主要功能是执行指令，不同类型CPU的指令系统通常有所不同 C．为了加快运算速度，CPU中可包含多个算术逻辑部件(ALU) D．目前PC机所用的CPU芯片均为Intel公司的产品 6．PC机在加电启动过程中会运行POST程序、引导程序、系统自举程序等。若在启动过程中，用户按某一热键(通常是Del键)则可以启动CMOS设置程序。这些程序运行的顺序是________。 A．POST程序→CMOS设置程序→系统自举程序→引导程序 B．POST程序→引导程序→系统自举程序→CMOS设置程序 C．CMOS设置程序→系统自举程序→引导程序→POST程序 D．POST程序→CMOS设置程序→引导程序→系统自举程序 7．目前PC机一般都有USB和FireWire接口，用于连接各种外部设备。在下列关于这两种接口的叙述中，错误的是________。 A．USB是一种串行接口，可以连接键盘、鼠标器、优盘、数码相机等多种设备 B．FireWire是一种并行接口，通常用于连接需要高速传输大量数据的设备(如音视频设备) C．USB 2.0的数据传输速率是USB 1.0的数十倍 D．一个USB接口上可以连接不同的设备 8．在下列关于PC机外存储器的叙述中，错误的是________。 A．1.44MB软盘的每一面有80个磁道，每个磁道分为18个扇区，每个扇区512字节 B．硬盘的主要性能指标之一是平均存取时间，它与硬盘的转速(rpm)有很大关系 C．优盘的缺点是：优盘均无写保护功能，且不能起到引导操作系统的作用 D．CD-R是目前常用的可记录式光盘，但其刻录的数据不能修改 9．在下列关于Windows 98／XP操作系统的存储管理功能的叙述中，错误的是________。 A．存储管理的功能主要包括内存的分配与回收、共享和保护、自动扩充(虚存的实现)等 B．系统将程序(及其数据)划分成固定大小的页面，以页面为单位进行内存的分配和调度 C．虚拟存储器采用的页面调度算法是“先进先出”(FIFO)算法 D．在Windows 98和Windows XP中，虚拟内存其实就是一个磁盘文件，即“交换文件” 10．人们常说“软件的主体是程序，程序的核心是算法”。在下列有关程序、算法和数据结构的叙述中，错误的是________。 A．程序是用程序设计语言对解题对象和解题步骤进行的一种描述 B．算法和数据结构是设计与编写程序时首先要考虑的两个重要方面 C．算法是问题求解规则的一种过程描述，它必须有输入，但可以没有输出 D．数据结构主要是研究数据的逻辑结构、存储结构以及在这些数据上定义的运算 11．下列关于局域网的叙述中，错误的是________。 A．光纤分布式数字接口网(FDDI)常用于构造局域网的主干部分 B．采用红外线或者无线电波进行数据通信，可以构造无线局域网 C．两个或多个局域网可以进行互连 D．所有的局域网均为以太网 12．在下列有关IP地址、域名和URL的叙述中，错误的是________。 A．目前互联网中IP地址大多数使用4个字节(32个二进位)表示 B．使用C类IP地址的网络规模最大，一个C类物理网络可以拥有上千万台主机 C．一台主机通常只能有一个IP地址，但可以有多个域名 D．URL用来标识WWW网中的每一个信息资源，不同的信息资源对应不同的URL 13．TCP／IP 协议 离婚协议模板下载合伙人协议 下载渠道分销协议免费下载敬业协议下载授课协议下载 栈的应用层包括了各种高层协议，其中用于实现网络主机域名到IP地址映射的是________。 A．DNS B．SMTP C．FTP D．Telnet 14．ADSL是一种宽带接入技术，在线路两端加装ADSL Modem即可实现连网。下面关于ADSL的叙述中，错误的是________。 A．它利用普通铜质电话线作为传输介质，成本较低 B．在上网的同时，还可以接听和拨打电话，几乎互不影响 C．从实现的技术上来看，数据的上传速度比数据的下载速度快 D．利用ADSL技术上网的用户，其PC机必须安装以太网卡 15．目前PC机使用的字符集及其编码标准有多种，20多年来我国也颁布了多个汉字编码标准。在下列汉字编码标准中，不支持简体汉字的是________。 A．GB2312 B．GBK C．BIG5 D．GBl8030 16．在下列有关数字图像的压缩编码和图像文件格式的叙述中，错误的是________。 A．图像压缩的出发点是图像中的数据相关性很强，且人眼的视觉有一定的局限性 B．压缩编码 方法 快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载 的优劣主要是看压缩倍数、重建图像的质量和压缩算法的复杂度等 C．JPEG图像的压缩倍数是可以控制的，且大多为无损压缩 D．GIF格式的图像能够支持透明背景，且具有在屏幕上渐进显示的功能 17．在下列有关MIDI音乐的叙述中，错误的是________。 A．MIDI是一种音乐描述语言，它规定了乐谱的数字表示方法 B．MIDI音乐的文件扩展名为“.MID”或“.MIDI” C．MIDI音乐可以使用Windows中的媒体播放器等软件进行播放 D．播放MIDI音乐时，声音是通过音箱合成出来的 18．在下列有关中文版Windows 98／2000／XP操作系统功能与操作的叙述中，错误的是________。 A．“五笔字型”汉字输入法是Windows内置的输入法之一 B．在“画图”软件中画圆和正方形时，可在按Shift键的同时用鼠标拖放操作 C．在“资源管理器”窗口中，按Ctrl键的同时用鼠标单击文件，可以实现该文件的反向选定 D．作为虚拟存储器使用的(页)交换文件可以设置在不同的逻辑硬盘上 19．在下列有关Microsoft Word 97／2000／2003功能和操作的叙述中，错误的是________。 A．Word文档可以分别设置打开文件时的密码和修改文件时的密码 B．页边距的计量单位可以设置为磅、英寸和厘米等 C．可以将选中的英文统一设置为小写，或大写，或词首字母大写，或句首字母大写等 D．利用工具栏上的“格式刷”，可以复制字体的格式，但不能复制段落的格式 20．在下列有关Microsoft PowerPoint 97/2000/2003功能和操作的叙述中，错误的是________。 A．PowerPoint文件可以另存为网页文件 B．演示文稿可以按讲义方式打印，且一张纸(如A4规格)可以打印多达6或9张投影片 C．演示文稿的放映方式可以设置为循环放映 D．演示文稿中可以插入声音文件，但不可以录制旁白 第二部分visual Basic程序设计 一、选择题(用答题卡答题，答案依次填在21～30答题号内) 21．以下所列表示中，不可用作VB合法常量的个数有________个。 ① vbCrLf ② 1# ③ π ④ ”XY” ⑤ 1E-5 A．0 B．1 C．2 D．4 22．下列表达式中，运算结果与函数Mid(s，i，i)的返回值相同的是________。 A．Left(s, i) ＆ Right(s，Len(S) - i) B．Left(Right(S，Len(s) – i+ 1)，i) C．Left(Right(S，i)，Len(s) – i+1) D．Left(S，Len(S)-i) ＆ Right(S，i) 23．下列定义Sub过程的语句中，正确的是________。 A．Private Sub Sub1(A()) B．Private Sub Sub1(A As String*5) C．Private Sub Sub1(ByVal A() As Integer) D．Private Sub Sub1(A(10)As Integer) 24．以下有关文件的说法中，错误的是________。 A．在Open语句中缺省For子句，则按Random方式打开文件 B．可以用Binary方式打开一个顺序文件 C．在Input方式下，可以使用不同文件号同时打开同一个顺序文件 D．用Binary方式打开一个随机文件，每次读写数据的字节长度取决于随机文件的记录长度 25．以下表达式中，能够被正确计算的表达式有________个。 ① 4096 * 2 ^ 3 ② CInt(5.6) * 5461 + 2 ③ 6553 * 5 + 0.5 * 6 ④32768+12 A．4 B．3 C．2 D．1 26．计算下面的表达式，其值是________。 CInt(-3.5) * Fix(-3.81) + Int(-4.1) * (5 Mod 3) A．2 B．1 C．-1 D．6 27．下面关于对象作用域的说法中，正确的是________。 A．在窗体模块中定义的全局过程，在整个程序中都可以调用它 B．分配给已打开文件的文件号，仅在打开该文件的过程范围内有效 C．过程运行结束后，过程的静态变量的值仍然保留，所以静态变量作用域是整个模块 D．在标准模块中定义的全局变量的作用域比在窗体模块中定义的全局变量的作用域大 28．下面有关数组的说法中，________是错误的。 A．在模块中由于未使用Option Explicit语句，所以数组不用先定义就可以使用，只不过是Variant类型 B．过程定义中，形参数组可以是定长字符串类型 C．Erase语句的作用是对固定大小数组的值重新初始化或收回分配给动态数组的存储空间 D．定义数组时，数组维界值可以不是整数 29．在下列控件中，不具有Change事件的控件有________个。 ① DriveListBox ② DirListBox ③ FileListBox ④ ListBox A．0 B．1 C．2 D．3 30．算术表达式 的VB表达式是________。 A．(e^(2*π*x-5)*log(x)+(sin(2x))^3)/sqr(abs(sin(x)-cos(x^2))) B．(exp(2*3.14159*x-5)*log(x)+(sin(2*x))^3)/sqr(abs(sin(x)-cos(x^2))) C．(exp(2*π*x-5)*ln(x)+(sin(2*x))^3)/sqr(abs(sin(x)-cos(x^2))) D．(e^(2* 3.14159*x-5)*ln(x)+(sin(2*x))^3)/sqr(abs(sin(x)-cos(x^2))) 二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行） 1．下面的事件过程执行结束后，A(2)的值是 （1） 、A(7) 的值是 （2） 。程序中第二个循环被执行了 （3） 次。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer Dim i As Integer, k As Integer For i = 1 To 10 a(i) = 1 Next i k = 1 For k = 1 To 10 Step k a(k) = 0 k = k + 2 Next k End Sub 2．执行下面的程序，当单击Command1时，窗体上显示的内容的第二行是 （4） 、第三行是 （5） 、第四行是 （6） 。 Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer, z As Integer a = 1: b = 1: z = 1 Call p1(a, b) Print a, b, z Call p1(b, a) Print a, b, z End Sub Private Sub p1(x As Integer, ByVal y As Integer) Static z As Integer x = x + z: y = x - z: z = x + y Print x, y, z End Sub 3．执行下面的程序，单击Command1按钮后，数组元素A(1，1)的值是 （7） 、 A(2，3) 的值是 （8） 、A(3，2) 的值是 （9） 。 Option Explicit Private Sub Command1_Click() Dim A(3, 3) As Integer, i As Integer, j As Integer, k As Integer i = 3: j = 1 A(i, j) = 1 For k = 2 To 9 If i + 1 > 3 Or j + 1 > 3 Then If j = 1 Then i = i - 1 ElseIf A(i - 1, j - 1) = 0 Then i = i - 1: j = j - 1 ElseIf j = 3 Then i = i - 1 Else j = j + 1 End If ElseIf j = 1 Or i = 1 Then If A(i + 1, j + 1) = 0 Then i = i + 1: j = j + 1 Else j = j + 1 End If Else If A(i - 1, j - 1) = 0 Then i = i - 1: j = j - 1 End If End If A(i, j) = k Next k End Sub 4．执行下面的程序，单击Command1按钮后，变量Fir的值是 （10） 、变量Sec的值是 （11） 、变量Thir的值是 （12） 。 Private Sub Command1_Click() Dim Fir As Integer, Sec As Integer, Thir As Integer Fir = 96: Sec = 421: Thir = 3857 Call look_for(Fir, Sec, Thir) Print Fir; Sec; Thir End Sub Private Sub look_for(F As Integer, S As Integer, T As Integer) Dim Tem As String If 1# * F * S <> T Then Tem = Left(CStr(F), 1) F = Right(CStr(F), 1) & Left(CStr(S), 1) S = Right(CStr(S), 2) & Left(CStr(T), 1) T = Right(CStr(T), 3) & Tem Call look_for(F, S, T) End If End Sub 5．执行下面的程序，单击Command1按钮后，显示在窗体上的第一行内容是 （13） 、第二行的内容是 （14） 、第三行的内容是 （6） 。 Option Explicit Dim a As Integer Private Sub Command1_Click() Dim b As Integer a = 1: b = 2 Print fun1(fun1(a, b), b) Print a Print b End Sub Private Function fun1(x As Integer, y As Integer) As Integer Dim i As Integer For i = 1 To y y = y + 1 x = x + 1 a = x + y Next i fun1 = a + y End Function 6．下面是一个求函数f(x)值的程序。 其中，（2n-1）！！=1×3×5×……（2n-1）。计算到第n项的绝对值|an|≤10-6为止。 Option Explicit Private Sub Command1_Click() Dim x As Single, i As Integer, a As Single, sum As Single x = Text1 i = 1 a = -1 Do a = （16） If Abs(a) <= 0.000001 Then Exit Do sum = sum + a （17） Loop Text2 = sum End Sub 7．本程序功能是将文本框中用逗号分隔的数据（文本框中必须要有数据），分别赋值给二维数组B的各个元素；并将B数组各个元素分行显示在文本框中。 Private Sub Command1_Click() Dim B(3, 3) As Single, I As Integer, pos1 As Integer Dim pos2 As Integer, S As String, J As Integer S = Text1 If S = "" Then Text1 = "请输入数据" （18） End If For I = 1 To 3 For J = 1 To 3 pos1 = （19） pos2 = InStr(pos1, S, ",") If （20） Then B(I, J) = Val(Mid(S, pos1, pos2 - pos1)) Else B(I, J) = Val(Mid(S, pos1)) End If Text2 = Text2 & Str(B(I, J)) Next J （21） Next I End Sub 8．下面程序的功能是，对N阶方阵A中与副对角线平行的各条斜线（包括副对角线本身在内，共有2N-1条，如图示）上的元素分别进行累加求和并进行比较，求出累加和的最大值Max。过程Look_for的功能是计算各斜线上的元素和；计算分两步进行：先求副对角线和其上方斜线上的元素和，再求副对角线下方斜线上的元素和。（本程序设定N=5，数据从文件data.txt中读取） Option Base 1 Private Sub Command1_Click() Dim I As Integer, A(5, 5) As Integer, J As Integer Dim N As Integer, Max As Integer Open "d:\data.txt" For Input As #5 Do （22） For I = 1 To 5 For J = 1 To 5 Input #5, A(I, J) Text1 = Text1 & Str(A(I, J)) & " " Next J Text1 = Text1 & vbCrLf Next I Loop Call look_for(A, Max) Text2 = Text2 & "最大和是：" & Max End Sub Private Sub look_for(A() As Integer, M As Integer) Dim Ub As Integer, I As Integer, J As Integer, Sum As Integer （23） M = A(1, 1) For I = 1 To Ub Sum = A(1, I) For J = 2 To I Sum = （24） Next J Text2 = Text2 & Sum & vbCrLf If M < Sum Then M = Sum Next I For I = 2 To Ub （25） For J = I + 1 To Ub Sum = Sum + A(J, Ub + I - J) Next J Text2 = Text2 & Sum & vbCrLf （26） Next I End Sub 9．下面程序的功能是验证一个命题：对任何一个非零的正整数，若为偶数则除以2，若为奇数则乘3加1，得到一个新的正整数后再按照上面的法则继续验算，经过若干次验算后得到的结果必然为1。 Option Explicit Private Sub Command1_Click() Dim X As Integer Cls X = InputBox("请输入一个正整数") Print "验证" & X & ":" Call YZ(X) End Sub Private Sub YZ(N As Integer) Dim I As Integer, S As String If N Mod 2 = 0 Then S = N & "/2" N = N / 2 Print S & "=" & N ElseIf （27） Then （28） N = N * 3 + 1 Print S & "=" & N Else （29） End If （30） End Sub _1235744339.unknown _1235930850.unknown