10年春季江苏省计算机等级考试VB真题

2010年春江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试二级试卷试卷语种:VB语言说明：1．本试卷包括计算机基础知识部分和程序设计部分，考试时间共12 0分钟；2．本试卷满分为60分，分选择题和填空题，试卷不分A、B类型；3．计算机基础知识部分全部是选择题(20分)，程序设计部分分为选择题(1 0 分)和填空题(30分)两种；4．选择题用答题卡答题。

每一项有A、B、C、D四个可供选择的答案，请选择其中一个你认为正确的答案，用HB铅笔涂写在答题卡的相应答题号内。

每选对一项得1分，不选或选错不得分；5．填空题用答题纸答题。

请将答案用蓝、黑色钢笔或圆珠笔填写在答题纸的相应答题号内，每个答案只占一行，不得换行。

每填对一个答案得1分，不填或填错不得分；6．请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是否填写正确。

7．考试结束时将试卷、答题卡和答题纸放在桌上，不得带走。

待监考人员收毕清点后，方可离场。

第一部分计算机基础知识1．下面关于通信技术的叙述中，错误的是___1___ 。

A．任何一个通信系统都有信源、信道和信宿这三个基本组成部分B．为了实现远距离传输信息，在模拟通信和数字通信中均采用载波技术C．为了降低传输信息的成本，在通信中广泛采用多路复用技术D．数字通信系统的一个主要性能参数是信道带宽,它指实际进行数据传输时单位时间内传输的二进位数目2．在下列有关集成电路及其应用的叙述中，错误的是___2___ 。

A．集成电路的制造工序繁多，工艺复杂且技术难度高B．经过抛光后的硅片称为晶圆，每个晶圆最多可以制成一个合格的集成电路芯片C．IC卡分为接触式IC卡和非接触式IC卡，后者通常又称为射频卡或感应卡D．集成电路应用十分广泛，目前我国第2代居民身份证中就有集成电路芯片3．在下列有关数字技术的一些叙述中，错误的是_____3_____ 。

A．数字技术是采用有限个状态(例如"0"和"1")来表示、处理、存储和传输信息的B．在逻辑代数中，1与1进行逻辑加(V)和逻辑乘(^)的结果相同c．任何一个十进制数，均可以精确地转换成等值的二进制数D．在PC机中，通常用原码表示正整数、用补码表示负整数4．在下列有关PC机主机的叙述中，错误的是___4___ 。

A．BIOS和CMOS存储器安装在主板上，普通用户一般不能自己更换B．由于PC机主板的物理尺寸等没有标准化，所以不同PC机的主板均不能互换C．芯片组是PC机各组成部分相互连接和通信的枢纽，一般由2块VLSI芯片组成D．芯片组决定了主板上所能安装的内存最大容量、速度及可使用的内存条类型5．在下列4个Intel微处理器产品中，采用双核结构的是_____5_____ 。

A. Core 2 DuoB．Pentium PROC．Pentium IIID．Pentium 46．在下列四种PC机主存储器类型中，目前常用的是_____6_____ 。

A．EDODRAMB．SDRAMC．RDRAMD．DDR SDRAM7．在下列有关PC机常用I/O接口的叙述中，错误的是7 。

A．目前显卡与显示器的接口大多采用VGA接口B. 可用于连接鼠标器的USB接口和PS/2接口的数据传输方式均是串行传输方式C. USB接口连接器有4个引脚，其中1个引脚可获得由主机提供的+1.5V电源D．IEEE-1394b接口也是PC机常用的一种高速接口8．在下列有关PC机外存储器的叙述中，错误的是8 。

A．由于数据存取速度慢、容量小等原因，软盘存储器已逐渐被淘汰B. 所有的硬盘都是由2个或2个以上盘片组成的，硬盘中的盘面数为盘片数的2倍C．目前有些优盘产品可以模拟软盘和硬盘启动操作系统D. 目前常见的组合光驱(“康宝”)既有DVD只读光驱功能，又有CD光盘刻录机功能9．在下列有关光盘存储容量的叙述中，错误的是9 。

