江苏计算机等级考试秋VB考试真题Word文档下载推荐.docx
《江苏计算机等级考试秋VB考试真题Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《江苏计算机等级考试秋VB考试真题Word文档下载推荐.docx（17页珍藏版）》请在冰豆网上搜索。
B.平板式扫描仪的分辨率通常远远高于胶片扫描仪和滚筒式扫描仪
C.常见的宽屏液晶显示器的宽度与高度之比为16:
9（或16:
10）
D.目前在银行、超市等商业部门一般采用针式打印机来打印存折和票据
10.在下列有关计算机软件的叙述中,错误的是10。
A.程序设计语言处理系统和数据库管理系统被归类为系统软件
B.共享软件是一种具有版权的软件,它允许用户买前免费试用
C.机器语言和汇编语言与特定的计算机类型有关,取决于CPU
D.目前PC机只能使用Windows系列操作系统,均不能使用UNIX和Linux操作系统
11.在下列常用的PC机软件中,编辑的文档（内容）能直接保存为图片类型（例如JPEG文件类型）的是11。
A.MicrosoftWordB.MicrosoftExcel
C.MicrosoftPowerPointD.MicrosoftFrontPage
12.在下列关于以太网（局域网）的叙述中,错误的是12。
A.在共享式以太网中,任何时间只允许一对计算机进行通信
B.在交换式以太网中,每台计算机均独享相同的带宽,其带宽仅由交换机决定
c.无论是共享式以太网还是交换式以太网,网络中的所有计算机都要安装以太网网卡
D.无论是共享式以太网还是交换式以太网,它们的数据帧和MAC地址格式均相同
13.连接在因特网上的每一台主机都有一个IP地址。
下面不能作为IP地址的是13。
A.211.256.49.68B.21.18.33.48C.120.34.0.18D.37.251.68.0
14.为了将异构的计算机网络互相连接起来,必须使用的网络设备是14。
A.调制解调器B.以太网集线器c.以太网交换机D.路由器
15.下列网络协议中,与发送电子邮件有关的是15。
A.HttpB.FTPC.SMTPD.TELNET
16.在下列有关字符集及其编码的叙述中,错误的是16。
A.基本的ASCII字符集共有128个字符,每个字符使用7个二进位进行编码
B.GB2312字符集中收录了6千多个汉字,每个字符在机内通常使用双字节编码
C.GBK字符集中的字符也采用双字节编码,且该字符集收录了部分繁体汉字
D.GB18030字符集中所有的字符均采用4字节编码,因此该字符集的代码空间很大
17.目前数码相机拍摄的照片在保存时通常采用的文件类型是17。
A.BMPB.GIFC.JPEGD.TIF
18.MP3是数字波形声音的一种压缩编码文件格式,它采用的压缩编码标准属于18。
A.MPEG-1B.MPEG-2C.MPEG-4D.DolbvAC-3
19.使用Macromedia公司的Flash软件制作的动画是一种矢量图形,在保存为动画文件
时其文件扩展名通常为19。
A.GIFB.SWFC.AVID.MPG。
20.在计算机应用中,CAD和CAM是典型的信息系统。
它们属于20。
A.管理业务系统B.辅助技术系统
c.信息检索系统D.信息分析系统
第二部分:
vb程序设计
21.要将焦点设置在某个控件上,以下四个选项中正确的是________
A.只能使用鼠标直接点击该控件
B.只能使用Tab键将焦点移到该控件
C.只能在程序中调用该控件的setfocus方法
D.A、B、C三选项中涉及的方法均可用
22.在下列属性中,属于CommandButton控件、ListBox控件共有的是22。
A.Caption、TextB.Visible、Font
C.Caption、VisibleD.List、Visible
23.数学表达式对应的visualBasic表达式是23。
A.Sin（30*3.14159/180）+Sqr（Log（x）+y）/2*3.14159+Exp（x+y）
B.（Sin（30*/180）+sqr（Ln（x）+y））/（2*+Exp（x+y））
C.Sin（30*180/3.14159）+Sqr（Log（x）+y）/（2*3.14159+e^（x+y））
D.（Sin（30*3.14159/180）+Sqr（Log（x）+Y））/（2*3.14159+Exp（x+y））
24.下列的关系表达式中,运算结果为True的是24。
A.CInt（1.5）=Int（1.5）B.Fix（1.5）=Int（1.5）
C.Fix（-1.5）=CInt（-1.5）D.Fix（-1.5）=Int（-1.5）
25.下列有关数组的叙述中,不正确的是25。
①在过程中用ReDim语句定义的动态数组,其下标的上下界可以是变量
②数组作为形式参数时,传递的是每个数组元素的值
③在窗体模块的通用声明处可以用Public说明一个全局数组
④数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值
A.②③B.①③④c.①②③④D.③④
26.以下关于文件的叙述中,错误的是26。
A&
#8226;
用Output模式打开一个顺序文件,即使不对它进行写操作,原来的内容也被清除
B.可以用Print#语句或Write#语句将数据写到顺序文件中
C&
若以Output、Append、Random、Binary方式打开一个不存在的文件,系统会出错
D.顺序文件或随机文件都可以用二进制访问模式打开
27.下列有关控件数组的说法中,错误的是27。
控件数组由一组具有相同名称和相同类型的控件组成,不同类型的控件无法组成控件数组
B.控件数组中的所有控件不得具有各自不同的属性设置值
C.控件数组中的所有控件共享同一个事件过程
D.控件数组中每个元素的下标由控件的Index属性指定
28.以下Case语句中,能正确描述Y的绝对值大于6的是28。
A.CaseAbs（Y）>
6B.Case-6To6
C.CaseNot（-6To6）D.CaseIs<
-6,Is>
6
29&
若在模块中用PrivateFunctionFun（AAsSingle,BAsInteger）As
Integer定义了函数Fun。
调用函数Fun的过程中定义了I、J和K三个Integer型变量,则下列语句中不能正确调用函数Fun的语句是29。
A.Fun3.14,JB.CallFun（I,365）C.Fun（I）,（J）D.K=Fun（"
24”,”35”）
30&
若需要在同一窗体内安排两组相互独立的单选按钮（OptionButt.Dn）,可使用30控件做容器将它们分开。
①TextBox②PictureBox③Image④Frame
&
A.①或②B.②或③c.②或④D.③或④
二、填空题（请将答案填写在答题纸的相应答题号内,每个答案只占一行）
1.执行下面程序,单击Commandl,则数组元素a（1,2）的数值是
（1）,a（2,3）的数值
是
（2）,a（4,3）的数值是（3）。
OptionExplicit
PrivateSubCommandl_Click（）
Dima（4,4）AsInteger,iAsInteger
DimjAsInteger,kAsInteger,nAsInteger
n=6：
k=2
Do
Fori=1To4
Forj=1To4
Ifi+j=kThen
a（i,j）=n
n=n-1
EndIf
Nextj
Nexti
k=k+1
LoopUntilk>
8
printRight（““&
a（i,j）,3）;
Print
EndSub
2.执行下面程序,单击Commandl,窗体上显示的第一行是（4）,第三行是（5）,
最后一行是（6）。
.
DimiAsInteger,sAsInteger
Fori=1To9Step3.
s=fun（（i））+fun（i）
Prints
.Nexti
PrivateFunctionfun（mAsInteger）AsInteger
StaticaAsInteger
IfmMod2=0then
a=a+1&
m=m+1
Else
a=a+2
m=m+2
fun=a+m
Printfun
EndFunction
3.运行下面的程序,单击Commandl,窗体上显示的第一行是（7）,第二行（8）,最后一行是（9）。
DimaAsInteger
DimbAsInteger
a=1
b=2
Printfun（（a+2）,fun（2*a,b））
Printa;
b
PrivateFunctionfun（xAsInteger,ByValyAsInteger）AsInteger
x=x+2
y=x-y+3
fun=x+y
Printx;
y;
fun
EndFunction
4.执行下面的程序,单击Commandl,窗体上显示的第二行是（10）,第三行（11）,第四行是（12）。
PrivateSubCommand1_Click（）
DimNAsInteger,KAsInteger
N=36:
K=5
PrintTrans（N,K）
PrivateFunctionTrans（NAsInteger,KAsInteger）AsString
DimRAsInteger
IfN<
>
0Then
R=NModK
IfR<
10Then
Trans=Trans（N\K,K）&
R
PrintN
Chr（55+R）
5.运行下列程序,单击Commandl,窗体上显示的第一行内容是（13）,第二行的内容
是（14）,第三行的内容是（15）。
OptionExplicit.
DimsAsString,kAsInteger
DimkeyAsString
s=”10101’’
key=”111000”
k=1
.Do
Callencrypt（s,key）.
s=Right（s,k）&
Left（s,4-k）&
Mid（s,4,2）
k=k+1
3
PrivateSubencrypt（aAsString,bAsString）
DimspAsString,nAsInteger,iAsInteger
sp="
0000”
n=Len（b）-Len（a）
Ifn>
0Thena=Right（sp&
a,Len（b））
Fori=1ToLen（b）
IfMid（a,i,1）=Mid（b,i,1）Then
Mid（a,i,1）=”0”
Mid（a,i,1）=”1”
EndSub.
6.下面程序的功能是求序列：
1/2、2/3、3/5、5/8、8/13、13/21、……前若干项的和,项数由文本框输入。
试完善程序使其达到功能要求。
PrivateSubCalculate_Click（）
DimnAsInteger,alAsInteger,a2AsInteger
DimiAsInteger,tAsSingle,SAsSingle
n=Val（Textl.Text）
al=1.
a2=2
Fori=1Ton
（16）
s=s+t
a2=al+a2
（17）
Text2=S
7.下面程序的功能是：
从一组以16进制数形式表示的若干个字节数据中,找出其中的汉
字代码（若相邻的两个字节中,每个字节的最高一位的数值都大于或等于8,则这两个字节为
一个汉字的代码）。
Dimst（）AsString,PAsString,kAsInteger
DimnAsInteger,iAsInteger
P=Trim（Textl）
n=InStr（P,””）
If（18）Then
ReDimPreservest（k）
st（k）=Left（p,n-1）
p=Right（p,Len（p）-n）
ReDimPreservest（k+1）
（19）
LoopUntiln=0
Fori=1ToUBound（st）-1
Ifchinese（st（i）,st（i+1））Then
Listl.AddItemst（i）&
”,”&
st（i+1）
（20）
PrivateFunctionchinese（pAsString,qAsString）AsBoolean
DimstAsString,kAsInteger,nAsInteger
DimiAsInteger
st=”0123456789ABCDEF”
Fori=1ToLen（st）
IfLeft（p,1）=Mid（st,i,1）Thenk=i-1
（21）
Ifk>
=8Andn>
=8Thenchinese=True
EndFunctinn
8.本程序的功能是求出n～m之间所有的可分解整数。
所谓可分解整数是指具有以
下性质的数,它的各位数字之和等于其所有质因子各位数字之和（注意：
素数不是可分
解整数）。
例如整数121,各位数字之和是4,其质因子是11、11,质因子的各位数字之和
也是4（1+1+1+1=4）,所以121是可分解整数。
.PrivateSubCommandl_Click（）
DimnAsInteger,mAsInteger,kAsInteger
n=Textl
nl=Text2
Fork=nTom
Ifsum1（k）=sum2（k）Then
Listl.AddItemk
Nextk
PrivateFunctionsuml（22）AsInteger‘求一个数的各位数字之和
suml=（23）
n=n\10
PrivateFunctionsum2（ByValnAsInteger）AsInteger‘求质因子及其各位数字之和
DimkAsInteger,anAsInteger
（24）
nn=n
IfnModk=0Then
sum2=sum2+suml（k）
n=n\k
（25）
nn/2
EndFunCtion
9.下面程序的功能是：
将a、b两个数组的数据按从大到小的顺序合并到数组c中。
a,b两个数组的数据分别从文本框A和文本框B输入,数据以空格分隔。
合并结果在文本框C中输出。
OptionBase1
Dima（）AsInteger,b（）AsInteger,c（）AsInteger
DimiAsInteger,stAsString
st=Trim（Textl）
Callload_a（st,a）
st=Trim（Text2）
Callload_a（st,b）
ReDimc
（1）
（26）
fori=2ToUBound（a）
Callchange（a（i）,c）
Fori=1ToUBound（b）
Callchange（b（i）,c）
Fori=1ToUBound（C）
Text3=Text3&
Str（c（i））
PrivateSubload_a（sAsString,a（）AsInteger）‘将文本框中数据存入数组
DimiAsInteger,kAsInteger,PAsString,qAsString*1
Fori=1ToLen（s）
q=Mid（s,i,1）
Ifq>
=”0”Andq<
=”9”Orq=”-”Then
（27）
ElseIfp<
””Then
ReDimPreservea（k）
a（k）=Val（p）
（28）
Ifp<
ReDimPreservea（k+1）
a（k+1）=P
PrivateSubchange（nAsInteger,c（）AsInteger）’插入排序
DimiAsInteger,jAsInteger
ReDimPreserveC（UBound（c）+1）
Fori=1ToUBound（c）-1
c（i）Then
Forj=UBound（c）toi+1Step-1
c（j）=c（j-1）
（29）
（30）
参考答案
一、选择题
1.A2.D3.A4.B5.D6.C7.B8.B9.B10.D11.C12.B13.A14.D
15.C16.D17.C18.A19.B20.B
21.D22.B23.D24.B25.A26.C27.B28.D29.B30.C
二、填空题
（1）15
（2）9（3）2（4）5
（5）12（6）25（7）459（8）5-14
（9）12（10）7（11）36（12）121
（13）101101（14）001110（15）011011（16）t=al/a2
（17）al=a2-al（18）n<
0或Len（p）>
2或Len（p）<
2
（19）st（k+1）=P（20）i=i+1
（21）IfLeft（q,1）=Mid（st,i,1）Thenn=i-1
（22）ByValnAsInteger
（23）suml+nMod10（24）k=2
（25）k=k+1（26）c
（1）=a
（1）
（27）p=p&
Mid（s,i,1）（28）P=””
（29）ExitFor（30）c（i）=n
升级会员 