江苏春计算机二级VB.docx
《江苏春计算机二级VB.docx》由会员分享，可在线阅读，更多相关《江苏春计算机二级VB.docx（18页珍藏版）》请在冰豆网上搜索。
江苏春计算机二级VB
2009年春江苏计算机等级考试二级vb试卷
2009年春江苏计算机等级考试二级vb试卷
绝密★启用前
2009年春
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试
二级试卷
试卷语种：
VisualBasic
说明：
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.1023B.1777
C.1000D.1024
3.在下列有关目前PC机CPU的叙述中，错误的是3。
A.CPU芯片主要是由Intel公司和AMD公司提供的
B."双核"是指PC机主板上含有两个独立的CPU芯片
C.Pentium4微处理器的指令系统由数百条指令组成
D.Pentium4微处理器中包含一定容量的Cache存储器
4.在下列有关当前PC机主板和内存的叙述中，正确的是4。
A.主板上的BIOS芯片是一种只读存储器，其内容不可在线改写
B.绝大多数主板上仅有一个内存插座，因此PC机只能安装一根内存条
C.内存条上的存储器芯片属于SRAM（静态随机存取存储器）
D.目前内存的存取时间大多在几个到十几个ns（纳秒）之间
5.在下列有关PC机辅助存储器的叙述中，正确的是5。
A.硬盘的内部传输速率远远大于外部传输速率
B.对于光盘刻录机来说，其刻录信息的速度一般小于读取信息的速度
C.使用USB2.0接口的移动硬盘，其数据传输速率大约为每秒数百兆字节
D.CD-ROM的数据传输速率一般比USB2.0还快
6.在下列PC机I/O接口中，数据传输速率最快的是6。
A.USB2.0B.IEEE-1394
C.IrDA（红外）D.SATA
7.计算机软件可以分为商品软件、共享软件和自由软件等类型。
在下列相关叙述中，错误的是7。
A.通常用户需要付费才能得到商品软件的使用权，但这类软件的升级总是免费的
B.共享软件通常是一种"买前免费试用"的具有版权的软件
C.自由软件的原则是用户可共享，并允许拷贝和自由传播
D.软件许可证是一种法律合同，它确定了用户对软件的使用权限
8.人们通常将计算机软件划分为系统软件和应用软件。
下列软件中，不属于应用软件类型的是8
A.AutoCADB.MSNC.OracleD.WindowsMediaPlayer
9.在下列有关Windows98/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.人们往往会用"我用的是10M宽带上网"来说明白己计算机连网的性能，这里的"10M"
指的是数据通信中的13指标。
A.最高数据传输速率
B.平均数据传输速率
C.每分钟数据流量
D.每分钟IP数据包的数目
14•计算机局域网按拓扑结构进行分类，可分为环型、星型和14型等。
A.电路交换
B.以太
C.总线
D.对等
15.网络信息安全主要涉及数据的完整性、可用性、机密性等问题。
保证数据的完整性就是15。
A.保证传送的数据信息不被第三方监视和窃取
B.保证发送方的真实身份
C.保证传送的数据信息不被篡改
D.保证发送方不能抵赖曾经发送过某数据信息
16.某计算机系统中，西文使用标准ASCII码、汉字采用GB2312编码。
设有一段纯文本，其机内码为CBF5DOB45043CAC7
D6B8，则在这段文本中含有：
16。
A.2个汉字和1个西文字符
B.4个汉字和2个西文字符
C.8个汉字和2个西文字符
D.4个汉字和1个西文字符
17.以下关于汉字编码标准的叙述中，错误的是17。
A.GB2312标准中所有汉字的机内码均用双字节表示
B.我国台湾地区使用的汉字编码标准BIG5收录的是繁体汉字
C.GB18030汉字编码标准收录的汉字在GB2312标准中一定能找到
D.GB18030汉字编码标准既能与UCS（Unicode）接轨，又能保护已有中文信息资源
18.若波形声音未进行压缩时的码率为64kb/s，已知取样频率为8kHz，量化位数为8，那么它的声道数是18。
A.1B.2C.4D.8
19.从信息处理的深度来区分信息系统，可分为业务处理系统、信息检索系统和信息分析系统等。
在下列几种信息系统中，不属于业务处理系统的是19
。
A.DSSB.CAIC.CAMD.OA
20.在下列有关信息系统开发、管理及其数据库设计的叙述中，错误的是20。
A.常用的信息系统开发方法可分为结构化生命周期方法、原型法、面向对象方法和CASE方法等
B.在系统分析中常常使用结构化分析方法，并用数据流程图和数据字典来表达数据和处理过程的关系
C.系统设计分为概念结构设计、逻辑结构设计和物理结构设计，通常用E-R模型作为描述逻辑结构的工具
D.从信息系统开发过程来看，程序
第二部分VisualBasic程序设计
一、选择题（用答题卡答题，答案依次填在21—30答题号内）
21．在列表框Listl中有若干列表项，可以删除选定列表项的语句是21
A．List1.text=""B．List1．List（Listl．ListIndex）=""
C．List1.ClearD．List1.RemoveItemList1.ListIndex
22．执行22语句时，会出现出错提示信息。
A．Print5+7=14B．Print16384*2
C．Print32768*2D．Print"14"+32
23.数学表达式对应的VB表达式是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）+0Mod2的运算结果是28
A.1B.-1C.-2D.-3
29.若要使逻辑表达式x>yXorY结果为True，则x、Y、z的取值应为下列选项中的22。
A.X=3、Y=3、Z=4B.X=2、Y=1、Z=2
C.x=1、Y=3、Z=2D.x=2、Y=2、Z=2
30.在一个多窗体程序中，可以仅将窗体Form2从内存中卸载的语句是30
A.Form2.UnloadB．UnloadForm2C．Form2.EndD．Form2.Hide
二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）
1.执行下面程序,单击Commandl,则图片框中显示的第一行是
（1），显示的第二行是
（2），最后一行显示的是（3）。
PrivateSubCommand1_Click（）
Dima（3，3）AsInteger
DimiAsInteger,jAsInteger
Fori=1To3
Forj=3To1Step-1
Ifi>=jThen
a（i,j）=i-j
Else
a（i，j）=j-i
EndIf
Nextj
Nexti
Fori=1to3
Forj=3To1Step-1
Picture1.Printa（i,j）;
Nextj
Picturel．Print
Nexti
EndSub
2.运行下面程序,如果连续三次单击命令按钮之后，A数组共有（4）个元素；数组元素A
（2）的值是（5），A（5）的值是（6）
OptionExplicit
OptionBasel
PrivateSubCommand1_Click（）
StaticA（）AsInteger,NAsInteger
DimIAsInteger,KAsInteger
K=N
N=N+2
ReDimPreserveA（N）
ForI=K+1ToN
A（I）=I*N+1
NextI
ForI=1ToN
PrintA（I）；
NextI
Print
EndSub
3．运行下面的程序，单击commandl，在窗体上显示的变量A的值为（7）,变量B的值为（8）
OptionExplicit
DimAAsInteger
PrivateSubCommand1_Click（）
DimBAsInteger
B=3
A=4
B=Fun（Fun（A,B+2）,A）+B
PrintA,B
EndSub
PrivateFunctionFun（NAsInteger,KAsInteger）
N=N+A
K=N-K
Fun=N+K+A
EndFunction
4．执行下面的程序，单击command1,窗体上显示的第一行是（9），第二行是（10）,第四行是（11）,最后一行是（12）
OptionExplicit
PrivateSubCommand1_Click（）
DimnAsInteger
n=5
Calltest（n）
Printn
EndSub
PrivateSubtest（ByValnAsInteger）
DimiAsInteger,SAsString
Ifn>0Then
Fori=lTon
S=S&CStr（i）
Nexti
PrintS
Calltest（n-2）
Else
Print"0VER"
EndIf
EndSub
5.运行下列程序，单击Command1，在窗体上显示的第一行内容是（12）,第二行的内容是（14），第三行的内容是（15
）（"A"的ASCII码是65,"z"是90）
OptionExplicit
PrivateSubCommandl_Click（）
DimiAsInteger,stAsString，nAsInteger,pAsString*1
P="B"
Fori=3To1Step-1
n=Asc（p）-i
Ifn<65Thenn=n+26
st=Chr（n）
st=st&F（i）
Printst
Nexti
EndSub
PrivateFunctionF（nAsInteger）
DimiAsInteger
StaticSAsInteger
Fori=1Ton
s=s+i
Nexti
F=S
EndFunction
6•用以下公式求f（x）的值。
当通项的绝对值小于10^-7时停止计算，x的值由键盘输入。
f（x）=a1x1-a2x2+a3x3-…+（-1）n+1anxn+…|X|
1
其中a1=1，a2=2，an=,n=3,4,5…
OptionExplicit
PrivateSubCommandl_Click（）、
DimxAsSingle，fxAsSingle
DimaAsSingle，a1AsSingle,a2AsSingle
DimtAsSingle
a1=l：
a2=2
x=text1
If（16）Then
MsgBox（"x必须在-1---1之间"）
ExitSub
EndIf
fx=a1*x-a2*x*x
t=（-1）*x*x
DO
a=1/（al+a2）
t=（-1）*x*x
fx=（17）
al=a2
（18）
LoopUntilAbs（a*t）<0.0000001
Text2=fx
EndSub
7.学生的某次课程测验中，选择题的答案已记录在列表框list1中，其数据行格式是:
学号为6个字符长度，2个空格，选择题的答案为15个字符长度，程序根据标准答案进行批改，每答对一题给1分，并将得分存放到列表框list1中，标准答案存放在变量Exact中。
OptionExplicit
PrivateSubCommand1_click（）
DimAnwasstring,StudIdasstring
DimScorasInteger,Exactasstring
DimIasInteger,Jasinteger
Exact=”ABCCBAACBBDCCDA”
ForI=（19）
Anw=（20）
StudId=Left（Anw,6）
Anw=Right（Anw,Len（Anw）-8）
（21）
ForJ=1toLen（Anw）
If（22）Then
Scor=Scor+1
EndIf
NextJ
List2.AddItemStudId&““&Scor
NextI
EndSub
8．下面程序的功能是：
统计存放在数组A中的N个数有多少个是不同的。
具体做法是：
变量Left指向要被处理的数（从第2个元素开始），Right指向数组最后一个元素。
若A（Left）与排在它前面的某个数组元素值相同，就用数组元素A（Right）的值来替换A（Left）的值，同时将变量Right的值减1；否则将变量Left的值加1，处理数组下一个元素，重复以上过程，直到Left>Right为止。
Right的值即为不同的数的个数。
OptionExplicit
OptionBase1
PrivateSubCommandl_Click（）
DimA（）AsInteger,NAsInteger,IASInteger
DimOPAsInteger
N=InputBox（"请输入数据个数",,10）
ReDimA（N）
Randomize
ForI=1ToN
A（I）=Int（Rnd*10）+1
Text1=Text1&A
（1）&""
NextI
CallStatistic（A,OP）
Text2="有"&oP&"个不同的数:
"
ForI=1ToOP
Text2=Text2&A（I）&""
NextI
EndSub
PrivateSubStatistic（A（）AsInteger,RightAsInteger）
DimLeftAsInteger,KAsInteger,IAsInteger
Right=（23）
Left=2
DoWhileLeft<=Right
K=（24）
ForI=KTo1Step-1
IfA（Left）=A（I）ThenExitFor
NextI
If（25）Then
Left=Left+1
．Else
A（Left）=A（Right）
（26）
EndIf
Loop
EndSub
9.在计算机中用一个字节（8位）,来存储一个字符的Ascii码，其中低7位二进制数对应字符的编码，每个字节的最高位一般保持为”0”,在数据传输时可用作奇偶校验位，传输时Ascii代码转换成传输码的方法是:
若7位Ascii码有偶数个1，最高位为1，有奇数个1，则最高位为0，例如字母”A”的Ascii码十进制表示为65,二进制表示为00100001。
”A”的传输码则为”1010
0001”,本程序的功能就是把Ascii码转换成这种传输码
OptionExplicit
PrivateSubCommandl_Click（）
DimiAsInteger，SAsString
DimstrAsString，chAsString
str=Text1.text
Fori=1ToLen（str）
（27）
Callconvert（ch，s）
List1.AddItemch&"==>"&S
Nexti
EndSub
PrivateSubconvert（chAsString，SAsString）
DimmAsInteger,kAsInteger,nAsInteger,iAsInteger
s=（28）
n=Asc（ch）
DoWhilen>0
（29）
S=m&S
Ifm=1Then
k=k+1
EndIf
n=n\2
Loop
Fori=1To7-Len（s）'将字符的二进制代码补足7位
S="0"&S
Nexti
IfkMod2=0Then
（30）
Else
S="0"&S
EndIf
EndSub
答案:
2009年（春）笔试试卷。
第一部分计算机基础知识
（1）D
（2）B（3）B（4）D（5）B
（6）D（7）A（8）C（9）D（10）A
（11）B（12）A（13）A（14）C（15）C
（16）B（17）C（18）A（19）A（20）C，
第二部分VisualBasic程序设计
一、选择题
（21）D（22）B（23）B（24）C（25）B
（26）D（27）C（28）D（29）A（30）B
二、填空题，
（1）210
（2）101
（3）012（4）6
f5）5（6）31
（7）19（8）68．
f9）12345（10）123
（11）OVER（12）5，
（13）Y6（14）Z9
（15）A10（16）Abs（x）>=1．
（17）fx+a*t（18）a2=a
（19）0ToListl.ListCount-1（20）Listl.List（I）
（21）Scor=0（22）Mid（Anw，J，1）=Mid（Exact，J，1）
（23）UBound（A）（24）Left-1
（25）I=0（26）Right=Right-1
（27）ch=Mid（str，i，1）（28）""
（29）m=n
升级会员 