A．80ram CD存储容量大约为200多兆字节B．120mm CD存储容量大约为600多兆字节C．单面单层的120mm DVD存储容量大约为4.7GBD．单面单层的120mm蓝光光盘存储容量大约为17GB10．在下列有关Windows系列操作系统及其功能的叙述中，错误的是10 。

A.Windows操作系统采用并发多任务方式支持系统中多个任务的执行B.Windows XP分为多个版本，它们可用于不同计算机和不同的应用．C.与Windows XP相比，Windows Vista做了许多改进，但其硬件运行环境要求较高D.无论是硬盘还是光盘，它们均采用相同的文件系统，即FA T文件系统11．在下列常用应用软件中，不能对编辑的文档设置密码的是11 。

A．Microsoft WordB．Microsoft ExcelC．Microsoft PowerPointD．Microsoft FrontPage12．在下列关于无线局域网的叙述中，错误的是12 。

A.在无线局域网中，无线接入点实际上是一种无线交换机，在室内覆盖距离可达几十米B.目前无线局域网可采用的协议有Wi-Fi和蓝牙等，后者的数据传输速率比前者更高C.若某电脑贴有Intel公司的"Centrino"(迅驰)标记，则该电脑应有集成的无线网卡D.无线网卡有多种类型，例如PCI无线网卡、USB无线网卡等13．IP地址分为A、B、C、D、E五类。

下列4个IP地址中，属于C类地址的是13 A． 1.110.24.2B．202.119.23.12C．130.24.35.68D．26.10.35.4R14．因特网上有许多不同结构的局域网和广域网互相连接在一起，它们能相互通信并协调工作的基础是因为都采用了______14______A．ATM协议B．TCP/lP协议C．X.25协议D．NetBIOS协议15．下列有关因特网接入的叙述中，错误的是______15______ 。

A．采用电话拨号接入时,数据传输速率只能达几十kbpsB．采用ADSL接入时，网络的下行数据传输速率通常高于上行数据传输速率．C．采用ADSL接入时，只需要ADSL调制解调器，不需要使用网卡D．采用有线电视接入时，多个终端用户将共享连接段线路的带宽16．在下列有关字符集及其编码的叙述中，错误的是______16______ 。

A．在我国台湾地区使用的汉字编码标准主要是GBK，该标准中收录了大量的繁体汉字B．GBl8030标准中收录的汉字数目超过2万，Windows XP操作系统支持该标准C．Unicode字符集中既收录了大量简体汉字，也收录了大量繁体汉字D．GB2312是我国颁布的第一个汉字编码标准，该字符集还收录了俄文、希腊字母等17．若一幅图像的大小为1024×768，颜色深度为16位，则该图像在不进行数据压缩时，其数据量大约为______17______ 。

A．768KB 、B．1.5MBC．3MBD．12.3MB18．在下列4种类型的数字化声音文件中，不可能包含人的说话声音的是18 。

A. WAVB．MP3C．MIDD．WMA19．在下列有关数字视频的叙述中，错误的是19 。

A．PC机所使用的视频卡能将输入的模拟视频信号进行数字化B．目前使用摄像头获取视频信息时,不需要使用专门的视频卡C．数字视频在数据压缩时只能使用MPEG标准，DVD就是采用MPEG一4标准压缩的D．计算机动画是一种合成视频，这种技术是发展动漫产业的基础20．下列是几种常见的电子商务的分类方法。

若将电子商务分为B-C、B-B等类型，则该分类是______20______ 。

A．按交易的双方进行分类B．按使用的网络类型分类c．按交易商品性质分类D．按交易商品规模分类第二部分Visual Basic程序设计.一、选择题(用答题卡答题，答案依次填在21—30答题号内)21.关于窗体，以下叙述中正确的是21 。

A.仅当窗体上没有可以获得焦点的控件时，窗体才可以获得焦点B.一个VB工程只能从某个指定的窗体开始启动C.只有窗体可以作为控件的容器D.Unload Me和End语句的效果总是等同的22.若a为长整型变量，则执行a=12 : Print Len(a);Len(Str(a)); Len(CStr(a))后，在窗体上看到的是22 。

