计算机二级VB考试2010年(春)笔试试卷

第一部分计算机基础知识 1．下面关于通信技术的叙述中，错误的是 1 D 。 A．任何一个通信系统都有信源、信道和信宿这三个基本组成部分 B．为了实现远距离传输信息，在模拟通信和数字通信中均采用载波技术 C．为了降低传输信息的成本，在通信中广泛采用多路复用技术 D．数字通信系统的一个主要性能参数是信道带宽，它指实际进行数据传输时单位时间内传输的二进制数目 2．在下列有关集成电路及其应用的叙述中，错误的是 2 B 。 A．集成电路的制造工序繁多，工艺复杂且技术难度高 B．经过抛光后的硅片成为晶圆，每个晶圆最多可以制成一个合格的集成电路芯片 C．IC卡分为接触式IC卡和非接触式IC卡，后者通常又称为射频卡或感应卡 D．集成电路应用十分广泛，目前我国第2代身份证中就有集成电路芯片 3．在下列有关数字技术的一些叙述中，错误的是 3 C 。 A．数字技术是采用有限个状态（例如“0”和“1”）来 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 示、处理、存储和传输信息的 B．再逻辑代数中，1与1进行逻辑加（∨）和逻辑乘（∧）的结果相同 C．任何一个十进制数，均可以精确地转换成等值的二进制数 D．在PC机中，通常用原码表示正整数，用补码表示负整数 4．在下列有关PC机主机的叙述中，错误的是 4 B 。 A．BIOS和CMOS存储器安装在主板上，普通用户一般不能自己更换 B．由于PC机主板的物理尺寸等没有标准化，所以不同PC机的主板均不能互换 C．芯片组是PC机各组成部分相互连接和通信的枢纽，一般由2块VLSI芯片组成 D．芯片组决定了主板上所能安装的内存最大容量、速度及可使用的内存条类型 5．在下列4个Intel微处理器产品中，采用双核结构的是 5 A 。 A．Core 2 Duo B．Pentium PRO C．Pentium Ⅲ D．Pentium 4 6．在下列四种PC机主存储器类型中，目前常用的是 6 D 。 A．EDO DRAM B．SDRAM C．RDRAM D．DDR SDRAM 7．在下列有关PC机常用I/O接口的叙述中，错误的是 7 B 。 A．目前显卡与显示器的接口大多采用VGA接口 B．可用于连接鼠标器的USB接口和PS/2接口的数据传输方式均是串行传输方式 C．USB接口连接器有4个引脚，其中1个引脚可获得由主机提供的+1.5V电源 D．IEEE-1394b接口也是PC机常用的一种高速接口 8．在下列有关PC机外存储器的叙述中，错误的是 8B 。 A．由于数据存取速度慢、容量小等原因，软盘存储器已逐渐被淘汰 B．所有的硬盘都是由2个或2个以上盘片组成的，盘片中的盘面数为盘片数的2倍 C．目前有些优盘产品可以模拟软盘和硬盘启动操作系统 D．目前常见的组合光驱（“康宝”）既有DVD只读光驱功能，又有CD光盘刻录机功能 9．在下列有关光盘存储器容量的叙述中，错误的是 9 D 。 A．80mmCD存储容量大约为200多兆字节 B．120 mmCD存储容量大约为600多兆字节 C．单面单层的120 mmDVD存储容量大约为4.7GB D．单面单层的120 mm 蓝光光盘存储容量大约为17GB 10．在下列有关Windows系列操作系统及其功能的叙述中，错误的是 10D 。 A．Windows 操作系统采用并发多任务方式支持系统中多个任务的执行 B．WindowsXP分为多个版本，它们可用于不同计算机和不同的应用 C．与WindowsXP相比，WindowsVista做了许多改进，但其硬件运行环境要求较高 D．无论是硬盘还是光盘，它们均采用相同的文件系统，即FAT系统 11．在下列常用英语软件中，不能对编辑的文档设置密码的是 11B 。 A．Microsoft Word B．Microsoft Excellent C．Microsoft PowerPoint D．Microsoft FrontPage 12．在下列关于无线局域网的叙述中，错误的是 12 B 。 A．在关于无线局域网中，无线接入点实际上是一种无线交换机，在室内覆盖距离可达几十米 B．目前无线局域网可采用的协议有Wi-Fi和蓝牙等，后者的数据传输速率比前者更高 C．若某电脑贴有Intel公司的“Centrino”（迅驰）标记，则该电脑应有集成的无线网卡 D．无线网卡有多种类型，例如PCI无线网卡、USB无线网卡等 13．IP地址分为A、B、C、D、E五类。下列4个IP地址中，属于C类地址的是 B 13 。 A．1.110.24.2 B．202.119.23.12 C．130.24.35.68 D．26.10.35.48 14．因特网上有许多不同结构的局域网和广域网互相连接在一起，它们能相互通信并协调工作的基础是因为都采用了 14 B 。 A．ATM协议 B．TCP/IP协议 C．X.25协议 D．NetBIOS协议 15．下列有关因特网接入的叙述中，错误的是 15 C 。 A．采用电话拨号接入时，数据传输速率只能达到几十kbps B．采用ADSL接入时，网络的下行数据传输速率通常高于上行数据传输速率 C．采用ADSL接入时，只需要ADSL调制解调器，不需要使用网卡 D．采用有线电视接入时，多个终端用户将共享连接段线路的带宽 16．在下列有关字符集及其编码的叙述中，错误的是 16 A 。 A．在我国台湾地区使用的汉字编码标准主要是GBK，该标准中收录了大量的繁体汉字 B．GB 18030标准中收录的汉字数目超过2万，WindowsXP操作系统支持该标准 C．Unicode 字符集中既收录了大量简体汉字，也收录了大量繁体汉字 D．GB 2312是我国颁布的第一个汉字编码标准，该字符集还收录了俄文、希腊字母等 17．若一幅图像的大小为1024×768，颜色深度为16位，则该图像在不进行数据压缩时，其数据量大约为 17 B 。 A．768KB B．1.5MB C．3MB D．12.3MB 18．在下列4种类型的数字化声音文件中，不可能包含人的说话声音的是 18 C 。 A．WAV B．MP3 C．MID D．WMA 19．在下列有关数字视频的叙述中，错误的是 19C 。 A．PC机所使用的视频卡能将输入的模拟视频信号进行数字化 B．目前使用摄像头获取视频信息时，不需要使用专门的射频卡 C．数字视频在数据压缩时只能使用MPEG标准，DVD就是采用MPEG-4标准压缩的 D．计算机动画是一种合成视频，这种技术是发展动漫产业的基础 20．下列是几种常见的电子商务的分类方法。若将电子商务分为B-C、B-B等类型，则该分类是 20 A 。 A．按交易的双方进行分类 B．按使用的网络类型分类 C．按交易商品性质分类 D．按交易商品规模分类 第二部分Visual Basic程序设计 一、选择题(用答题卡答题， 答案 八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案 依次填在21～30答题号内) 21．关于窗体，以下叙述中正确的是 21 A 。 A．仅当窗体上没有可以获得焦点的控件时，窗体才可以获得焦点 B．一个VB工程只能从某个指定的窗体开始启动 C．只有窗体可以作为控件的容器 D．Unload Me和End语句的效果总是等同的 C22．若a为长整型变量，则执行a=12:Print Len(a);Len(Str(a));Len(CStr(a))后，在窗体上看到的是 22B 。 A．4 2 3 B．2 3 2 C．4 3 2 D．2 2 3 23．数学表达式 对应的VB表达式是 23 A 。 A．Cos(30*3.14159/180)/(4*y+Ln(x))+Exp(2) B．Cos(30*3.14159/180)/(4*y+Log(x))+Exp(2) C．Cos(30*3.14159/180)/(4*y+Ln(x))+e^2 D．Cos(30)/(4*y+Log(x))+e^2 24．表达式Fix(-2.5)+ Int(-3.5)+Cint(-2.5)的运算结果是 24A 。 A．-8 B．-7 C．-6 D．-5 C25．以下说法中，错误的是 25 。 A．使用缺省Preserve关键字的ReDim语句可以改变数组的维数和大小 B．ReDim语句只能出现在过程中 C．使用ReDim语句重新定义的动态数组，只能比原数组大 D．使用ReDim语句可以对动态数组的所有元素进行初始化 D26．以下关于菜单的说法中，错误的是 26 。 A．可以为菜单项选定快捷键 B．若在“标题”文本框中键入连字符（-），则可在菜单的两个菜单命令项之间加一条分割线 C．除了Click事件之外，菜单项还可以响应其他事件 D．菜单编辑器的“名称”文本框用于输入菜单项的名称 C27．下列有关过程中形式参数的描述中，错误的是 27 。 A．函数过程可以没有形式参数 B．事件过程一定没有形式参数 C．形参数组只能按地址与实参数组结合 D．窗体与控件也可以作为过程的参数 C28．以下表达式中，可以表示“A和B之一大于0”的是 28 。 ①A*B<=0 ②A>0 Xor B>0 ③A>0 Or B>0 ④A>0 And B<=0 Or B>0 And A<=0 A．①③ B．③④ C．②④ D．①②④ C29．设变量A为长整型，则下面不能正常执行的语句是 29 。 A．A=32768*2 B．A=2*1.5*16384 C．A=16384*2 D．A=190^2 A30．以下有关滚动条控件（ScrollBar）的说法中错误的是 30 。 A．只能在设计时设置Max与Min属性值 B．Value属性返回滚动条内滑块当前所处位置的值 C．拖动滚动条内滑块时，将触发滚动条的Scroll事件 D．拖动滚动箭头时，将触发滚动条的Change事件 二、填空题(请将答案填写在答题纸的相应答题号内，每个答案只占一行) 1．执行下面程序，单击Command1后，a(1,4)的值是 1 ，a(2,3)的值是 2 ，a(3,2)的值是 3 。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim a(4, 4) As Integer, ub As Integer Dim i As Integer, j As Integer, n As Integer ub = UBound(a, 1) n = 0 For i = ub To 1 Step -1 For j = 1 To ub + 1 - i n = n + 1 a(j, j + i - 1) = n Next j Next i For i = ub To 2 Step -1 For j = ub To i Step -1 a(j, j - i + 1) = a(5 - j, 4 - j + i) Next j Next i For i = 1 To ub For j = 1 To ub picture1.Print a(i, j); Next j picture1.Print Next i End Sub 7 4 2 1 6 8 5 3 3 5 9 6 1 2 4 10 2．执行下面程序，单击Command1后，在InputBox函数对话框中输入4（或直接单击“确定”按钮），窗体第一行显示的内容是 2 3 ；第二行显示的内容是 3 7 ，第四行显示的内容是 15 。 Option Explicit Private Sub Command1_Click() Dim days As Integer days = InputBox("输入正整数", , 4) Print fun(days) End Sub Private Function fun(d As Integer) As Integer If d = 1 Then fun = 1 Else fun = 2 * fun(d - 1) + 1 Print d; fun End If End Function 3．执行下面的程序，单击Command1后，窗体第一行显示的内容是 4 ，第三行显示的内容是 49 ，最后一行显示的内容是 250 。 Private Sub Command1_Click() Dim i As Integer, k As Integer For i = 1 To 5 k = fun(i) + i Print k Next i Print i End Sub Private Function fun(n As Integer) As Integer Static m As Integer Dim j As Integer m = m + n n = n + 1 For j = 1 To m j = j + 2 fun = fun + j Next j fun = fun + n End Function 4．执行下面的程序，单击Command1按钮，则在窗体上显示的第一行内容是 10 ，第三行内容是 11 ，最后一行内容是 12 。 Option Explicit Private Sub Command1_Click() Dim s As String, n As Integer s = "3AB" n = 14 Print convert(s, n) End Sub Private Function convert(s As String, n As Integer) As Long Dim st As String, m As Integer, i As Integer m = Len(s) Do While m >= 1 st = Left(s, 1) If st > "9" Then st = Asc(st) - 55 '"A"的ASCII码为65 End If convert = convert + Val(st) * n ^ (m - 1) Print Val(st) * n ^ (m - 1) m = m - 1 s = Right(s, m) Loop End Function 5．执行下列程序，单击Command1，在窗体上显示的第一行内容是 13 ，第二行的内容是 14 ，最后一行的内容是 15 。 Option Explicit Private Sub Command1_Click() Dim s As String, k As Integer, ch() As String Dim p As String, i As Integer s = UCase("Meet me after the class.") For i = 1 To Len(s) If Mid(s, i, 1) <= "Z" And Mid(s, i, 1) >= "A" Then p = p & Mid(s, i, 1) ElseIf p <> "" Then k = k + 1 ReDim Preserve ch(k) ch(k) = p p = "" End If Next i For i = 1 To UBound(ch) If Len(ch(i)) <= 2 Then Call move_c(ch(i), 1) Else Call move_c(ch(i), 2) End If Print ch(i) Next i End Sub Private Sub move_c(s As String, k As Integer) Dim i As Integer, j As Integer, p As String * 1 For i = 1 To k p = Right(s, 1) For j = Len(s) - 1 To 1 Step -1 Mid(s, j + 1, 1) = Mid(s, j, 1) Next j s = p & Right(s, Len(s) - 1) Next i End Sub 6．下面程序的功能是求的近似值，当第n项的绝对值小于10-5时停止计算。 请完善如下程序： Option Explicit Private Sub Command1_Click() Dim n As Long, s As Single, t As Single, pi As Single, a2 As Single Const eps = 0.00001 n = 1 t = 1 s = 0 Do s = s + t n = n + 1 t= 16 Loop Until 17 pi = s * 4 Label1.Caption = "π的近似值为:" Text1 = pi End Sub 7．下面程序的功能是：找出满足以下条件的三位数，不含数字0；且任意交换数字位置所得到的数均能被6整除。 Option Explicit Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer, st As String Dim a(6) As Integer For i = 100 To 999 If 18 Then For j = 1 To 6 If a(j) Mod 6 <> 0 Then Exit For Next j If 19 Then st = st & Str(i) k = k + 1 If k Mod 3 = 0 Then st = st & vbCrLf End If End If Next i Text1 = st End Sub Private Function fj(a() As Integer, s As String) As Boolean Dim n As Integer, i As Integer, j As Integer If InStr(s, "0") <> 0 Then 20 End If For i = 1 To 3 For j = 1 To 2 n = n + 1 21 s = Left(s, 1) & Right(s, 1) & Mid(s, 2, 1) Next j s = Right(s, 1) & Left(s, 2) Next i fj = True End Function 8．下列程序的功能是求两个特大整数之和。由于VB中能够表示的整数大小有一定限制，所以必须用新的方法求特大整数之和。本程序将特大整数使用字符类型进行处理，其中函数Add用于求两个1位整数之和，参数c用于保存进位。注意：求和之前需先将两个整数按位对齐。 Option Explicit Private Sub Command1_Click() Dim s1 As String, s2 As String, s3 As String Dim i As Integer, n1 As Integer, n2 As Integer Dim c As Integer, n As Integer s1 = Text1: s2 = Text2 n = 22 If Sgn(n) > 0 Then s2 = 23 ElseIf Sgn(n) < 0 Then s1 = String(Abs(n), "0") & s1 '函数String(n, "0")返回包含n个0的字符串 End If For i = Len(s1) To 1 Step -1 n1 = Val(Mid(s1, i, 1)) n2 = Val(Mid(s2, i, 1)) s3 = 24 Next i If c <> 0 Then s3 = 25 Text3 = s3 End Sub Private Function add(x As Integer, y As Integer, c As Integer) As String '参数c记录进位 add = CStr((x + y + c) Mod 10) 26 End Function 9．下列程序的功能是：找出各位数字互不相同，且其6倍数仍由组成该数的数字构成的六位整数。例如：126873的6倍数是761238，就是符合条件的数。 提示：程序中用a、b数组来标示数组元素下标值对应的数字是否出现在六位整数中。例如2出现在某六位整数中，则a(2)得值为1。 Option Explicit Private Sub Command1_Click() Dim i As Long, i2 As Long, flag As Boolean Dim a(0 To 9) As Integer, b(0 To 9) As Integer For i = 100000 To 160000 Call validate(i, a, flag) If flag Then i2 = i * 6 Call validate(i2, b, flag) If flag And compare(a, b) Then List1.AddItem i & " " & i2 End If End If Next i End Sub '验证一个数是由不同数字组成 Private Sub validate(n As Long, a() As Integer, f As Boolean) Dim p As Integer, i As Integer Erase a '初始化数组a f = False For i = 1 To Len(CStr(n)) p = 27 If a(p) = 1 Then Exit Sub Else 28 End If Next i 29 End Sub '判断两个数是否由相同数字组成 Private Function compare(a() As Integer, b() As Integer) As Boolean Dim j As Integer compare = False For j = 1 To UBound(a) If a(j) <> b(j) Then 30 End If Next j compare = True End Function 第一部分 信息技术基础知识 DBCBA DCBDD DBBBC ABCCA 第二部分Visual Basic程序设计 一、选择题 21.A 22.C 23.B 24.A 25.C 26.C 27.B 28.C 29.C 30.A 二、填空题 (1) 1 (2) 5 (3) 5 (4) 2 3 (5) 3 7 (6) 15 (7) 7 (8) 30 (9) 7 (10) 588 (11) 11 (12) 739 (13) ETME (14) EM (15) SSCLA (16) (-1)^( n+1)/(2*n-1) (17) abs(t)6 (20) exit function (21) a(n)=s (22) len(s1)-len(s2) (23) string(n,”0”)&s2 (24) add(n1,n2,c)&s3 (25) c&s3 (26) c=(x+y+c)\10 (27) mid(n,i,1) (28) a(p) =1 (29) f=true (30) exit function _1330365058.unknown _1330625829.unknown