vb注意.docx

1、vb注意2007年春江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试二级试卷试卷语种：Visual Basic第一部分 计算机基础知识1微电子技术是信息技术领域的关键技术，它以集成电路（IC）为核心。在下列有关叙述中，错误的是 。A目前IC芯片（如CPU芯片）的集成度可达数千万个电子元件BMoore定律指出，单块IC的集成度平均每半年翻一番C从原料熔练到最终产品包装，IC的制造工序繁多，工艺复杂，技术难度非常高D非接触式IC卡采用电磁感应方式无线传输数据，所以又称为射频卡或感应卡2在下列有关通信中使用的传输介质的叙述中，错误的是 。A计算机局域网中大多使用无屏蔽双绞线，其无中继有

2、效传输距离大约100mB同轴电缆可用于传输电视信号C光纤价格高，一般不在校园网和企业网中使用D微波的波长很短，适合于长距离、大容量无线通信3二进制数（1010）2与十六进制数（B2）16相加，结果为 。 A(273)8 B.(274)8 C.(314)8 D.(313)84.设有一段文本由基本ASCII字符和GB2312字符集中的汉字组成，其代码为B0 A1 57 69 6E D6 D0 CE C4 B0 E6，则在这段文本中含有 。 A1个汉字和9个西文字符 C.3个汉字和5个西文字符 B.2个汉字和7个西文字符 D.4个汉字和3个西文字符5.在下列有关CPU的叙述中,错误的是 .A. CP

3、U的主要组成部分有运算器、控制器和寄存器组B. CPU的主要功能是执行指令，不同类型CPU的指令系统通常有所不同C. 为了加快运算速度，CPU中可包含多个算术逻辑部件（ALU）D. 目前PC机所有的CPU芯片均为Intel公司的产品6PC机在加电启动过程中会运行POST程序、引导程序、系统自举程序等。若在启动过程中，用户按某一热键（通常是Del键）则可以启动CMOS设置程序。这些程序运行的顺序是 。APOST程序-CMOS设置程序-系统自举程序-引导程序BPOST程序-引导程序-系统自举程序-CMOS设置程序CCMOS设置程序-系统自举程序-引导程序-POST程序DPOST程序-CMOS设置程

4、序-引导程序-系统自举程序7.目前PC机一般都有USB和FirWire接口,用于连接各种外部设备.在下列关于这两种接口的叙述中,错误的是 .A. USB是一种串行接口,可以连接键盘、鼠标器、优盘、数码相机等多种设备B. FireWire是一种并行接口，通常用于连接需要高速传输大量数据的设备（如音视频设备）C. USB 2.0的数据传输速率是USB 1.0的数十倍D. 一个USB接口上可以连接不同的设备8.在下列有关PC机外存储器的叙述中,错误的是 . A.1.44MB软盘的每一面有80个磁道,每个磁道分为18个扇区,每个扇区512字节 B.硬盘的主要性能指标之一是平均存取时间,它与硬盘的转速(

5、rpm)有很大关系 C.优盘的缺点是:优盘均无写保护功能,且不能起到引导操作系统的作用 D.CD-R是目前常用的可记录式光盘,但其刻录的数据不能修改9.在下列关于Windows 98/XP操作系统的存储管理功能的叙述中,错误的是 .A. 存储管理的功能主要包括内存的发配与回收、共享和保护、自动扩充（虚存的实现）等B. 系统将程序（及其数据）划分成固定大小的页面，以页面为单位进行内存的分配和调度C. 虚拟存储器采用的页面调度算法是“先进先出”（FIFO）算法D. 在Windows 98和Windows XP 中，虚拟内存其实就是一个磁盘文件，即“交换文件”10人们常说“软件的主体是程序，程序的核

6、心是算法”。在下列有关程序、算法和数据结构的叙述中，错误的是 。A程序是用程序设计语言对解题对象和解题步骤进行的一种描述B算法和数据结构是设计与编写程序时首先要考虑的两个重要方面C算法是问题求解规则的一种过程描述，它必须有输入，但可以没有输出D数据结构主要是研究数据的逻辑结构、存储结构以及在这些数据上定义的运算11下列关于局域网的叙述中，错误的是 。A光纤分布式数字接口网（FDDI）常用于构造局域网的主干部分B采用红外线或者无线电波进行数据通信，可以构造无线局域网C两个或多个局域网可以进行互连D所有的局域网均为以太网12在下列有关IP地址、域名和URL的叙述中，错误的是 。A目前互联网中IP地

