秋VB二级试含答案.docx
- 文档编号:10500552
- 上传时间:2023-02-14
- 格式:DOCX
- 页数:16
- 大小:38.05KB
秋VB二级试含答案.docx
《秋VB二级试含答案.docx》由会员分享,可在线阅读,更多相关《秋VB二级试含答案.docx(16页珍藏版)》请在冰豆网上搜索。
秋VB二级试含答案
2002年(秋)二级考试笔试卷参考答案(VB)
第一部分计算机基础知识(各语种相同)
1.在计算机科学中,常常会遇到用二进制、八进制、十六进制等表示的数据。
对于算术表达式1023-377Q+100H,其运算结果是____1______。
A.1024
B.746H
C.746Q
D.1023
2.计算机在处理数据时,对数据的大小都有范围限制。
以下运算中可能产生数据溢出的是____2_______。
A.两个数作“与”操作
B.两个数作“或”操作
C.两个异号的数相加
D.两个异号的数相减
3.在计算机中处理汉字信息时,不同处理阶段常使用不同形式的编码表示,例如输入码、机内码和字型码等。
下列有关汉字信息编码的叙述中,不正确的是_____3_______。
A.采用不同输入法输入的同一个汉字,其机内码相同
B.对于同一个汉字,不同字体的字型码各不相同
C.在Window95/98中,不同字体的字型码均分别以不同的文字进行保存
D.在Window95/98中,对于GB2312字符集中的所有汉字,其机内码就是国标码
4.高速缓存(Cache)是现代计算机中重要的存储器之一,在目前的Pentium系列PC机中Cache通常分为两极。
其中,一级Cache位于_4__中。
A.CPU芯片
B.RAM芯片
C.主板
D.硬盘
5.在评价计算机的性能时,通常用MIPS来描述计算机的_____5_____。
A.平均无故障时间
C.主存的存取周期
B.平均故障修复时间
D.CPU的运算速度
6.在下列“软件工程”与“程序设计”的描述中,不正确的是___6_____。
A.软件工程是用工程化的概念、思想、方法和技术来指导软件开发的全过程
B.程序设计是软件开发工作的一部分,它是在系统设计阶段完成的
C.软件工程强调的是软件开发过程的工程化管理,文档是工程管理的依据
D.程序设计是根据软件设计的要求,采用适当的程序设计语言编写出满足要求的程序
7.目前,影响PC机安全的主要因素有计算机病毒、计算机黑客等。
在下列有关计算机病毒和黑客的叙述中,不正确的是___7_____。
A.计算机病毒是指一些人蓄意编制的一种寄生性的计算机程序
B.计算机黑客是指一些人蓄意编制的、用于攻击别人计算机的程序
C.防范计算机病毒的一种常用办法是在计算机上安装防病毒软件
D.防范计算机黑客的一种常用办法是在计算机上安装网络防火墙
8.下列有关光盘存储器的叙述中,不正确的是____8_____。
A.CD-ROM光盘上记录信息的光道是一条由里向外连续的螺旋型的路径
B.CD光盘的最早应用是存储数字化的高保真立体音乐,所制定的标准称为CD-ROM
C.VideoCD是由JVC等公司机联合制定的数字电视视盘的技术规格,它规定一片VCD光盘可存放74分钟的电视节目
D.DVD-Video光盘采用MPEG-2标准,每张光盘可存放2小时以上的高清晰度的影视节目
9.在中文Windows95/98中,用户可以通过键盘操作来切换中英文输入法。
系统默认的用于在各种输入法(包括各种汉字输入法和英文输入法)之间进行循环切换的组合键为___9____。
A.CTRL+空格键
B.SHIFT+空格键
C.CTRL+SHIFT
D.ALT+SHIFT
10.Windows95/98提供的“回收站”可用于暂存从硬盘中删除的文件(夹)。
在下列关于“回收站”的叙述中,不正确的是___10____。
A.回收站中的文件(夹)可以改名
B.用户可以调整回收站的空间大小
C.可以为多个硬盘驱动器分别设置回收站
D.可以修改回收站的图标
11.Windows95/98环境下,下列叙述中正确的是___11_____。
A.利用“网上邻居”可以浏览、共享网上其它计算机内的所有软硬件资源
B.利用“控制面板”中的“添加/删除程序”可以创建启动盘
C.利用“控制面板”中的“字体”可以设置汉字输入法特性
D.运行DOS应用程序必须首先启动“MS-DOS”方式
12.在Windows95/98环境下,用户在资源管理器窗口中双击一个文本文件(.TXT)时,通常会启动“记事本”应用程序。
如果文本文件的文件大小大于___12______,则系统会提示用户使用“写字板”应用程序读取该文件。
A.1KB
B.16KB
C.32KB
D.64KB
13.Windows95/98中的“MS-DOS方式”可以是全屏幕方式,也可以是窗口方式。
从窗口方式切换为全屏幕方式的操作可通过鼠标操作,也可通过键盘操作,但从全屏幕方式切换为窗口方式只能通过键盘操作。
通过键盘操作实现在两种方式之间进行转换的组合键是____13______。
A.CTRL+ESC
B.CTRL+ENTER
C.ALT+ESC
D.ALT+ENTER
14.用户在使用Windows提供的“画图”应用程序编辑某图片时,如果图片的大小为120*120像素,且将该图片以单色位图类型(.bmp)保存在软盘上(注:
软盘的簇大小为512B),则该图片文件所占用的存储空间约为____14_____。
A.1KB
B.2KB
C.15KB
D.43KB
15.在使用MicrosoftWord7.0/97/2000编辑文档时,下列叙述中不正确的是___15____。
A.同一个文档的多个页面可以设置为不同的纸张类型
B.通过菜单命令“格式/项目符号和编号”设置段落“编号”时,可以使用数字编号①、②……(答题者注:
如果先自定义过,这项其实也是可以的)
C.在文档中插入页码时,文档第一页的页码可以不为1
D.奇偶页的页眉和页脚可以不同
16.在使用MicrosoftWord7.0/97/2000编辑文档时,如果需要打印当前文档的第4、6-8页,则应___16_____,然后在出现的对话框中设置需打印的页码。
A.使用菜单命令“文件/打印”
B.单击“常用”工具栏上的“打印”按钮
C.按键盘上的PrtSc(PrintScreen)键
D.按组合键ALT+PrtSc(PrintScreen)
17.在使用MicrosoftExcel7.0/97/2000处理数据时,下列叙述中不正确的是___17____。
A.对数据进行排序操作时,最多只能基于3个关键字进行排序
B.通过图形向导可以制作二维图形和三维图形
C.一个工作簿中可以无工作表
D.单元格的引用可以分为绝对引用和相对引用两种
18.在下列有关MicrosoftOffice7.0/97/2000的应用程序功能的叙述中,正确的是___18____。
A.Word和Excel编辑的文档均可以另存为HTML语言
B.Word可以直接读取Excel文档(.xls),且Excel可以直接读取Word文档(.doc)
C.Word与Excel均支持表格的自动填充功能
D.用户不能利用“剪切板”功能在Word与Excel编辑的文档之间进行交换数据
19.企业内部网是采用TCP/IP技术,集LAN、WAN和数据服务为一体的网络,它也称为__19_____。
A.局域网
B.Intranet
C.Internet
D.广域网
20.如果某PC机使用56K的Modom拨号上网(接入Internet),那么下载一个大小为5.6MB的软件,理论上最快需要略多于__20____秒的时间。
A.10
B.100
C.800
D.6000
VB程序设计部分
一、选择题
21、在程序中将变量Inta、B1、St、D分别定义为Integer类型、Boolean类型、String类型和Date类型,下列赋值语句中,正确的是___。
A.Inta="333"+"22" B.D=#10/05/01#
C.St=5+"abc" D.B1=#True#
22、以下使用方法的语句中,正确的是___。
A.List1.Clear B.Form1.Clear
C.Combo1.Cls D.Picture1.Clear
23、以下所列的7个控件中,具有Caption属性的有____个。
PictureBox(图片框)、Frame(框架)、OptionButton(单选按钮)、ListBox(列表框)、TextBox(文本框)、Form(窗体)、DriveListBox(驱动器列表框)
A.3 B.4 C.2 D.5
24、以下有关对象属性的说法中错误的是___。
A.所有的对象都具有Name(名称)属性
B.只能在执行时设置或改变的属性为执行时属性
C.对象的某些属性只能在设计时设定,不能使用代码改变
D.Enabled属性值设为False的控件对象在窗体上将不可见
25、在窗体的通用声明处有语句DimA()AsSingle,以下在某事件过程中重定义此数组的一组正确语句是:
___。
A.ReDimA(3,3)
ReDimA(4,4)AsInteger
B.ReDimA(3,3)
ReDimPreserveA(4,4)
C.ReDimA(3)
ReDimA(3,3)AsInteger
D.ReDimA(3,3)
ReDimPreserveA(3,4)
26、在窗体Form1中用“PublicSubFun(xAsInteger,yAsSingle)”定义过程Fun,在窗体Form2中定义了变量i为Integer,j为Single,若要在Form2的某事件过程中调用Form1中的Fun过程,则下列语句中,正确的语句有____个。
(1)CallFun(i,j)
(2)CallForm1.Fun(i,j)
(3)Form1.Fun(i),j
(4)Form1.Funi+1,(j)
A.1 B.2 C.3(2、3、4对) D.4
27、在文本框Text1中输入数字12,Text2中输入数字34,执行一下语句,只有____可使文本框Text3中显示46。
A.Text3.Text=Text1.Text&Text2.Text
B.Text3.Text=Val(Text1.Text)+Val(Text2.Text)
C.Text3.Text=Text1.Text+Text2.Text
D.Text3.Text=Val(Text1.Text)&Val(Text2.Text)
28、在窗体模块的通用声明处有如下语句,会产生错误的语句是___。
(1)ConstAAsInteger=25
(2)PublicStAsString*8
(3)RedimB(3)AsInteger
(4)DimConstXAsInteger=10
A.
(1)
(2) B.
(1)(3) C.
(1)
(2)(3) D.
(2)(3)(4)
29、下列定义Sub过程的语句中,正确的语句是_____。
(1)PrivateSubTest(StAsString*8)
(2)PrivateSubTest(Sarray()AsString*5)
(3)PrivateSubTest(Sarray()AsString)
(4)PrivateSubTest(StAsString)
A.
(1)
(2) B.
(1)(4) C.
(2)(3)(4) D.
(1)
(2)(3)(4)
30、VB中利用Circle方法不可以画_____。
A.园 B.直线 C.弧 D.椭圆
二、填空题(特别说明:
由于算法的实现不是唯一的,有的题目可能有其它的答案。
此处所给的参考答案都是根据题意经过上机测试可以得到正常结果的代码)
1、将任意一个两位正整数N的个位数与十位数对换得到新数的VB表达式是(nmod10)*10+n\10或n=val(mid(trim(str(n)),2,1)+mid(trim(str(n)),1,1))
。
2、执行下面的程序,单击窗体,则在窗体上显示的第一行是123,第二行是45.
PrivateSubForm_Click()
Dima(3,3)AsInteger,iAsInteger,jAsInteger
Fori=1To3
Forj=1To3
a(i,j)=(i-1)*2+j
Nextj
Nexti
Forj=1To3
Fori=jTo3
Printa(j,i);
Nexti
Nextj
EndSub
3、执行下面程序,单击命令按钮Command1,则窗体上显示的第一行是C,第二行是CW,第三行是8。
PrivateSubCommand1_Click()
DimsAsString,tAsString
DimKAsInteger,mAsInteger
s="BASICY"
K=1:
m=K
ForK=1ToLen(s)Stepm+1
t=t&Chr(Asc(Mid(s,m,1))+K)
K=K+1
IfMid(s,K,1)="Y"ThenExitFor
m=m+K
Printt
NextK
Printm
EndSub
4、执行下面程序,单击窗体,在立即窗口上显示的第二行是41480,第三行221080。
OptionExplicit
DimAAsInteger
PrivateSubForm_Click()
DimBAsInteger
DimDAsInteger
A=1:
B=2
D=fun(A,fun(A,B))
Debug.PrintA,B,D
EndSub
PrivateFunctionfun(KAsInteger,NAsInteger)AsInteger
Debug.PrintK,N,
K=N+A+K
N=K+A+N
fun=K+N
Debug.Printfun
EndFunction
5、执行下面程序,如果不选中复选框Check1,单击命令按钮Command1,则在文本框Text1中显示的变量a的值为12、b的值为3、r的值为3;如果选中复选框Check1,单击命令按钮Command1,则文本框Text1中显示为GCD(27,12)=3(图1为本程序设计界面)。
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger,rAsInteger
a=27:
b=12
IfCheck1.Value=0Then
r=gcd(a,b)
Text1="GCD("&CStr(a)&","&CStr(b)&")="&CStr(r)
ElseIfCheck1.Value=1Then
r=gcd((a),(b))
Text1="GCD("&CStr(a)&","&CStr(b)&")="&CStr(r)
EndIf
EndSub
PrivateFunctiongcd(xAsInteger,yAsInteger)AsInteger
DimrAsInteger
r=xMody
DoWhiler<>0
x=y:
y=r
r=xMody
Loop
gcd=y
EndFunction
6、运行下面的程序,单击命令按钮Command1,则在文本框Text1中的内容是K=4,A(4)的值是8,A(5)的值是6。
OptionExplicit
PrivateSubCommand1_Click()
DimA(8)AsInteger,IAsInteger,KAsInteger
A
(1)=1:
A
(2)=4:
A(3)=6:
A(4)=4
A(5)=6:
A(6)=8:
A(7)=6:
A(8)=1
CallStat(A,K)
Text1="K="&Str(K)
EndSub
PrivateSubStat(A()AsInteger,NAsInteger)
DimIdxAsInteger,CountAsInteger,PAsInteger
DimTAsInteger
Count=UBound(A)
Do
Idx=Idx+1
P=Idx+1
DoWhileP<=Count
IfA(Idx)=A(P)Then
A(P)=A(Count)
Count=Count-1
Else
P=P+1
EndIf
Loop
N=Count
LoopWhileIdx<>Count
EndSub
7、下面程序的功能是将以“12;3;15”形式输入的字符串分解为数字12、3、15,分别赋给3个数组元素,并对其进行简单运算(图2为本程序执行画面)。
PrivateSubCommand1_Click()
Dima(3)AsInteger,iAsInteger,nAsInteger
DimsAsString
s=Text1.Text
Fori=1To2
n=InStr(s,";")
a(i)=Left(s,n-1)
s=Mid(s,n+1,Len(s)-N)_
Nexti
A(i)=val(s)
Text2.Text=a
(1)*a
(2)+a(3)
EndSub
本题更为简单的算法是:
Dims()AsString
s=Split(Text1,";")
Text2.Text=Val(s(0))*Val(s
(1))+Val(s
(2))
8、本程序是找零巧数。
所谓零巧数是具有下述特征的四位正整数:
其百位数为0,如果去掉0,得到一个三位正整数,而该正整数乘以9,等于原数。
例如2025=225*9,所以2025是零巧数(如图3所示)。
PrivateFunctionchange(sAsString)AsString
DimpAsString,iAsInteger
Fori=1ToLen(s)
Ifi<>2Then
p=p&Mid(s,i,1)
EndIf
Nexti
change=p
EndFunction
PrivateSubCommand1_Click()
DimiAsInteger,sAsString
Fori=1000To9999
s=CStr(i)
IfMid(s,2,1)="0"Then
IfVal(change(s))*9=iThen
List1.AddItem(s+"="+change(s)+"*9")
EndIf
EndIf
Nexti
EndSub
9、本程序是把给定的二进制整数转换为八进制整数。
PrivateSubCommand1_Click()
DimaAsString,bAsString,cAsString
DimLAsInteger,mAsInteger,nAsInteger
a=InputBox("请输入一个二进制数","输入框")
L=3-Len(a)Mod3
a=String(L,"0")&a
n=Len(a)
Form=1Ton/3
b=Mid(a,3*m-2,3)
c=c&zh(b)
Nextm
Text1.Text=c
EndSub
PrivateFunctionzh(ByValsAsString)AsString
DimiAsInteger,nAsInteger,pAsInteger
p=1
Fori=2To0Step-1
n=n+Val(Mid(s,p,1))*2^i
p=p+1
Nexti
zh=Str(n)
EndFunction
10、找出由两个不同数字组成的平方数,并将结果按图4中的格式显示在列表框List1中。
OptionExplicit
PrivateSubCommand1_Click()
DimIAsLong,NAsLong
ForI=11To300
N=I*I
IfVerify(N)Then
List1.AddItem(CStr(N)+"="+CStr(I)+"*"+CStr(I))
EndIf
NextI
EndSub
PrivateFunctionVerify(ByValNAsLong)AsBoolean
DimA(0To9)AsInteger,IAsInteger,JsAsInteger
DoWhileN<>0
A(NMod10)=1
N=N\10
Loop
ForI=0To9
Js=Js+A(I)
NextI
IfJs=2ThenVerify=True
EndFunction
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 二级 答案
![提示](https://static.bdocx.com/images/bang_tan.gif)