春二级VB笔试答案Word下载.docx
《春二级VB笔试答案Word下载.docx》由会员分享,可在线阅读,更多相关《春二级VB笔试答案Word下载.docx(13页珍藏版)》请在冰豆网上搜索。
![春二级VB笔试答案Word下载.docx](https://file1.bdocx.com/fileroot1/2023-1/22/b301ba08-cc69-464c-998e-0a14e997c50a/b301ba08-cc69-464c-998e-0a14e997c50a1.gif)
D.Unicode与ASCII码不兼容
8.作为信息处理热点技术之一的“多媒体技术”,强调的是___8___。
A.存储媒体
B.表现媒体
C.传输媒体
D.感觉媒体
9.软件测试是软件开发过程中的一个重要环节。
软件产品在交付前必须经历三种测试,它们是___9___。
A.模块测试、集成测试和验收测试
B.过程测试、功能测试和数据测试
C.逻辑测试、物理测试和验收测试
D.模块测试、集成测试和功能测试
10.局域网按其拓扑结构可以分为多种类型,目前较为流行的以太网从逻辑上看应属于___10___。
A.星型网
B.环行网
C.总线网
D.混合网
11.WWW服务器称3W网中,三个“W”指的是___11___。
A.When,Where,What
B.WorldWiredWeb
C.WorldWirelessWeb
D.WorldWideWeb
12.在Windows95/98中,用鼠标双击应用程序窗口的标题栏,其作用是___12___。
A.关闭应用程序
B.最大化或还原应用程序窗口
C.最小化或还原应用程序窗口
D.最小化或最大化应用程序窗口
13.下列操作中,被删除后不能通过回收站恢复的是___13___。
A.A盘上的文件
B.C盘上的文件
C.C盘上的文件夹
D.系统文件
14.用IE浏览某个网页时,屏幕上出现乱码,最常见的原因是___14___。
A.该网页脚本有错误
B.计算机可能已被某种病毒感染
C.计算机内存可能不够
D.系统不支持或未配置相应的字符
15.在中文版Windows95/98环境下,下列文件名中不正确的是___15___。
A.xyz.abc.bak
B.昨天今天明天.doc
C.myfile>
new.txt
D.file1+file2
16.在Windows95/98的“文件夹选项”对话框中,不可以完成的功能是___16___。
A.查看当前注册的文件类型
B.修改当前注册的文件类型
C.更改各类文件的图标
D.设置各类文件的属性
17.使用WINDOES95/98的“画笔”应用程序绘制正方形、圆、水平线、垂直线或与水平方向成45度角的直线,拖放鼠标时必须按住__17___键。
A.Ctrl
B.Shift
C.Alt
D.Esc
18.在WINDOES95/98环境下,将“MS-DOS”方式从全屏幕状态切换到窗口状态的方法是按___18___组合键。
A.Esc+Enter
B.Shift+Enter
C.Ctrl+Enter
D.Alt+Enter
19.在WORD窗口的“文件”下拉菜单的下部,通常会列出许多文件,这些文件是___19___。
A.目前处于打开状态的文件
B.目前正排队等待打印的文件
C.最近由Word处理过的文件
D.当前目录中扩展名为.DOC的文件
20.在Word中,设第一段的行间距为2倍行距、第二段的行距为单倍行距。
现删除第一段后的回车符,使第一段与第二段合并为一段,则合并后的段落的行距为___20___。
A.2倍行距
B.单倍行距
C.1.5倍行距
D.可能为单倍行距也可能为2倍行距
第二部分VisualBasic程序设计
(2001年春季)
一、选择题(用答题卡答题,答案依次填在21-30答题号内)
21.在VisualBasic中最基本的对象是___21___,它是应用程序的基石,也是其他控件的容器。
A.文本框
B.命令按纽
C.窗体
D.标签
22.应用程序窗体的名称属性为Frm1,窗体上有一个命令按纽,其名称属性为Cmd1,窗体和命令按纽的Click事件过程名分别为___22___。
A.Form_Click()Command1_Click()
B.Frm1_Click()Command1_Click()
C.Form_Click()Cmd1_Click()
D.Frm1_Click()Cmd1_Click()
23.多窗体程序由多个窗体组成。
在缺省情况下,VB在执行应用程序时,总是把___23___指定为启动窗口。
A.不包含任何控件的窗口
B.设计时的第一个窗体
C.命名为Frm1的窗体
D.包含控件最多的窗体
24.使用___24___方法可将新的列表项添加到列表框中。
A.Print
B.Additem
C.Clear
D.RemoveItem
25.若希望在离开某过程后,还能保存该过程中局部变量的值,则应使用___25___关键字在该过程中定义局部变量。
A.Dim
B.Private
C.Public
D.Static
26.下列表达式中,值为True的是___26___。
A.Ucase("
ABCD"
>
="
abcd"
)
B.14/2\3<
10Mod4
C.Mid("
2,2)>
Left("
2)
D.Not(Spr(4)-3>
=-2)
27.下列___27___说法是不正确的。
A.当程序正常结束时,所有没用Close语句关闭的文件都会自动关闭
B.在关闭文件或程序结束之前,可以不用Unlock语句对已锁定的记录解锁
C.可以用不同的文件号同时打开一个随机文件
D.用Output模式打开一个顺序文件,即使不对它进行写操作,原来内容也被清除
28.代数表达式
,对应VisualBasic表达式是___28___。
A.Sqr((x+Log(x))/(a+b))+Exp(-2*t)+Sin((x+y)/2)
B.Sqr(x+Log(x)/(a+b))+Exp(-2*t)+Sin((x+y)/2)
C.Sqr((x+Ln(x))/(a+b))+Exp(-2*t)+Sin((x+y)/2)
D.Sqr((x+Log(x))/(a+b))+Exp(-2*t)+Sin(x+y/2)
29.在程序中可以通过复选框和单选按纽的___29___属性值来判断它们的当前状态。
A.Caption
B.Value
C.Checked
D.Selected
30.在使用菜单编辑器创建菜单时,可在菜单名称中某字母前插入___30___符号,那么在运行程序时按Alt键和该字母键就可以打开该命令菜单。
A.下划线
B.&
C.$
D.@
31.在一个多窗口程序中,可以在标准模块或某个窗体模块的通用声明处,分别用___31___语句定义一个在所有窗体模块都可以引用的变量IntA。
A.PrivateIntAAsInteger,PublicIntAAsInteger
B.PublicIntAAsInteger,PrivateIntAAsIntege
C.PublicIntAAsInteger,PublicIntAAsIntege
D.PrivateIntAAsInteger,PrivateIntAAsInteger
32.在应用程序中用"
PrivateFunctionFun(XAsInteger,YAsInteger)"
定义了函数Fun.调用函数Fun的过程中的变量I,J均定义为Integer型,能正确引用函数Fun的是___32___。
①Fun(I,J)
②CallFun(I,3.65)
③Fun(3.14,234)
④Fun("
245"
"
231.5"
A.①③
B.②③④
C.①②③
D.①②③④
33.若在应用程序的标准模块、窗体模块和过程Sub1的说明部分,分别用"
PublicGAsIntege"
、"
PrivateGAsIntege"
和"
DimGAsIntege"
语句说明了三个同名变量G。
如果在过程Sub1中使用赋值语句“G=3596”,则该语句给在___33___说明部分定义的变量G赋值。
A.标准模块
B.过程Sub1
C.窗体模块
D.标准模块、窗体模块和过程Sub1
34.有程序代码:
Text1.Text="
VisualBasic"
其中的Text1、Text和"
分别代表___34___。
A.对象、值、属性
B.对象、方法、属性
C.对象、属性、值
D.属性、对象、值
35.执行下面的程序,单击窗体后在窗体上显示的结果是___35___。
PrivateSubForm_Click()
DimStr1AsString,Str2AsString
DimStr3AsString,IAsString
Str1="
e"
ForI=1To2
Str2=UCase(Str1)
Str1=Str2&
Str1
Str3=Str3&
Str1=Chr(Asc(Str1)+I)
NextI
PrintStr3
EndSub
A.EeFF
B.eEFF
C.EEFF
D.eeFF
二、填空题(请把答案填写在答题纸的相应答题号内,每个答题只占一行)
1.根据题中给出的窗体,填写下表中的相关内容,"
X"
表示对象无该属性
对象
名称(Name)
标题(Caption)
口令字符(Passwordchar)
窗体
Form1
(验证口令)
X
标签
Label1
(请输入口令)
文本框
Text1
(*)
命令按纽
Command1
验证
2.执行下面的程序,第一行输出结果是___(3)___,第二行输出结果是___(-18)___。
OPtionExplicit
DimMAsInteger,NAsInteger,KAsInteger
N=-3
ForM=6To1StepN
M=M+1
N=N-M
K=K+1
NextM
PrintK
PrintN
3.执行下面的程序,第一行输出结果是___(626)___,第三行输出结果是___(-298)___。
DimNAsInteger,IAsInteger
N=2
ForI=9To1Step-1
CallSub2(I,N)
PrintI,N
PrivateSubSub2(XAsInteger,YAsInteger)
StaticNAsInteger
DimIAsInteger
ForI=3To1Step-1
N=N+X
X=X-1
4.执行下面程序后,A(1,3)的值是___
(1)___,A(2,2)的值是___(5)___,A(3,1)的值是___(9)___。
OptionExplicit
DimA(3,3)AsInteger,IAsInteger
DimJAsInteger,KAsInteher,NAsInteger
N=9
ForK=5To1Step-1
IfK>
=3Then
ForI=1To6-K
A(K-3+I,I)=N
N=N-1
Else
ForI=1ToK
A(K-I+1,3-I+1)=N
EndIf
NextK
ForK=1To3
ForI=1To3
PrintA(K,I);
Print
NextK
5.执行下面的程序,第一行输出结果是___(23)___,第二行输出结果是___(47)___。
DimAAsInteger
A=2
CallSub1(A)
PrivateSubSub1(XAsInteger)
X=X*2+1
IfX<
10Then
EndIf
PrintX
6.本程序用于验证任何一个大于6的偶数均可表示为两个素数之和。
例如,14=3+11、14=7+7。
待验证的偶数从文本框TxtInput输入,所有满足上述条件的素数对都显示在窗体上。
DimNAsInteger,IAsInteger,JAsInteger
N=___(Val(TxtInput)或Val(TxtInput.Text))___
ForI=3ToN-2Step2
If___(Prime(I))___Then
IfN-I>
=IAndPrime(N-1)Then
PrintN;
"
;
I;
+"
N-1
PrivateFunctionPrime(NAsInteger)AsBoolean
DimIAsInteger,JAsInteger,FlgAsBoolean
Prime=False
ForI=2ToSqr(N)
IfNMODI=0Then___(ExitFor或EndFunction)___
If___(I>
Sqr(N))___ThenPrime=True
EndFunction
7.下面程序是把给定的16进制正整数转换为10进制数。
提示:
一个16进制正整数转换为10进制数的方法是直接用下面的幂级数展开运算而得。
(anan-1…a1)16=an*16n-1+an-1*16n-2+…+a1*160
DimStAsInteger,DemAsLong
St=InputBox("
输入一个十六进制数"
Dem=Convert(St)
PrintSt;
"
Dem
PrivateFunctionConvert(SAsString)AsLong
DimNAsInteger,IAsInteger,SubstringAsString*1
DimPAslong,KAsLong,Asc1AsInteger
N=___(Len(s))___
P=16^N
ForI=1ToN
P=p/16
Substring=___(Mid(S,I,1))___
SelectCaseSubstring
Case"
0"
To"
9"
K=K+P*Val(Substring)
Case___("
A"
F"
或Else)___
Asc1=Asc(Substring)-Asc("
)+10
___(K=K+P*Asc1)___
EndSelect
___(Convert=K)___
8.下面程序得功能是将无序数组中相同得数只保留一个,其余得删除,并输出经过删除后的数组元素,删除相同数是通过将该数组元素后面的元素在数组内依次前移替换前一个元素的值实现的。
数组各元素的值从文件data.txt中读取。
OptionExplict
OptionBase1
DimIAsInteger,JAsInteger,KAsInteger
DimA()AsInteger,TAsInteger,MAsInteger
Open"
c:
\mydocuments\2000test\data.txt"
ForInputAs#1
DoWhile___(NotEof
(1))__
I=I+1
RedimPreserveA(I)
Input#1,A(I)
Loop
M=1:
T=___(I或Ubound(A))__
DoWhileM<
T
I=M+1
DoWhileI<
=T
IfA(I)=A(M)Then
ForJ=1To___(T-1)__
A(J)=A(J+1)
NextJ
T=T-1
I=___(I+1)__
RedimPreserveA(T)
ForI=1ToT
PrintA(I);