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
(未完待续)