|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2009年春江苏计算机等级考试二级vb试卷 |
|||
绝密★启用前 2009年春 江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试 二级试卷 试卷语种： Visual Basic 说 明： 1.本试卷包括计算机基础知识部分和程序设计部分，考试时间共120分钟 2.本试卷满分为60分，分选择题和填空题，试卷不分A、B类型； 3.计算机基础知识部分全部是选择题(20分)，程序设计部分分为选择题(10分)和填空题(30分)两种； 4.选择题用答题卡答题。每一项有A、B、C、D四个可供选择的答案，请选择其中一个你认为正确的答案，用HB铅笔涂写在答题卡的相应答题号内。每选对一项得1分，不选或选错不得分； 5.填空题用答题纸答题。请将答案用蓝、黑色钢笔或圆珠笔填写在答题纸的相应答题号内，每个答案只占一行，不得换行。每填对一个答案得1分，不填或填错不得分； 6.请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是否填写正确。 7.考试结束时将试卷、答题卡和答题纸放在桌上，不得带走。待监考人员收点 第一部分计算机基础知识 1. 在下列有关现代信息技术的一些叙述中，正确的是 1 。 A.集成电路是20世纪90年代初出现的，它的出现直接导致了微型计算机的诞生 B.集成电路的集成度越来越高，目前集成度最高的已包含几百个电子元件 C.目前所有数字通信均不再需要使用调制解调技术和载波技术 D.光纤主要用于数字通信，它采用波分多路复用技术以增大信道容量‘ . 2. 最大的10位无符号二进制整数转换成八进制数是 2 .。 A.1023 B.1777 C.1000 D.1024 3. 在下列有关目前PC机CPU的叙述中，错误的是 3 。 A.CPU芯片主要是由Intel公司和AMD公司提供的 B."双核"是指PC机主板上含有两个独立的CPU芯片 C.Pentium 4微处理器的指令系统由数百条指令组成 D.Pentium 4微处理器中包含一定容量的Cache存储器 4. 在下列有关当前PC机主板和内存的叙述中，正确的是 4 。 A.主板上的BIOS芯片是一种只读存储器，其内容不可在线改写 B.绝大多数主板上仅有一个内存插座，因此PC机只能安装一根内存条 C.内存条上的存储器芯片属于SRAM(静态随机存取存储器) D.目前内存的存取时间大多在几个到十几个ns(纳秒)之间 5. 在下列有关PC机辅助存储器的叙述中，正确的是 5 。 A.硬盘的内部传输速率远远大于外部传输速率 B.对于光盘刻录机来说，其刻录信息的速度一般小于读取信息的速度 C.使用USB 2.0接口的移动硬盘，其数据传输速率大约为每秒数百兆字节 D.CD-ROM的数据传输速率一般比USB 2.0还快 6. 在下列PC机I/O接口中，数据传输速率最快的是 6 。 A.USB 2.0 B.IEEE-1394 C.IrDA (红外) D.SATA 7. 计算机软件可以分为商品软件、共享软件和自由软件等类型。在下列相关叙述中，错误的是 7 。 A.通常用户需要付费才能得到商品软件的使用权，但这类软件的升级总是免费的 B.共享软件通常是一种"买前免费试用"的具有版权的软件 C.自由软件的原则是用户可共享，并允许拷贝和自由传播 D.软件许可证是一种法律合同，它确定了用户对软件的使用权限 8. 人们通常将计算机软件划分为系统软件和应用软件。下列软件中，不属于应用软件类型的是 8 A.AutoCAD B.MSN C.Oracle D.Windows Media Player 9. 在下列有关Windows 98/2000/XP操作系统的叙述中，错误的是 9 。 A.系统采用并发多任务方式支持多个任务在计算机中同时执行 B.系统总是将一定的硬盘空间作为虚拟内存来使用 C.文件(夹)名的长度可达200多个字符 D.硬盘、光盘、优盘等均使用FAT文件系统 10. 在下列有关算法和数据结构的叙述中，错误的是 10 。 A.算法通常是用于解决某一个特定问题，且算法必须有输入和输出 B.算法的表示可以有多种形式，流程图和伪代码都是常用的算法表示方法 C.常用的数据结构有集合结构、线性结构、树形结构和网状结构等 D.数组的存储结构是一种顺序结构 11•因特网的IP地址由三个部分构成，从左到右分别代表 11 。 A.网络号、主机号和类型号 B.类型号、网络号和主机号 C.网络号、类型号和主机号 D.主机号、网络号和类型号 12•在下列有关ADSL技术及利用该技术接入因特网的叙述中，错误的是 12 。 A.从理论上看，其上传速度与下载速度相同 B.一条电话线上可同时接听/拨打电话和进行数据传输 C.利用ADSL技术进行数据传输时，有效传输距离可达几公里 D.目前利用ADSL技术上网的计算机一般需要使用以太网网卡 13.人们往往会用"我用的是 指的是数据通信中的 13 指标。 A.最高数据传输速率 B.平均数据传输速率 C.每分钟数据流量 D.每分钟IP数据包的数目 14•计算机局域网按拓扑结构进行分类，可分为环型、星型和 14 型等。 A.电路交换 B.以太 C.总线 D.对等 15.网络信息安全主要涉及数据的完整性、可用性、机密性等问题。保证数据的完整性就是 15 。 A.保证传送的数据信息不被第三方监视和窃取 B.保证发送方的真实身份 C.保证传送的数据信息不被篡改 D.保证发送方不能抵赖曾经发送过某数据信息 16.某计算机系统中，西文使用标准ASCII码、汉字采用GB2312编码。设有一段纯文本，其机内码为CB F5 DO B4 50 43 CA C7 D6 B8，则在这段文本中含有： 16 。 A.2个汉字和1个西文字符 B.4个汉字和2个西文字符 C.8个汉字和2个西文字符 D.4个汉字和1个西文字符 17.以下关于汉字编码标准的叙述中，错误的是 17 。 A.GB 2312标准中所有汉字的机内码均用双字节表示 B.我国台湾地区使用的汉字编码标准BIG 5收录的是繁体汉字 C.GB 18030汉字编码标准收录的汉字在GB 2312标准中一定能找到 D.GB 18030汉字编码标准既能与UCS(Unicode)接轨，又能保护已有中文信息资源 18.若波形声音未进行压缩时的码率为64kb/s，已知取样频率为8kHz，量化位数为8，那么它的声道数是 18 。 A.1 B 19.从信息处理的深度来区分信息系统，可分为业务处理系统、信息检索系统和信息分析系统等。在下列几种信息系统中，不属于业务处理系统的是 19 。 A.DSS B.CAI C.CAM D.OA 20.在下列有关信息系统开发、管理及其数据库设计的叙述中，错误的是 20 。 A.常用的信息系统开发方法可分为结构化生命周期方法、原型法、面向对象方法和CASE方法等 B.在系统分析中常常使用结构化分析方法，并用数据流程图和数据字典来表达数据和处理过程的关系 C.系统设计分为概念结构设计、逻辑结构设计和物理结构设计，通常用E-R模型作为描述逻辑结构的工具 D.从信息系统开发过程来看，程序 第二部分Visual Basic程序设计 一、选择题(用答题卡答题，答案依次填在21—30答题号内) 21．在列表框Listl中有若干列表项，可以删除选定列表项的语句是 21 A．List1.text="" B．List1．List(Listl．ListIndex)="" C．List1.Clear D．List1.RemoveItem List1.ListIndex 22．执行 22 语句时，会出现出错提示信息。 A．Print 5+7=14 B．Print 16384*2 C．Print 32768*2 D．Print "14"+32 23.数学表达式 A。(e^(2*∏*x—5)*Log(x)+(Sin(2x))^3)/Sqr(Sin(x)-Cos(x^2)) B．(Exp(2*3．14159*x一5)*Log(x)+(Sin(2*x))^3)/Sqr(Sin(x)一Cos(x^2)) C．(Exp(2*∏*x—5)*Ln(x)+(Sin(2*x))^3)/Sqr(Sin(x)—Cos(x^2)) D．e^(2*3.14159*x一5)*Ln(x)+(Sin(2*x))^3)/Sqr(Sing(x)—Cos(x^2)) 24．以下关于数组的说法中，错误的是 24 。 A．使用了Preserve予句的ReDim语句，只允许改变数组最后一维的上界 B．对于动态数组，ReDim语句可以改变其维界但不可以改变其数据类型 C．Erase语句的功能只是对固定大小的数组进行初始化 D．LBound函数返回值是指定数组某一维的下界 25．下列有关过程的说法中，错误的是 25 。 ‘ ． A．在Sub或Function过程内部不能再定义其它Sub或Function过程 B．对于使用ByRef说明的形参，在过程调用时形参和实参只能按传址方式结合 C．递归过程既可以是递归Function过程，也可以是递归Sub过程 D．可以像调用Sub过程一样使用Call语句调用Function过程 26．以下有关对象属性的说法中，错误的是 26 。 A．工具箱中的控件并不是VB中所有的控件 B．若将Frame的Enabled属性设置为False，则不能使用放置在Frame里面的控件 C．对象的Name属性在运行时不能改变 D．对象的所有属性都可以在属性窗口中设置 27．以下关于变量作用域的叙述中，正确的是： 2Z 。 A．窗体中凡用Private声明的变量只能在某个指定的过程中使用 B．模块级变量只能用Dim语句声明 C.凡是在窗体模块或标准模块的通用声明段用Public语句声明的变量都是全局变量 D.当不同作用域的同名变量发生冲突时，优先访问局限性小的变量 28.表达式CInt(4.5)+CInt(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的运算结果是 28 A.1 B. 29.若要使逻辑表达式x>y Xor Y A.X=3、Y=3、Z=4 B.X=2、Y=1、Z=2 C.x=1、Y=3、Z=2 D.x=2、Y=2、Z=2 30.在一个多窗体程序中，可以仅将窗体Form2从内存中卸载的语句是 30 A.Form2.Unload B．Unload Form 二、填空题(请将答案填写在答题纸的相应答题号内，每个答案只占一行) 1.执行下面程序,单击Commandl,则图片框中显示的第一行是(1)，显示的第二行是(2) ，最后一行显示的是 (3) 。 Private Sub Command1_Click() Dim a(3，3)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=3 To 1 Step -1 If i>=j Then a(i,j)=i-j Else a(i，j)=j-i End If Next j Next i For i=1 to 3 For j=3 To 1 Step -1 Picture1.Print a(i,j); Next j Picturel．Print Next i EndSub 2.运行下面程序,如果连续三次单击命令按钮之后，A数组共有(4) 个元素；数组元素A(2)的值是(5)，A(5)的值是(6) Option Explicit Option Base l 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 A(N) For I=K+1 To N A(I)=I*N+1 Next I ForI=1 To N Print A(I)； Next I EndSub 3．运行下面的程序，单击commandl，在窗体上显示的变量A的值为( 7 ),变量B的值为( 8 ) Option Explicit Dim A As Integer Private Sub Command1_Click() Dim B As Integer B=3 A=4 B=Fun(Fun(A,B+2),A)+B Print A,B EndSub Private Function Fun(N As Integer,K As Integer) N=N+A K=N-K Fun=N+K+A End Function 4．执行下面的程序，单击command1,窗体上显示的第一行是( 9 )，第二行是( 10 ),第四行是( 11 ),最后一行是( 12 ) Option Explicit Private Sub Command1_Click() Dim n As Integer n=5 Call test(n) Print n End Sub Private Sub test(ByVal n As Integer) Dim i As Integer,S As String If n>0 Then For i=l To n S=S & CStr(i) Next i Print S Call test(n-2) Else Print "0VER" EndIf EndSub 5.运行下列程序，单击Command1，在窗体上显示的第一行内容是 ( 12 ),第二行的内容是( 14 )，第三行的内容是( 15 )("A"的ASCII码是65,"z"是90) Option Explicit Private Sub Commandl_Click() Dim i As Integer,st As String，n As Integer,p As String*1 P="B" For i=3 To 1 Step -1 n=Asc(p)-i If n<65 Then n=n+26 st=Chr(n) st=st & F(i) Print st Next i EndSub Private Function F(n As Integer) Dim i As Integer Static S As Integer For i=1 To n s=s+i Nexti F=S End Function 6•用以下公式求f(x)的值。当通项的绝对值小于10^-7时停止计算，x的值由键盘输入。 f(x)=a1x1-a2x2+a3x3-…+(-1)n+1anxn+… |X| 1 其中 a1=1，a2=2，an= Option Explicit Private Sub Commandl_Click()、 Dim x As Single，fx As Single Dim a As Single，a1 As Single,a2 As Single Dim t As Single a1=l：a2=2 x=text1 If ( 16 ) Then MsgBox("x必须在-1---1之间") ExitSub End If fx=a1*x-a2*x*x t=(-1)*x*x DO a=1/(al+a2) t=(-1)*x*x fx=( 17 ) al=a2 ( 18 ) Loop Until Abs(a*t)<0.0000001 Text2=fx End Sub 7.学生的某次课程测验中，选择题的答案已记录在列表框list1中，其数据行格式是:学号为6个字符长度，2个空格，选择题的答案为15个字符长度，程序根据标准答案进行批改，每答对一题给1分，并将得分存放到列表框list1中，标准答案存放在变量Exact中。 Option Explicit 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=”ABCCBAACBBDCCDA” For I=( 19 ) Anw=（ 20 ） StudId=Left(Anw,6) Anw=Right(Anw,Len(Anw)-8) ( 21 ) For J=1 to Len(Anw) If （ 22 ） Then Scor=Scor+1 End If Next J List2.AddItem StudId & “ “ & Scor Next I End Sub 8．下面程序的功能是：统计存放在数组A中的N个数有多少个是不同的。具体做法是：变量Left指向要被处理的数(从第2个元素开始)，Right指向数组最后一个元素。若A(Left)与排在它前面的某个数组元素值相同，就用数组元素A(Right)的值来替换A(Left)的值，同时将变量Right的值减1；否则将变量Left的值加1，处理数组下一个元素，重复以上过程，直到Left>Right为止。Right的值即为不同的数的个数。 Option Explicit OptionBase 1 Private Sub Commandl_Click()
Dim A() As Integer,N As Integer,I AS Integer Dim OP As Integer N=InputBox("请输入数据个数", ,10) ReDim A(N) Randomize For I=1 To N A(I)=Int(Rnd*10)+1 Text1=Text1 & A(1) & " " Next I Call Statistic(A,OP) Text2="有" & oP & "个不同的数:" For I=1 To OP Text2=Text2 & A(I) & " " Next I End Sub Private Sub Statistic(A() As Integer,Right As Integer) Dim Left As Integer,K As Integer,I As Integer Right=( 23 ) Left=2 Do While Left<=Right K=( 24 ) For I=K To 1 Step -1 If A(Left)=A(I) Then Exit For Next I If ( 25 )Then Left=Left+1 ． Else A(Left)=A(Right) ( 26 ) End If End Sub 9.在计算机中用一个字节(8位),来存储一个字符的Ascii码，其中低7位二进制数对应字符的编码，每个字节的最高位一般保持为” Option Explicit Private Sub Commandl_Click()
Dim i As Integer，S As String Dim str As String，ch As String str=Text1.text For i=1 To Len(str) ( 27 ) Call convert(ch，s) List1.AddItem ch & "==>" & S Next i End Sub Private Sub convert(ch As String，S As String) Dim m As Integer,k As Integer,n As Integer,i As Integer s= ( 28 ) n=Asc(ch) Do While n>0 ( 29 )
S=m & S If m=1 Then k=k+1 End If n=n\2 For i=1 To 7-Len(s) '将字符的二进制代码补足7位 S="0" & S Next i If k Mod 2=0 Then ( 30 ) Else S="0" & S End If End Sub
|
|||