VB真题春笔.docx
《VB真题春笔.docx》由会员分享，可在线阅读，更多相关《VB真题春笔.docx（13页珍藏版）》请在冰豆网上搜索。
VB真题春笔
2002年（春）VB二级考试笔试卷
第一部分计算机基础知识
第二部分VisualBasic程序设计
一、选择题（用答题卡答题，答案依次填在21-30答题号内）
21.下面有关对象属性的叙述中，不正确的是___21___。
A.一个对象的属性可分位为外观、行为等若干类。
B.相同属性可能具有不同的数据类型。
C.一个对象的所有属性都可在属性窗口的列表中进行设置。
D.属性窗口中的属性列表可以按字母序也可按类别排列。
22.代数式对应的VB表达式是__22___。
A.（12*x+5*y-Sqr（Abs（d^3-m^2）））/Exp（-x）/Sin（x）
B.（12*x+5*y-Sqr（Abs（d^3-m^2）））/Exp（-x）*Sin（x）
C.（12*x+5*y-Sqr（Abs（d^3-m^2））/Exp（-x）/Sin（x）
D.（12*x+5*y-Sqr（Abs（d^3-m^2）））/e^（-x）/Sin（x）
23.对于“X>Y>Z”，正确的VB逻辑表达式是___23___。
A.X>YANDY>Z
B.X>Y>Z
C.X>YORY>Z
D.X>YAND>Z
24.设有一个文本框控件Text1，假设已存在三个整型变量a、b和c，且变量a的值为5，变量b的值为7，变量c的值为12。
以下的__24___语句可以使文本框内显示的内容为：
5+7=12。
A.text1.text=a+b=c
B.text1.text="a+b=c"
C.text1.text=a&"+"&b&"="&c
D.text1.text="a"&"+"&"b"&"="&"c"
25.用语句PrivateSubConvert（YAsInteger）定义的Sub过程时，以下不是按值传递的语句是___25___。
A.CallConvert（（X））
B.CallConvert（X*1）
C.Convert（X）
D.ConvertX
26.程序的不同过程之间，不能通过___26___进行数据传递。
①用全局变量
②窗体或模块级变量
③将形参与实参结合
④静态变量
A.①②④
B.①②③
C.②④
D.④
27.下列关于数组的叙述中，错误的是___27___。
A.在过程中可以用DIM语句对形参数组进行说明
B.数组是同类变量的一个有序的集合
C.数组元素可以是控件
C.数组在使用之前，必须先用数组说明语句进行说明
28.从存有数据的C:
\test\test.txt文件添加数据，正确的文件打开命令是___28___。
A.Open"C:
\test\test.txt"ForAppendAs#512
B.Open"C:
\test\test.txt"ForAppendAs#511
C.Open"C:
\test\test.txt"ForOutputAs#512
D.Open"C:
\test\test.txt"ForOutputAs#511
29.下面___29___情况不会进入中断状态。
A.在程序运行中，按Ctrl+C键
B.程序运行中，发生了运行错误
C.用户在程序中设置了断点，当程序运行到断点时
D.采用单步调试方式，每运行一个可执行代码行后
30.下面___30___方法，可以将列表框List1中的所有项删除掉。
A.List1.Text=""
B.AddItem
C.RemoveItem
D.Clear
31.某过程的说明语句中，正确的数组说明语句是___31___。
ConstNAsInteger=4
DimLAsInteger
①DimX（L）AsInteger
②DimA（K）AsInteger
ConstKAsInteger=3
③DimB（N）AsInteger
④DimY（2000to2008）AsInteger
A.①②④
B.①③④
C.③④
D.②③
32.在多窗体的应用程序中，当前窗体模块的Form_Click事件过程中包含如下语句,单击该窗体,其中___32___一定可以将Hello显示在当前窗体上。
A.Form1.Print"Hello"
B.Me.Print"Hello"
C.Debug.Print"Hello"
D.Form2.Print"Hello"
33.执行以下语句后,a的值为___33___。
DimaAsInteger
a=1
DoUntila=100
a=a+2
Loop
A.99
B.100
C.溢出
D.101
34.以下语句中,不能正确执行的是___34___
A.IfOption1.ValueThen
B.IfOption1.Value=TrueThen
C.Ckeck1.Value=0
D.Ckeck1.Value=True
35.以下有关数据控件的叙述中,错误的是___35___。
A.利用数据控件可对已连接的数据库记录进行显示和修改
B.利用数据控件只能访问Access数据库
C.通过设置DatabaseName属性,可以与指定的Access数据库连接
D.利用数据控件可增加或删除已连接的数据库中的记录
二、填空题（请把答案填写在答题纸的相应答题号内，每个答题只占一行）
1.执行下面的程序，单击窗体后在窗体上显示的内容是___
（1）___；若将程序中的A语句与B语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是___
（2）___。
OptionExplicit
PrivateSubForm_Click（）
DimSumAsinteger,iAsInteger
Fori=7To4Step-1
SelectCasei
Case4,7
Sum=Sum+i 'A语句
Case3,5
Sum=Sum+2 'B语句
CaseElse
Sum=Sum+1
EndSelect
Nexti
Print"Sum=";Sum
EndSub
2.执行下面的程序，单击命令按钮Command1后，文本框Text1中的内容是___（3）___，文本框Text2中的内容是___（4）___（函数InStr（Start，String1，String2）中Start参数表示每次搜索的起点）。
OPtionExplicit
PrivateSubCommand1_Click（）
DimPathAsString，SerachAsString
DimFpAsString，FnAsString
Path=“c：
\ProgramFiles\DevStudio\VB\VB5.exe”
CallSearch_Path（Path，Fp，Fn）
text1.text=Fp
text2.text=Fn
EndSub
PrivateSubSearch_Path（PAsString,FpAsString，FnAsString）
DimNsAsLong,CtAsLong
Ns=0
Do
Ct=Ns
Ns=InStr（Ct+1,P,"\"）
LoopUntilNs=0
Fp=Left（P,Ct-1）
Fn=Right（P,Len（P）-Ct）
EndSub
3.执行下面的程序，当单击窗体时，窗体上显示内容的第一行是___（5）___，第二行是___（6）___。
PrivateSubP1（xAsInteger,ByValyAsInteger）
StaticZAsInteger
x=x+z:
y=x-z:
z=10-y
EndSub
PrivateSubForm_Click（）
DimaAsInteger,bAsInteger,zAsInteger
a=1:
b=3:
z=2
callP1（a,b）
printa,b,z
callP1（b,a）
4.执行下面的程序，图片框第一行内容是（7），图片框第一行内容是（8）。
OptionExplicit
PrivateSubCommand1_Click（）
DimSAsString
S="ABC"
BackS
Picture1.Print
Picture1.PrintS
EndSub
PrivateSubBack（StAsString）
IfLen（St）>1Then
Back（Right（St,Len（St）-1））
Endif
Picture1.PrintLeft（St,1）;
EndSub
（未完待续）
2002年（春）VB二级考试笔试卷
第二部分VisualBasic程序设计
一、选择题（用答题卡答题，答案依次填在21-30答题号内）
21.下面有关对象属性的叙述中，不正确的是___21___。
A.一个对象的属性可分位为外观、行为等若干类。
B.相同属性可能具有不同的数据类型。
C.一个对象的所有属性都可在属性窗口的列表中进行设置。
D.属性窗口中的属性列表可以按字母序也可按类别排列。
22.代数式对应的VB表达式是__22___。
A.（12*x+5*y-Sqr（Abs（d^3-m^2）））/Exp（-x）/Sin（x）
B.（12*x+5*y-Sqr（Abs（d^3-m^2）））/Exp（-x）*Sin（x）
C.（12*x+5*y-Sqr（Abs（d^3-m^2））/Exp（-x）/Sin（x）
D.（12*x+5*y-Sqr（Abs（d^3-m^2）））/e^（-x）/Sin（x）
23.对于“X>Y>Z”，正确的VB逻辑表达式是___23___。
A.X>YANDY>Z
B.X>Y>Z
C.X>YORY>Z
D.X>YAND>Z
24.设有一个文本框控件Text1，假设已存在三个整型变量a、b和c，且变量a的值为5，变量b的值为7，变量c的值为12。
以下的__24___语句可以使文本框内显示的内容为：
5+7=12。
A.text1.text=a+b=c
B.text1.text="a+b=c"
C.text1.text=a&"+"&b&"="&c
D.text1.text="a"&"+"&"b"&"="&"c"
25.用语句PrivateSubConvert（YAsInteger）定义的Sub过程时，以下不是按值传递的语句是___25___。
A.CallConvert（（X））
B.CallConvert（X*1）
C.Convert（X）
D.ConvertX
26.程序的不同过程之间，不能通过___26___进行数据传递。
①用全局变量
②窗体或模块级变量
③将形参与实参结合
④静态变量
A.①②④
B.①②③
C.②④
D.④
27.下列关于数组的叙述中，错误的是___27___。
A.在过程中可以用DIM语句对形参数组进行说明
B.数组是同类变量的一个有序的集合
C.数组元素可以是控件
C.数组在使用之前，必须先用数组说明语句进行说明
28.从存有数据的C:
\test\test.txt文件添加数据，正确的文件打开命令是___28___。
A.Open"C:
\test\test.txt"ForAppendAs#512
B.Open"C:
\test\test.txt"ForAppendAs#511
C.Open"C:
\test\test.txt"ForOutputAs#512
D.Open"C:
\test\test.txt"ForOutputAs#511
29.下面___29___情况不会进入中断状态。
A.在程序运行中，按Ctrl+C键
B.程序运行中，发生了运行错误
C.用户在程序中设置了断点，当程序运行到断点时
D.采用单步调试方式，每运行一个可执行代码行后
30.下面___30___方法，可以将列表框List1中的所有项删除掉。
A.List1.Text=""
B.AddItem
C.RemoveItem
D.Clear
31.某过程的说明语句中，正确的数组说明语句是___31___。
ConstNAsInteger=4
DimLAsInteger
①DimX（L）AsInteger
②DimA（K）AsInteger
ConstKAsInteger=3
③DimB（N）AsInteger
④DimY（2000to2008）AsInteger
A.①②④
B.①③④
C.③④
D.②③
32.在多窗体的应用程序中，当前窗体模块的Form_Click事件过程中包含如下语句,单击该窗体,其中___32___一定可以将Hello显示在当前窗体上。
A.Form1.Print"Hello"
B.Me.Print"Hello"
C.Debug.Print"Hello"
D.Form2.Print"Hello"
33.执行以下语句后,a的值为___33___。
DimaAsInteger
a=1
DoUntila=100
a=a+2
Loop
A.99
B.100
C.溢出
D.101
34.以下语句中,不能正确执行的是___34___
A.IfOption1.ValueThen
B.IfOption1.Value=TrueThen
C.Ckeck1.Value=0
D.Ckeck1.Value=True
35.以下有关数据控件的叙述中,错误的是___35___。
A.利用数据控件可对已连接的数据库记录进行显示和修改
B.利用数据控件只能访问Access数据库
C.通过设置DatabaseName属性,可以与指定的Access数据库连接
D.利用数据控件可增加或删除已连接的数据库中的记录
二、填空题（请把答案填写在答题纸的相应答题号内，每个答题只占一行）
1.执行下面的程序，单击窗体后在窗体上显示的内容是___14___；若将程序中的A语句与B语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是___10___。
OptionExplicit
PrivateSubForm_Click（）
DimSumAsinteger,iAsInteger
Fori=7To4Step-1
SelectCasei
Case4,7
Sum=Sum+i 'A语句
Case3,5
Sum=Sum+2 'B语句
CaseElse
Sum=Sum+1
EndSelect
Nexti
Print"Sum=";Sum
EndSub
2.执行下面的程序，单击命令按钮Command1后，文本框Text1中的内容是___c：
\ProgramFiles\DevStudio\VB___，文本框Text2中的内容是___VB5.exe___（函数InStr（Start，String1，String2）中Start参数表示每次搜索的起点）。
OPtionExplicit
PrivateSubCommand1_Click（）
DimPathAsString，SerachAsString
DimFpAsString，FnAsString
Path=“c：
\ProgramFiles\DevStudio\VB\VB5.exe”
CallSearch_Path（Path，Fp，Fn）
text1.text=FP
text2.text=Fn
EndSub
PrivateSubSearch_Path（PAsString,FpAsString，FnAsString）
DimNsAsLong,CtAsLong
Ns=0
Do
Ct=Ns
Ns=InStr（Ct+1,P,"\"）
LoopUntilNs=0
Fp=Left（P,Ct-1）
Fn=Right（P,Len（P）-Ct）
EndSub
3.执行下面的程序，当单击窗体时，窗体上显示内容的第一行是132___，第二行是1__12___2_。
PrivateSubP1（xAsInteger,ByValyAsInteger）
StaticZAsInteger
x=x+z:
y=x-z:
z=10-y
EndSub
PrivateSubForm_Click（）
DimaAsInteger,bAsInteger,zAsInteger
a=1:
b=3:
z=2
callP1（a,b）
printa,b,z
callP1（b,a）
printa,b,z
EndSub
4.执行下面的程序，图片框第一行内容是CBA，图片框第一行内容是ABC。
OptionExplicit
PrivateSubCommand1_Click（）
DimSAsString
S="ABC"
BackS
Picture1.Print
Picture1.PrintS
EndSub
PrivateSubBack（StAsString）
IfLen（St）>1Then
Back（Right（St,Len（St）-1））
Endif
Picture1.PrintLeft（St,1）;
EndSub
（未完待续）
升级会员 