A.4 2 3B.2 3 2C.4 3 2D.2 2 323.数学表达式对应的visual Basic表达式是23 。

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^2D.Cos(30)/(4*y+Log(x))+e^224.表达式Fix(-2.5)+Int(-3.5)+CInt(-2.5)的值是24 。

A.-8B.-7C.-6D.-525.以下说法中，错误的是25 。

A.使用缺省Preserve关键字的ReDim语句可以改变数组的维数和大小B.ReDim语句只能出现在过程中c.使用ReDim语句重新定义的动态数组，只能比原数组大D.使用ReDim语句可以对动态数组的所有元素进行初始化26.下列关于菜单的说法中，错误的是. 26 。

A.可以为菜单项选定快捷键B.若在"标题"文本框中键入连字符(一)，则可在菜单的两个菜单命令项之间加一条分隔线C.除了Click事件之外，菜单项还可以响应其他事件D.菜单编辑器的"名称"文本框用于输入菜单项的名称27.以下有关过程中形式参数的描述中，错误的是27 。

A.函数过程可以没有形式参数B.事件过程一定没有形式参数C.形参数组只能按地址与实参数组结合D.窗体与控件也可以作为过程的参数28.以下表达式中，可以表示"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<=0A．①③B．③④C．②④D．①②④29．设变量A为长整型，则下面不能正常执行的语句是29 。

A．A=32768*2 B．A=2*1.5*16384C．A=16384*2 D．A=190^230．以下有关滚动条控件(ScrollBar)的说法中错误的是30 。

