11年VB总复习NEW.docx
《11年VB总复习NEW.docx》由会员分享，可在线阅读，更多相关《11年VB总复习NEW.docx（46页珍藏版）》请在冰豆网上搜索。
11年VB总复习NEW
11年VB总复习NEW.txt爱空空情空空，自己流浪在街中；人空空钱空空，单身苦命在打工；事空空业空空，想来想去就发疯；碗空空盆空空，生活所迫不轻松。
总之，四大皆空！
VB复习
1、单项选择题
1、在VB中，下列关于控件的属性或方法中，搭配错误的有________个。
①Timer1.Interval
②List1.Cls
③Text1.Print
④List1.RemoveItem
⑤Vscroll1.Value
⑥Picture1.Print（）
A、0
B、1
C、2
D、3
2、若在一个应用程序窗体上，依次创建了CommandButton、TextBox、Label1等控件，则运行该程序显示窗体时，________会首先获得焦点。
（）
A、窗体
B、CommandButton
C、Label1
D、TextBox
3、下面的表达试的值为真的是________。
（）
A、Mid（"VisualBasic",1,12）=Right（"ProgramingLanguageVisualBasic",12）
B、"ABCRG">"abcde"
C、Int（134.69）>Cint（134.69）
D、78.9/32.77<=97.5/43.97AND-45.4>4.98
4、用于除去字符串左侧的空格的函数是__________。
（）
A、Rtrim（）
B、Ltrim（）
C、LeftTrim（）
D、Trim（）
5、要使文本框能显示多行文字，则需设定它的____________属性为True。
（）
A、Caption
B、PasswordChar
C、MultiLine
D、Seleted
6、窗体从加载到显示出来，下列最先发生的事件是____________。
（）
A、Load
B、Resize
C、Activate
D、Paint
7、如果a是一个正实数，对x的第3位小数四舍五入的表达式是____________。
（）
A、0.01*Int（a+0.005）
B、0.01*Int（a+0.05）
C、0.01*Int（100*（a+0.005）
D、0.01*Int（100*（a+0.05））
8、在设计列表框时，若实现输入多行文字的目的，应使用____________键实现文本的换行。
（）
A、Enter
B、Alt+Enter
C、Ctrl+Shift+Enter
D、Ctrl+Enter
9、对于某对象的SetFocus与GotFocus描述正确的是________。
（）
A、SetFocus是方法，GotFocus是事件
B、SetFocus是事件，GotFocus是事件
C、SetFocus是方法，GotFocus是方法
D、SetFocus是事件，GotFocus是方法
10、在使用菜单编辑器创建菜单时，可在菜单名称中首字母前插入符号________，那么在运行程序时按Alt键和该字母键就可打开该命令菜单。
（）
A、下划线
B、&
C、$
D、@
11、当在文本框输入"ABCD"四个字符时，结果是____________。
PrivateSubTextl_Change（）
PrintText1;
EndSub（）
A、ABCD
B、A（换行）B（换行）C（换行）D（换行）
C、AABABCABCD
D、A（换行）AB（换行）ABC（换行）ABCD（换行）
12、下面是计算1~100奇数的和的程序，请补充完整，填空应为_______。
PrivateSubCommand1_Click（）
DimsAsLong,xAsInteger
s=0
Forx=____________Step-2
s=s+x
Nextx
Prints
EndSub（）
A、100To1
B、1To100
C、99To1
D、1To99
13、下列符号常量的声明中，______________是不合法的。
（）
A、Constaassingle=1.1
B、Constaasinteger="12"
C、Constaasdouble=sin
（1）
D、Consta="OK"
14、以下__________程序段可以实施X，Y变量值的变换.（）
A、Y=X:
X=Y
B、Z=X:
Y=Z:
X=Y
C、Z=X:
X=Y:
Y=Z
D、Z=X:
W=Y:
Y=Z:
X=Y
15、以下程序段的输出结果是____________。
DimB（2,2）AsInteger
Dimi,j,tAsInteger
Fori=1To2
Forj=0To2
B（i,j）=j
Nextj
Nexti
t=1
Fori=0To2
Forj=0To2
t=t+B（i,B（j,j）
Nextj
Nexti
Printt（）
A、3
B、4
C、1
D、7
16、如下数组声明语句，则数组a包含元素的个数有____________。
Dima（3,-2to2,5）（）
A、120
B、75
C、60
D、13
17、下列程序：
PrivateSubForm_Click（）
Forj=1To15
a=a+jMod3
Nextj
Printa
EndSub
运行后输出的结果是__________。
（）
A、1
B、15
C、90
D、120
18、在过程调用中，参数的传递可以分为________________和______________两种方式。
（）
A、按值传递按地址传递
B、按地址传递按参数传递
C、按参数传递按值传递
D、按位置传递按参数传递
19、要想在过程调用后返回两个结果，下面的过程定义语句合法的是______________。
（）
A、SubProcl（ByValn,ByValm）
B、SubProcl（n,ByValm）
C、SubProcl（n,m）
D、SubProcl（ByValn,m）
20、可以在窗体模块的通用声明段中声明的是________________。
（）
A、全局变量
B、全局常量
C、全局数组
D、全局用户自定义类型
21、在窗体Form1中用PublicSubFun（xAsInteger,yAsSingle），定义过程Fun，在窗体Form2中定义了变量i为Integer,j为Single，若要在Form2的某事件过程中调用Form1中的Fun过程，则下列语句中，不正确的语句有____________个。
①CallFun（i,j）②CallForm1.Fun（i,j）③Form1.Fun（i）,j④Form1.Funi+1,（j）（）
A、1
B、2
C、3
D、4
22、设有下列程序代码，在单击命令按钮时的输出结果是________。
SubSS（ByValx,ByRefy,ByValz）
x=x+1
y=y+1
z=z+1
EndSub
PrivateSubCommand1_Click（）
x=1:
y=2:
z=3
CallSS（x,y,z）
Printx,y,z
EndSub（）
A、123
B、134
C、224
D、133
23、如果在被调用过程中改变了形参值，只影响副本，而不会影响实参的变量本身，这种参数传递方式称为传递。
（）
A、按值
B、按地址
C、ByRef
D、按形参
24、假定已定义了一个过程SubAdd（aAsSingle,bAsSingle），则正确的调用语句是________。
（）
A、Add（12,12）
B、CallAdd（2*x,Sin（1.57））
C、CallAddx,y
D、CallAdd（12,12,x）
25、以下有关变量作用域的说明中，错误的是（）
A、只有在标准模块中用语句说明的变量才是全局变量
B、在过程中不能使用Public语句说明全局变量
C、在标准模块的通用声明处可用语句说明模块级变量
D、在窗体的通用声明处可用>语句说明窗体级变量
26、在窗体模块的通用声明处用下面的语句声明变量、数组，正确语句有________个。
①PublicA（5）AsInteger
②PublicNAsInteger
③PublicStAsString
④Privateb（）AsInteger
A、2B、3C、4D、1
27、以下有关数组的说明中，错误的是________。
A、根据数组说明的方式，可将数组分为动态数组和静态数组。
B、在过程中，不能用Private语句定义数组。
C、利用ReDim语句重新定维时，不得改变已经说明过的数组的数据类型。
D、数组重新定维后，原有的数组元素内容将不予保留。
28、若在应用程序中用PrivateSubSub1（Xasinteger,YasSingle）定义了子程序Sub1，调用程序中的变量I、J均为Integer型，则正确调用子程序Sub1的Call语句是________。
①CallSub1（I,J）
②CallSub1（3.1415,1）
③CallSub1（3.14,234）
④CallSub1（"245","231.5"）
A、①③B、②③④C、①②③D、无
29、要想在过程调用后返回两个结果，下面的过程定义语句合法的是________________。
A.SubProcl（ByValn,ByValm）
B.SubProcl（n,ByValm）
C.SubProcl（n,m）
D.SubProcl（ByValn,m）
30、用Msgbox"你好",vbokonly,"Hello"显示的消息对话框窗口的标题是________。
（）
A、你好
B、vbokonly
C、Ok
D、Hello
31、下面程序段，显示的结果是____________。
Dimx
x=Int（Rnd）+5
selectCasex
Case5print"优秀"
Case4print"良好"
Case3print"通过"
CaseElseprint"不通过"
EndSelect（）
A、优秀
B、良好
C、通过
D、不通过
32、下面程序段运行后，显示的结果是____________。
Dimx
IfxThenPrintxElsePrintx+1（）
A、1
B、0
C、-1
D、显示出错信息
32、运行以下程序段，输出结果。
Dima（1To10）
Dimp（1To4）
k=5
Fori=1To4
p（i）=i*2
Nexti
Fori=1To4
k=k+p（i）*2
Nexti
Printk（）
A、48
B、32
C、30
D、45
33、MsgBox函数返回值的类型为____________。
（）
A、整体数值
B、字符串
C、变体
D、数值或字符串
34、下面语句错误的是________。
（）
A、Ifa=1Andb=2Then
c=3
EndIf
B、Ifa=1Then
c=2
ElseIfa=2Then
c=3
EndIf
C、Ifa=1Then
c=2
ElseIfa=2Then
c=3
EndIf
D、If（a=1,2,3）Thenc=2
35、使用________方法可将新的列表项添加到一个列表框中。
（）
A、Print
B、AddItem
C、Clear
D、RemoveItem
36、单选按钮（OptionButton）用于一组互斥的选项中。
若一个应用程序包含多组互斥条件，可在不同的________中安排适当的单选按钮，即可实现。
（）
A、框架控件（Frame）或图象控件（Image）
B、组合框（ComboBox）或图象控件（Image）
C、组合框（ComboBox）或图片框（PictureBox）
D、框架控件（Frame）或图片框（PictureBox）
37、一个可执行的VisualBasic中应用程序至少要包括一个________。
（）
A、标准模块
B、类模块
C、窗体模块
D、辅助模块
38、日期类型（Date）在程序中运用时，日期类型必须用______符号括起来。
（）
A、#
B、@
C、＄
D、%
39、数学关系3<=x<10表示成正确的VB表达式为____________。
（）
A、3<=x<0
B、3<=xANDx<10
C、x>=3ORx<10
D、3<=xAND<10
40、下列循环能正常结束循环的是____________。
（）
A、i=5
Do
i=i+1
LoopUntili<0
B、i=1
Do
i=i+2
LoopUntili=10
C、i=10
Do
i=i+1
LoopUntili>0
D、i=6
Do
i=i-2
LoopUntili=1
41、对正实数X的第四位小数四舍五入的VB表达式是________。
（）
A、0.001*Int（x+0.0005）
B、0.001*（1000*x+0.5）
C、0.001*Int（1000*x+5）
D、0.001*Int（1000*（x+0.0005））
42、函数Cint（-3.5），Int（-3.5），Fix（-3.5）的值分别是________。
（）
A、-3，-4，-3
B、-4，-4，-3
C、-3，-4，-4
D、-4，-3，-3
43、单选按钮（OptionButton）用于一组互斥的选项中。
若一个应用程序包含多组互斥条件，可在不同的________中安排适当的单选按钮，即可实现。
（）
A、框架控件（Frame）或图象控件（Image）
B、组合框（ComboBox）或图象控件（Image）
C、组合框（ComboBox）或图片框（PictureBox）
D、框架控件（Frame）或图片框（PictureBox）
44、执行语句"Printformat（5459.478,"##,##0.00"）"，正确的输出结果是________。
（）
A、5459.48
B、5,459.48
C、5,459.478
D、5,459.47
45、VisualBasic程序设计时常用的Print、Cls属于________。
（）
A、属性
B、打印字库
C、方法
D、事件
46、下列语句中不能正常执行的是________。
（）
A、print+32758+10
B、print5+9=15
C、print"65"+12
D、print"65"&12
47、用于除去字符串右侧的空格的函数是__________。
（）
A、Rtrim（）
B、Ltrim（）
C、LeftTrim（）
D、Trim（）
48、当对象失去焦点时，将会发生____________事件。
（）
A、GetFocus
B、LostFocus
C、Focus
D、SetFocus
49、将文本框的ScrollBars属性设置为非零值，却没有效果，原因是____________。
（）
A、文本框中没有内容
B、文本框的MultiLine属性值为False
C、文本框的MultiLine属性值为True
D、文本框的Locked属性值为True
50、对于一个含有计时器控件的窗体，每经过一段由________属性指定的时间间隔，就会产生一个Timer事件。
（）
A、Name
B、Enabled
C、Caption
D、Interval
51、使用_______方法，可将新的项加到一个列表框中。
（）
A、Print
B、AddItem
C、Clear
D、RemoveItem
52、在使用菜单编辑器创建菜单时，可在菜单名称中首字母前插入符号________，那么在运行程序时按Alt键和该字母键就可打开该命令菜单。
（）
A、下划线
B、&
C、$
D、@
53、在文本框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）
54、VB也提供了结构化程序设计的三种基本结构，三种基本结构是________。
（）
A、递归结构、选择结构、循环结构
B、选择结构、过程结构、顺序结构
C、过程结构、输入、输出结构、转向结构
D、选择结构、循环结构、顺序结构
55、在过程中有语句ForI=N1ToN2StepN3，在该循环体内有下列四条语句，其中________会影响循环执行的次数。
①N1=N1+I②N2=N2+N3③I=I+N3④N3=2*N3（）
A、①②
B、①②③
C、③
D、①②③④
56、下面程序的内层循环次数是________。
Fori=1TO3
Forj=1TOi
Fork=jTO3
...
Nextk
Nextj
Nexti（）
A、3
B、14
C、9
D、21
57、语句Ifx=1Theny=1，下列说法正确的是____________。
（）
A、x=1和y=1均为赋值语句
B、x=1和y=l均为关系表达式
C、x=1为关系表达式，y=1为赋值语句
D、x=1为赋值语句，y=l为关系表达式
58、下列程序：
PrivateSubForm_Click（）
Forj=1To15
a=a+jMod3
Nextj
Printa
EndSub
运行后输出的结果是__________。
（）
A、1
B、15
C、90
D、120
59、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
PrivateSubCommand1_Click（）
StaticAAsInteger
StaticBAsInteger
Cls
A=2
B=B+3
A=3+A
printA,B
EndSub
程序运行时，3次单击命令按钮Command1后，窗体上显示的结果为___________。
（）
A、53
B、63
C、69
D、59
60、在窗体模块的通用声明处用下面的语句声明变量、数组，正确语句有________个。
①PublicA（5）AsInteger
②PublicNAsInteger
③PublicStAsString
④Privateb（）AsInteger（）
A、2
B、3
C、4
D、1
61、以下程序的输出结果是_________。
OptionBase1
PrivateSubCommand1_Click（）
Dima（10）AsInteger,p（3）AsInteger
k=5
Fori=1To10
a（i）=i
Nexti
Fori=1To3
p（i）=a（i*i）
Nexti
Fori=1To3
k=k+p（i）*2
Nexti
Printk
EndSub（）
A、33
B、28
C、35
D、37
62、以下程序输出的结果是____________。
Dima
a=Array（1,2,3,4,5,6,7）
Fori=Lbound（a）ToUbound（a）
a（i）=a（i）*a（i）
Nexti
Printa（i）（）
A、49
B、0
C、不确定
D、程
升级会员 