7、址大多数使用4个字节（32个二进位）表示B使用C类IP地址的网络规模最大，一个C类物理网络可以拥有上千万台主机C一台主机通常只能有一个IP地址，但可以有多个域名DURL用来标识WWW网中的每一个信息资源，不同的信息资源对应不同的URL13TCP/IP协议栈的应用层包括了各种高层协议，其中用于实现网络主机域名到IP地址映射的是 。 ADNS B.SMTP C.FTP D.Telnet14.ADSL是一种宽带接入技术,在线路两端加装ADSL Modem即可实现连网。下面关于ADSL的叙述中，错误的是 。A它利用普通铜质电话线作为传输介质，成本较低B在上网的同时，还可以接听和拨打电话，几乎互不影响C

8、从实现的技术上来看，数据的上传速度比数据的下载速度快D利用ADSL 技术上网的用户，其PC 机必须安装以太网卡15目前PC机使有的字符集及其编码标准确有多种，20多年来我国也颁布了多个汉字编码标准。在下列汉字编码标准中，不支持简体汉字的是 。 AGB2312 B.GBK C.BIG5 D.GB1803016.在下列有关数字图像的压缩编码和图像文件格式的叙述中,错误的是 .A. 图像压缩的出发点是图像中的数据相关性很强,且人眼的视觉有一定的局限性B. 压缩编码方法的优劣主要是看压缩倍数、重建图像的质量和压缩算法的复杂度等C. JPEG图像的压缩倍数是可以控制的，且大多为无损压缩D. GIF格式的

9、图像能够支持透明背景，且具有在屏幕上渐进显示的功能17在下列有关MIDI音乐的叙述中，错误的是 。AMIDI是一种音乐描述语言，它规定了乐谱的数字表示方法BMIDI音乐的文件扩展名为“.mid”或“.midi”CMIDI音乐可以使用Windows 中的媒体播放器等软件进行播放D播放MIDI音乐时，声音是通过音箱合成出来的18在下列有关中文版Windows 98/2000/XP操作系统功能与操作的叙述中，错误的是 。（此题有误） A“五笔字型”汉字输入法是Windows内置的输入法之一 B在“画图”软件中画圆和正方形时，可在按Shift键的同时用鼠标拖放操作 C在“资源管理器”窗口中，按Ctrl

10、键的同时用鼠标单击文件，可以实现该文件的反向选定D作为虚拟存储器使用的（页）交换文件可以设置在不同的逻辑硬盘上19在下列有关Microsoft PowerPoint 97/2000/2003功能和操作的叙述中，错误的是 。AWord 文档可以分别设置打开文件时的密码和修改文件时的密码B页边距的计量单位可以设置为磅、英寸和厘米等C可以将选中的英文统一设置为小写或大写，或词首字母大写，或句首字母大写等D利用工具栏上的“格式刷”，可以复制字体的格式，但不能复制段落的格式20在下列有关Microsoft PowerPoint97/2000/2003功能和操作的叙述中，错误的是 。APowerpoint

11、 文件可以另存为网页文件B演示文稿可以按讲义方式打印，且一张纸可以打印多达6或9张投影片C演示文稿的放映方式可以设置为循环放映D演示文稿中可以插入声音文件，但不可以录制旁白 第二部分 Visual Basic程序设计一、选择题（用答题卡答题，答案依次填在2130答题号内）21以下所列表示中，不可用作VB合法常量的个数有 个。vbcrlf 1# ”XY” 1E-5A0 B.1 C.2 D.422.下列表达式中,运算结果与函数Mid(s,i,i)的返回值相同的是 .A.left(s,i) & right(s,len(s)-i) B.left(right(s,len(s)-i+1),i)C.left