A．只能在设计时设置Max与Min属性值B．Value属性返回滚动条内滑块当前所处位置的值C．拖动滚动条内滑块时，将触发滚动条的Scroll事件D．单击滚动箭头时，将触发滚动条的Change事件二:填空题1.执行下面的程序后,A(1,4)的值是_____,A(2,3)的值是_______,A(3,2)的值是Option ExplicitOption Base 1Private Sub Command1_Click()Dim a(4, 4) As Integer, ub As IntegerDim i As Integer, j As Integer, n As Integerub = UBound(a, 1)n = 0For i = ub To 1 Step -1For j = 1 Toub + 1 - in = n + 1a(j, j + i - 1) = nNext jNext iFor i = ub To 2 Step -1For j = ubTo i Step -1a(j, j - i + 1) = a(5 - j, 4 - j + i)Next jNext iFor i = 1 ToubFor j = 1 ToubPicture1.Print a(i, j);Next jPicture1.PrintNext iEnd Sub2.在InputBox函数对话框中输入4(或直接单击”确定”按钮)窗体显示的第一行内容__(4)___,第二行是__(5)___,第四行是__(6)___Option Explicitprivate Sub command1_Click()dim days as integerDays=InputBox("输入正整数",4)print fun(days)End Subprivate function fun(d as integer) as integerif D=1 thenfun=1elsefun=2*fun(D-1)+1printD;funend ifEnd Function3窗体显示的第一行是__(7)_____第三行是__(8)_____最后一行是___(9)__private sub command1_Click()Dim i as integer, k as integerFor i=1 to 5k=fun(i)+Iprint knext iprint iEnd SubFunction Fun(N as integer) as IntegerStatic M as integerDim j as integerM=M+NN=N+1For J=1 To MJ=J+2Fun=Fun+JNext JFun=Fun+NEnd Function4.窗体显示的第一行是__(10)_____第三行是__(11)_____,最后一行是_(12)____ Option ExplicitPrivate Sub Command1_Click()Dim S as String,N as IntegerS="3AB"N=14Print Convert(S,N)End SubPrivate Function Convert(S As string,N as Integer) as LongDim St as string, L as Integer, I as integerL=Len(s)Do while L>=1st=Left(s,1)if st>"9" thenst=Asc(st)-55end ifCovert=Convert+Val(st)*N^(L-1)print Val(st)*N^(L-1)L=L-1s=Right(S,L)LoopEnd Function5.窗体显示的第一行是__(13)___,第二行是__(14)____,第三行是___(15)__ Option ExplicitPrivate Sub Command1_Click()Dim s as string, k as integer, ch() as stringDim P as string,i as integers=Ucase("Meet me after the class.")For i=1 to Len(s)If Mid(s,i,1)<="Z" and Mid(s,i,1)>="A" thenp=p & Mid(s,i,1)ElseIf p<>"" thenk=k+1Redim Preserve ch(k)ch(k)=pp=""End ifNext iFor i=1 to Ubound(ch)iflen(ch(i))<=2 thenCall move_c(ch(i),1)elseCall move_c(ch(i),2)end ifprintch(i)next iEnd SUbPrivate Sub Move_c(s as string, k as integer)Dim i as integer, j as integer, p as string*1For i=1 to kp=Right(s,1)For j=Len(s)-1 to 1 step -1Mid(s,j+1,1)=Mid(s,j,1)Next js=p & Right(s,Len(s)-1)next iEnd Sub6.下面的程序是求的近似值，当第n项的绝对值小于10^-5时终止计算=1-1/3+1/5-1/7+…(-1)option explicitPrivate Sub Command1_Click()dim n as long, s as single, t as single, pi as singleConsteps=0.00001n=1t=1s=0dos=s+tn=n+1t=___(16)______Loop Until __(17)______pi=s*4Label1.Caption ="的近似值为:"End Sub7.下面程序的功能是，找出满足以下条件的三位整数，不含数字0,且任意交换数字位置所得到的数，均能被6整除Option explicitPrivate sub Command1_Click()dim i as integer, j as integer, k as integer, st as stringDim a(6) as integerFor i=100 to 999if ______(18)_________ thenFor j=1 to 6if a(j) Mod 6<>0 then Exit ForNext jif______(19)________THenst=st&str(i)k=k+1if k mod 3 =0 then st=st&vbcrlfEnd ifEnd ifNext IText1=stEnd SubPrivate Function fj(a() as integer, s as string) as BooleanDim n as Integer, i as integer, j as integerifInstr(s,"0")<>0 then___(20)___end ifFor i=1 to 3For j=1 to 2n=n+1____(21)___s=Left(s,1) & Right(s,1) & Mid(s,2,1)Next js=Right(s,1) & left(s,2)Next ifj=TrueEnd Function8.下面程序的功能是求两个特大整数之和，由于vb中能够表示的整数大小有一定限制，所以必须用新的方法求特大整数之和，本程序将特大整数使用字符类型进行处理，其中函数add用于求两个1位整数之和，参数c用于保存进位，注意，求和前需首先将两个整数按位对齐option explicitprivate Sub command1_Click()Dim s1 as string, s2 as string, s3 as stringdim i as integer, n1 as integer, n2 as integerdim c as integer, n as integers1=text1 : s2=Text2n=______22_____ifsgn(n)>0 thens2=________23__________elseifSgn(N)<0 thens1=String(Abs(n),"0") & s1end ifFor i=len(s1) to 1 step -1n1=Val(Mid(s1,i,1))n2=Val(Mid(s2,i,1))s3=_______(24)________Next iif c<>0 then s3=________(25)________Text3=s3End SubPrivate Function Add(x as integer, y as integer, c as Integer) as string Add=Cstr((x+y+c) Mod 10)_________(26)________End Function9.Option ExplicitPrivate Sub Command1_Click()dim i as long,i2 as long, flag as BooleanDim a(0 to 9) as integer, b(0 to 9) as integerFor i=100000 to 160000Call Validate(i,a,flag)if flag theni2=i*6call Validate(i2,b,flag)if flag and Compare(a,b) thenList1.AddItem i & " " & i2End ifEnd ifNext iend subPrivate Sub validate(n as long, a() as Integer, f as Boolean)dim p as integer, i as integerErase af=falsefor i=1 to len(cstr(N))p=___(27)___if a(p)=1 thenexit subelsea(p)=1end ifnext i___(29) f=trueEnd SubPrivate Function Compare(a() as integer, b() as integer) as Boolean dim j as integercompare=falsefor j=1 to Ubound(a)if a(j)<>b(j) then____(30)____exit functionEnd ifnext jCompare=trueEnd Function。