10年春季江苏省计算机等级考试VB真题.docx
《10年春季江苏省计算机等级考试VB真题.docx》由会员分享，可在线阅读，更多相关《10年春季江苏省计算机等级考试VB真题.docx（18页珍藏版）》请在冰点文库上搜索。
10年春季江苏省计算机等级考试VB真题
2010年春
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试
二级试卷
试卷语种:
VB语言
说明：
1．本试卷包括计算机基础知识部分和程序设计部分，考试时间共120分钟；
2．本试卷满分为60分，分选择题和填空题，试卷不分A、B类型；
3．计算机基础知识部分全部是选择题（20分），程序设计部分分为选择题（10分）和填空题（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.Core2Duo
B．PentiumPRO
C．PentiumIII
D．Pentium4
6．在下列四种PC机主存储器类型中，目前常用的是_____6_____。
A．EDODRAM
B．SDRAM
C．RDRAM
D．DDRSDRAM
7．在下列有关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．80ramCD存储容量大约为200多兆字节
B．120mmCD存储容量大约为600多兆字节
C．单面单层的120mmDVD存储容量大约为4.7GB
D．单面单层的120mm蓝光光盘存储容量大约为17GB
10．在下列有关Windows系列操作系统及其功能的叙述中，错误的是10。
A.Windows操作系统采用并发多任务方式支持系统中多个任务的执行
B.WindowsXP分为多个版本，它们可用于不同计算机和不同的应用
．C.与WindowsXP相比，WindowsVista做了许多改进，但其硬件运行环境要求较高
D.无论是硬盘还是光盘，它们均采用相同的文件系统，即FAT文件系统
11．在下列常用应用软件中，不能对编辑的文档设置密码的是11。
A．MicrosoftWord
B．MicrosoftExcel
C．MicrosoftPowerPoint
D．MicrosoftFrontPage
12．在下列关于无线局域网的叙述中，错误的是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.2
B．202.119.23.12
C．130.24.35.68
D．26.10.35.4R
14．因特网上有许多不同结构的局域网和广域网互相连接在一起，它们能相互通信并协调工作的基础是因为都采用了______14______
A．ATM协议
B．TCP/lP协议
C．X.25协议
D．NetBIOS协议
15．下列有关因特网接入的叙述中，错误的是______15______。
A．采用电话拨号接入时,数据传输速率只能达几十kbps
B．采用ADSL接入时，网络的下行数据传输速率通常高于上行数据传输速率．
C．采用ADSL接入时，只需要ADSL调制解调器，不需要使用网卡
D．采用有线电视接入时，多个终端用户将共享连接段线路的带宽
16．在下列有关字符集及其编码的叙述中，错误的是______16______。
A．在我国台湾地区使用的汉字编码标准主要是GBK，该标准中收录了大量的繁体汉字
B．GBl8030标准中收录的汉字数目超过2万，WindowsXP操作系统支持该标准
C．Unicode字符集中既收录了大量简体汉字，也收录了大量繁体汉字
D．GB2312是我国颁布的第一个汉字编码标准，该字符集还收录了俄文、希腊字母等
17．若一幅图像的大小为1024×768，颜色深度为16位，则该图像在不进行数据压缩时，其数据量大约为______17______。
A．768KB、
B．1.5MB
C．3MB
D．12.3MB
18．在下列4种类型的数字化声音文件中，不可能包含人的说话声音的是18。
A.WAV
B．MP3
C．MID
D．WMA
19．在下列有关数字视频的叙述中，错误的是19。
A．PC机所使用的视频卡能将输入的模拟视频信号进行数字化
B．目前使用摄像头获取视频信息时,不需要使用专门的视频卡
C．数字视频在数据压缩时只能使用MPEG标准，DVD就是采用MPEG一4标准压缩的
D．计算机动画是一种合成视频，这种技术是发展动漫产业的基础
20．下列是几种常见的电子商务的分类方法。
若将电子商务分为B-C、B-B等类型，则该分类
是______20______。
A．按交易的双方进行分类
B．按使用的网络类型分类
c．按交易商品性质分类
D．按交易商品规模分类
第二部分VisualBasic程序设计.
一、选择题（用答题卡答题，答案依次填在21—30答题号内）
21.关于窗体，以下叙述中正确的是21。
A.仅当窗体上没有可以获得焦点的控件时，窗体才可以获得焦点
B.一个VB工程只能从某个指定的窗体开始启动
C.只有窗体可以作为控件的容器
D.UnloadMe和End语句的效果总是等同的
22.若a为长整型变量，则执行a=12:
PrintLen（a）;Len（Str（a））;Len（CStr（a））后，在窗体上看到的是22。
A.423B.232C.432D.223
23.数学表达式对应的visualBasic表达式是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^2
D.Cos（30）/（4*y+Log（x））+e^2
24.表达式Fix（-2.5）+Int（-3.5）+CInt（-2.5）的值是24。
A.-8B.-7C.-6D.-5
25.以下说法中，错误的是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>0XorB>0③A>0OrB>0④A>0AndB<=0OrB>0AndA<=0
A．①③B．③④C．②④D．①②④
29．设变量A为长整型，则下面不能正常执行的语句是29。
A．A=32768*2B．A=2*1.5*16384
C．A=16384*2D．A=190^2
30．以下有关滚动条控件（ScrollBar）的说法中错误的是30。
A．只能在设计时设置Max与Min属性值
B．Value属性返回滚动条内滑块当前所处位置的值
C．拖动滚动条内滑块时，将触发滚动条的Scroll事件
D．单击滚动箭头时，将触发滚动条的Change事件
二:
填空题
1.执行下面的程序后,A（1,4）的值是_____,A（2,3）的值是_______,A（3,2）的值是
OptionExplicit
OptionBase1
PrivateSubCommand1_Click（）
Dima（4,4）AsInteger,ubAsInteger
DimiAsInteger,jAsInteger,nAsInteger
ub=UBound（a,1）
n=0
Fori=ubTo1Step-1
Forj=1Toub+1-i
n=n+1
a（j,j+i-1）=n
Nextj
Nexti
Fori=ubTo2Step-1
Forj=ubToiStep-1
a（j,j-i+1）=a（5-j,4-j+i）
Nextj
Nexti
Fori=1Toub
Forj=1Toub
Picture1.Printa（i,j）;
Nextj
Picture1.Print
Nexti
EndSub
2.在InputBox函数对话框中输入4（或直接单击”确定”按钮）窗体显示的第一行内容__（4）___,第二行是__（5）___,第四行是__（6）___
OptionExplicit
privateSubcommand1_Click（）
dimdaysasinteger
Days=InputBox（"输入正整数",4）
printfun（days）
EndSub
privatefunctionfun（dasinteger）asinteger
ifD=1then
fun=1
else
fun=2*fun（D-1）+1
printD;fun
endif
EndFunction
3窗体显示的第一行是__（7）_____第三行是__（8）_____最后一行是___（9）__
privatesubcommand1_Click（）
Dimiasinteger,kasinteger
Fori=1to5
k=fun（i）+I
printk
nexti
printi
EndSub
FunctionFun（Nasinteger）asInteger
StaticMasinteger
Dimjasinteger
M=M+N
N=N+1
ForJ=1ToM
J=J+2
Fun=Fun+J
NextJ
Fun=Fun+N
EndFunction
4.窗体显示的第一行是__（10）_____第三行是__（11）_____,最后一行是_（12）____
OptionExplicit
PrivateSubCommand1_Click（）
DimSasString,NasInteger
S="3AB"
N=14
PrintConvert（S,N）
EndSub
PrivateFunctionConvert（SAsstring,NasInteger）asLong
DimStasstring,LasInteger,Iasinteger
L=Len（s）
DowhileL>=1
st=Left（s,1）
ifst>"9"then
st=Asc（st）-55
endif
Covert=Convert+Val（st）*N^（L-1）
printVal（st）*N^（L-1）
L=L-1
s=Right（S,L）
Loop
EndFunction
5.窗体显示的第一行是__（13）___,第二行是__（14）____,第三行是___（15）__
OptionExplicit
PrivateSubCommand1_Click（）
Dimsasstring,kasinteger,ch（）asstring
DimPasstring,iasinteger
s=Ucase（"Meetmeaftertheclass."）
Fori=1toLen（s）
IfMid（s,i,1）<="Z"andMid（s,i,1）>="A"then
p=p&Mid（s,i,1）
ElseIfp<>""then
k=k+1
RedimPreservech（k）
ch（k）=p
p=""
Endif
Nexti
Fori=1toUbound（ch）
iflen（ch（i））<=2then
Callmove_c（ch（i）,1）
else
Callmove_c（ch（i）,2）
endif
printch（i）
nexti
EndSUb
PrivateSubMove_c（sasstring,kasinteger）
Dimiasinteger,jasinteger,passtring*1
Fori=1tok
p=Right（s,1）
Forj=Len（s）-1to1step-1
Mid（s,j+1,1）=Mid（s,j,1）
Nextj
s=p&Right（s,Len（s）-1）
nexti
EndSub
6.下面的程序是求的近似值，当第n项的绝对值小于10^-5时终止计算
=1-1/3+1/5-1/7+…（-1）
optionexplicit
PrivateSubCommand1_Click（）
dimnaslong,sassingle,tassingle,piassingle
Consteps=0.00001
n=1
t=1
s=0
do
s=s+t
n=n+1
t=___（16）______
LoopUntil__（17）______
pi=s*4
Label1.Caption="的近似值为:
"
EndSub
7.下面程序的功能是，找出满足以下条件的三位整数，不含数字0,且任意交换数字位置所得到的数，均能被6整除
Optionexplicit
PrivatesubCommand1_Click（）
dimiasinteger,jasinteger,kasinteger,stasstring
Dima（6）asinteger
Fori=100to999
if______（18）_________then
Forj=1to6
ifa（j）Mod6<>0thenExitFor
Nextj
if______（19）________THen
st=st&str（i）
k=k+1
ifkmod3=0thenst=st&vbcrlf
Endif
Endif
NextI
Text1=st
EndSub
PrivateFunctionfj（a（）asinteger,sasstring）asBoolean
DimnasInteger,iasinteger,jasinteger
ifInstr（s,"0"）<>0then
___（20）___
endif
Fori=1to3
Forj=1to2
n=n+1
____（21）___
s=Left（s,1）&Right（s,1）&Mid（s,2,1）
Nextj
s=Right（s,1）&left（s,2）
Nexti
fj=True
EndFunction
8.下面程序的功能是求两个特大整数之和，由于vb中能够表示的整数大小有一定限制，所以必须用新的方法求特大整数之和，本程序将特大整数使用字符类型进行处理，其中函数add用于求两个1位整数之和，参数c用于保存进位，注意，求和前需首先将两个整数按位对齐
optionexplicit
privateSubcommand1_Click（）
Dims1asstring,s2asstring,s3asstring
dimiasinteger,n1asinteger,n2asinteger
dimcasinteger,nasinteger
s1=text1:
s2=Text2
n=______22_____
ifsgn（n）>0then
s2=________23__________
elseifSgn（N）<0then
s1=String（Abs（n）,"0"）&s1
endif
Fori=len（s1）to1step-1
n1=Val（Mid（s1,i,1））
n2=Val（Mid（s2,i,1））
s3=_______（24）________
Nexti
ifc<>0thens3=________（25）________
Text3=s3
EndSub
PrivateFunctionAdd（xasinteger,yasinteger,casInteger）asstring
Add=Cstr（（x+y+c）Mod10）
_________（26）________
EndFunction
9.
OptionExplicit
PrivateSubCommand1_Click（）
dimiaslong,i2aslong,flagasBoolean
Dima（0to9）asinteger,b（0to9）asinteger
Fori=100000to160000
CallValidate（i,a,flag）
ifflagthen
i2=i*6
callValidate（i2,b,flag）
ifflagandCompare（a,b）then
List1.AddItemi&""&i2
Endif
Endif
Nexti
endsub
PrivateSubvalidate（naslong,a（）asInteger,fasBoolean）
dimpasinteger,iasinteger
Erasea
f=false
fori=1tolen（cstr（N））
p=___（27）___
ifa（p）=1then
exitsub
else
a（p）=1
endif
nexti
___（29）f=true
EndSub
PrivateFunctionCompare（a（）asinteger,b（）asinteger）asBoolean
dimjasinteger
compare=false
forj=1toUbound（a）
ifa（j）<>b（j）then
____（30）____exitfunction
Endif
nextj
Compare=true
E
升级会员 