12、(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方式

13、下,可以使用不同文件号同时打开同一个顺序文件D. 用Binary方式打开一个随机文件,每次读写数据的字节长度取决于随机文件的记录长度25以下表达式中，能够被正确计算的表达式有 个。4096*23 Cint(5.6)*5461+2 6553*5+0.5*6 32768+12A.4 B.3 C.2 D.126.计算下面的表达式，其值是 。 Cint(-3.5)*Fix(-3.81)+Int(-4.1)*(5 mod 3)A.2 B.1 C.-1 D.627.下面关于对象作用域的说法中，正确的是 。A 在窗体模块中定义的全局过程，在整个程序中都可以调用它B 分配给已打开文件的文件号，仅在打开该文件的

14、过程范围内有效C 过程运行结束后，过程的静态变量的值仍然保留，所以静态变量作用域是整个模块D 在标准模块中定义的全局变量的作用域比在窗体模块中定义的全局变量的作用域大28下面有关数组的说法中， 是错误的。A 在模块中由于未使用Option Explicit语句，所以数组不用先定义就可以使用，只不过是Variant类型B 过程定义中，形参数组可以是定长字符串类型C Erase语句的作用是对固定大小数组的值重新初始化或收回分配给动态数组的存储空间D 定义数组时，数组维界值可以不是整数29下列控件中，不具有Change事件的控件中 个。 DriveListBox DirListBox FileLis

15、tBox ListBox A.0 B.1 C.2 D.330.算术表达式 的VB表达式是 。 A(e(2* *x-5)*log(x)+(sin(2x)3）/sqr(abs(sin(x)-cos(x2) B. (exp(2*3.14159*x-5)*log(x)+(sin(2*x)3)/sqr(abs(sin(x)-cos(x2) C.(exp(2* *x-5)*ln(x)+(sin(2*x)3)/sqr(abs(sin(x)-cos(x2)E. e(2*3.14159*x-5)*ln(x)+(sin(2*x)3)/ sqr(abs(sin(x)-cos(x2) 二、填空题（请将答案填写在答题纸

16、的相应答题号内，每个答案只占一行）1、下面的事件过程执行结束后，A(2)的值是 1 ，A（7）的值是 0 ，程序中第二个循环被执行了 4 次。Option explicitOption Base 1Private 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 kEnd Sub2、执行下面的程序，当单击Command1时，窗体上显

17、示的内容的第二行是 1 1 1 、第三行是 3 1 4 ，第四行是 1 3 1 。Option ExplicitPrivate 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, zEnd SubSub p1(x As Integer, ByVal y As Integer) Static z As Integer x = x + z y = x - z z = x +

18、 y Print x, y, zEnd Sub3、执行下面程序，单击Command1按钮后，数组元素A（1，1）的值是 6 ，A（2，3）的值是 8 ，A（3，2）的值是 3 。Option ExplicitPrivate 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

19、- 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) = kNext kEnd Sub4、执行下面程序，单击Command

20、1按钮后，变量fir值是 42 ,变量sec值是 138 ，变量thir值是 5796 .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; thirEnd SubSub look_for(f As Integer, s As Integer, t As Integer) Dim tem As String If 1# * f * s

21、 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 IfEnd Sub5、执行下面程序，单击command1按钮后，显示在窗体上的第一行内容是 34 、第二行内容是 26 、第三行内容是 8 。Option ExplicitDim a As IntegerPrivate Sub Command1_Click() D

22、im b As Integer a = 1 b = 2 Print fun1(fun1(a, b), b) Print a Print bEnd SubFunction 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 + yEnd Function6、下面是一个求函数f(x)值的程序。其中，（2n-1）!=135.(2n-1)。计算到第n项的绝对值为止。Option ExplicitPrivate S

23、ub Command1_Click() Dim x As Single, i As Integer, a As Single, sum As Single x = Text1 i = 1 a = -1 Do a = a * (-1) * (2 * i - 1) * x / (2 * (i + 1) If Abs(a) = 0.000001 Then Exit Do sum = sum + a i = i + 1 Loop Text2 = sumEnd Sub 7、本程序功能是将文本框中用逗号分隔的数据（文本框中必须要有数据），分别赋值给二维数组B的各个元素；并将B数组各个元素分行显示在文本框中

24、。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 = djkhfjkdh Exit Sub End If For i = 1 To 3 For j = 1 To 3 pos1 = pos2+1 pos2 = InStr(pos1, s, ,) If pos2 0Then b(i, j) = Val(Mid(s, pos1, pos2

25、 - pos1) Else b(i, j) = Val(Mid(s, pos1) End If Text2 = Text2 & Str(b(i, j) Next j Text2 = Text2 & vbCrLf Next iEnd Sub8、下面程序的功能是，对N阶方阵A中与副对角线平行的各条斜线（包括副对角线本身在内，共有2N-1条，如图示）上的元素分别进行累加求和并进行比较，求出累加和的最大值Max。过程Count的功能是计算各条斜线上的元素和；计算分两步进行：先求副对角线和其上方斜线上的元素和，再求副对角线下方斜线上的元素和。（本程序设定N=5，数据从文件data.txt中读取）Opti

26、on Base 1Private Sub Command1_Click() Dim i As Integer, a(5, 5) As Integer, j As Integer Dim n As Integer, max As Integer Open data.txt For Input As #5 Do While Not EOF(5) 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 loo

27、k_for(a, max) Text2 = Text2 & 最大和是： & maxEnd SubSub look_for(a() As Integer, m As Integer) Dim ub As Integer Ub = UBound(a, 1) m = a(1, 1) For i = 1 To Ub sum = a(1, i) For j = 2 To i sum = sum + a(j, i + 1 - j) Next j Text2 = Text2 & sum & vbCrLf If m sum Then m = sum Next i For i = 2 To ub sum = a(i, ub) For j = i + 1 To ub sum = sum + a(j, ub + i - j) Next j Text2 = Text2 & sum & vbCrLf If m 1Then s = n & *3+1 n = n * 3 + 1 Print s & = & n Else Exit Sub End If Call yz(n) End Sub