vb期末考试模拟题.docx
《vb期末考试模拟题.docx》由会员分享，可在线阅读，更多相关《vb期末考试模拟题.docx（43页珍藏版）》请在冰豆网上搜索。
vb期末考试模拟题
11vb期末考试模拟题
1、单项选择题（本题共计80分）
1、能被对象所识别的动作与可执行的活动分别称为对象的________。
（）
A、方法、事件
B、事件、方法
C、事件、属性
D、过程、方法
2、一个应用程序_________窗体。
（）
A、只许有一个
B、可以没有
C、应该有两个
D、可包括多个
3、VisualBasic中的工程文件的扩展名是____________。
（）
A、.reg
B、.frm
C、.bas
D、.vbp
4、所谓____________就是使某个对象进入活动状态（又称激活）的一种操作或动作。
（）
A、事件
B、属性
C、方法
D、对象
5、将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件到其他机器上不能运行的主要原因是____________。
（）
A、运行的机器上无VB系统
B、缺少.frm窗体文件
C、该可执行文件有病毒
D、以上原因都不对
6、一只白色的足球踢进球门，则白色、足球、踢、进球门是________。
（）
A、属性、对象、方法、事件
B、属性、对象、事件、方法
C、对象、属性、方法、事件
D、对象、属性、事件、方法
7、下面________语句，可以将列表框List1中当前选定的列表项的值替换成“ABC”。
（）
A、List1.AddItem“ABC”，List1.ListIndex
B、List1.Text=“ABC”
C、List1.List（List1.ListIndex）=“ABC”
D、前三项均可
8、在VB中，下列关于控件的属性或方法中，搭配错误的有________个。
①Timer1.Interval
②List1.Cls
③Text1.Print
④List1.RemoveItem
⑤Vscroll1.Value
⑥Picture1.Print（）
A、0
B、1
C、2
D、3
9、在过程中可以用________语句定义变量。
（）
A、Dim、Private
B、Dim、Static
C、Dim、Public
D、Dim、Static、Private
10、VisualBasic程序设计时常用的Print、Cls属于________。
（）
A、属性
B、打印字库
C、方法
D、事件
11、只能由系统触发的是___________事件。
（）
A、Resize
B、DblClick
C、Timer
D、Paint
12、关于窗体Name属性的叙述，正确的是________。
（）
A、窗体Name属性可以具有与别的公共对象相同的名字
B、窗体Name属性和变量定义一样
C、窗体Name属性最长可达255个字符
D、窗体Name属性不能具有与别的公共对象相同的名字
13、当对象失去焦点时，将会发生____________事件。
（）
A、GetFocus
B、LostFocus
C、Focus
D、SetFocus
14、以下不属于标签属性的是____________。
（）
A、Font
B、Value
C、Caption
D、Index
15、对于一个含有计时器控件的窗体，每经过一段由________属性指定的时间间隔，就会产生一个Timer事件。
（）
A、Name
B、Enabled
C、Caption
D、Interval
16、在运行过程中要把某控件变灰，应把____________属性设置为False。
（）
A、Default
B、Visible
C、Activate
D、Enabled
17、如果在窗体上有命令按钮OK，在代码编辑窗口有与之对应的CmdOK_Click（）事件，则命令按钮控件的名称属性和Caption属性分别为_____。
（）
A、OK,Cmd
B、Cmd,OK
C、CmdOK,OK
D、OK,CmdOK
18、以下有关对象属性的说法中错误的是____________。
（）
A、所有的对象都具有Name（名称）属性
B、只能在执行时设置或改变的属性为执行时属性
C、对象的某些属性只能在设计时设定，不能使用代码改变
D、Enabled属性值设为False的控件对象在窗体上将不可见
19、对正实数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））
20、函数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
21、有如下程序代码：
PrivateSubCommand1_Click（）
s=Sin（3.1415926/2）
MsgBoxs
EndSub
程序运行后，消息对话框显示_________。
（）
A、0
B、1
C、1.5708
D、2
22、有如下程序：
PrivateSubCommand1_Click（）
s=Fix（23.1）
e=Int（-23.1）
PrintSgn（e+s）
EndSub
运行时输出的结果是_________。
（）
A、-1
B、0
C、1
D、23
23、执行语句"PrintFormat（1234.567,"##,##0.00"）",正确的输出结果是__________。
（）
A、1234.57
B、1,234.57
C、1,234.56
D、01,234.57
24、己知A$="12345678"，则表达式Val（Left$（A$，4）+Mid$（A$,4,2））的值为____________。
（）
A、123456
B、123445
C、8
D、6
25、Int（198.555*100+0.5）/100的值____________。
（）
A、198
B、199.6
C、198.56
D、200
26、x+y小于10且x-y大于0的逻辑表达式是________。
（）
A、x+y<10Orx-y>0
B、（x+y）<10:
（x-y）>0
C、x+y<10Andx-y>0
D、x+y<10.And.x-y>0
27、语句Print“Int（-13.2）=”;Int（-13.2）的输出结果为__________.（）
A、Int（-13.2）=-13.2
B、Int（-13.2）=13.2
C、Int（-13.2）=-13
D、Int（-13.2）=-14
28、执行下面的程序，单击窗体后在窗体上显示的结果是________。
PrivateSubForm_Click（）
DimStrlAsString,Str2AsString,IAsInteger
Str1=”ab”
ForI=Len（Str1）To1Step-1
Str1=Str1&Chr（Asc（Mid（Str1,I,1））+I）
NextI
PrintStr1
EndSub（）
A、abce
B、abcd
C、abdb
D、abfd
29、有如下程序：
PrivateSubCommand1_Click（）
score=65
selectCasescore
CaseIs<60
a$="F"
Case60To69
a$="D"
Case70To79
a$="C"
Case80To89
a$="B"
Caseelse
a$="A"
EndSelect
MsgBoxa$
EndSub
程序运行后，消息对话框中显示的内容为_______。
（）
A、A
B、B
C、C
D、D
30、下列程序：
PrivateSubForm_Click（）
Forj=1To15
a=a+jMod3
Nextj
Printa
EndSub
运行后输出的结果是__________。
（）
A、1
B、15
C、90
D、120
31、在窗体上添加一个命令按钮，名为Command1，一文本框，名为Text1,则执行如下事件过程后，文本框中的输出为______。
PrivateSubCommand1_Click（）
Fori=1To4
x=3
Forj=1To3
Fork=1To3
x=x+3
Nextk
Nextj
Nexti
Text1.Text=Str（x）
EndSub（）
A、6
B、12
C、18
D、30
32、给出下面的程序
PrivateSubCommand1_Click（）
DimCheck,Counter
Check=True:
Counter=0
Do
Counter=Counter+1
IfCounter=10ThenCheck=False:
ExitDo
LoopUntilCheck=False
MsgBoxCounter
EndSub
程序最后弹出的消息对话框的内容是_________。
（）
A、True
B、False
C、20
D、10
33、当Form1_Click事件发生时，程序的输出结果是__________。
PrivateSubForm_Click（）
DimMAsInteger,kAsInteger,tAsInteger
M=5:
k=7
SelectCaseM
case1To10
t=M:
M=k:
k=t
CaseElse
M=kMod3
EndSelect
PrintM,k,t
EndSub（）
A、557
B、575
C、755
D、757
34、在窗体上建立3个文本框：
Text1、Text2、Text3，如果在Text1中输入200，在Text2中输入150，则执行下列程序段后，Text3的值为______。
DimmAsInteger,nAsInteger
m=Val（Text1）
n=Val（Text2）
Ifn*m=0ThenExitSub
Ifm>nThen
t=m:
m=n:
n=t
EndIf
Do
r=mModn
m=n
n=r
LoopWhiler<>0
Text3=m（）
A、200
B、150
C、100
D、50
35、DimyAsInteger
m=1
DoWhilem<3
m=m+1
Printm
Loop（）
A、2
B、23
C、234
D、2345
36、下面语句错误的是________。
（）
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
37、下列程序运行后的输出结果是________。
PrivateSubCommand1_Click（）
Fori=1TO3
Forj=0TOi-1
k=k+1
nextj
nexti
printk
EndSub（）
A、6
B、5
C、4
D、3
38、在过程中有语句ForI=N1ToN2StepN3，在该循环体内有下列四条语句，其中________会影响循环执行的次数。
①N1=N1+I②N2=N2+N3③I=I+N3④N3=2*N3（）
A、①②
B、①②③
C、③
D、①②③④
39、下列循环能正常结束循环的是____________。
（）
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
40、表达式（7\3+1）*（18\5-1）的值是___________.（）
A、8.67
B、7.8
C、6
D、6.67
41、以下不合法的常量是_____________.（）
A、10^2
B、100
C、100.0
D、10E+01
42、对窗体编写如下代码：
OptionBase1
PrivateSubCommand1_Click（）
a=Array（237,126,87,48,498）
m1=a
（1）
m2=1
Fori=2To5
Ifa（i）>m1Then
m1=a（i）
m2=i
EndIf
Nexti
Printm1;m2
EndSub
程序运行后，按回车键，输出结果为_________。
（）
A、484
B、2371
C、4985
D、4984
43、在窗体上画一个命令按钮，然后编写如下事件过程：
OptionBase1
PrivateSubCommand1_Click（）
DimaAsVariant
a=Array（1,2,3,4）
j=1
Fori=4To1Step-1
s=s+a（i）*j
j=j*10
Nexti
Prints
EndSub
运行上面的程序，单击命令按钮，其输出结果是_____________。
（）
A、4321
B、12
C、34
D、1234
44、程序代码如下，当单击窗体上Command1控件时，窗体上显示的结果是_________。
OptionBase1
PrivateSubCommand1_Click（）
DimiAsInteger
Dimx（3,3）AsInteger
Fori=1To3
Forj=1To3
x（i,j）=（i-1）*3+j
Nextj
Nexti
Fori=1To3
Printx（i,4-i）；
Nexti
EndSub（）
A、159
B、147
C、357
D、369
45、以下程序的输出结果是_________。
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
46、当发生Command1_Click事件后，程序输出结果是________。
OptionBase1
PrivateSubCommand1_Click（）
Dima（4,4）AsInteger,iAsInteger,sAsInteger
s=0
Fori=1To4
Forj=1To4
a（i,j）=（i-1）*4+j*2
Nextj
Nexti
Fori=1To4
s=s+a（i,i）
Nexti
Prints
EndSub（）
A、28
B、32
C、30
D、44
47、下列程序段的输出结果是____________。
DimiAsInteger
Dima（8）AsInteger
y=18:
i=0
Do
a（i）=yMod2
i=i+1
y=y\2
LoopUntily<1
Forj=i-1To0Step-1
Printa（j）;
Nextj
A、1000
B、10010
C、00110
D、10100
48、当发生Command1_Clik事件后，下列程序的输出结果是____________。
DimiAsInteger
Dima（10）AsInteger
Fori=9To0Step-1
a（i）=10-i
Nexti
Printa
（2）;a（5）;a（8）（）
A、258
B、741
C、852
D、369
49、当发生Command1_Clik事件后，下列程序的执行结果是____________。
PrivateSubCommand1_Click（）
Dima
a=Array（1,2,3,4,5）
Fori=1To4
Printa（i）-a（i-1）;
Nexti
EndSub（）
A、11111
B、1111
C、111
D、222
50、下列程序段的执行结果是________。
DimA（3,3）
ForM=1TO3
ForN=1TO3
IfN=MOrN=3-M+1Then
A（M,N）=1
Else
A（M,N）=0
EndIf
NextN
NextM
ForM=1TO3
ForN=1TO3
PrintA（M,N）;
NextN
Print
NextM（）
A、100
010
001
B、111
111
111
C、000
000
000
D、101
010
101
51、下列程序段的输出结果是________。
DimA（5）
ForI=0TO4
A（I）=I+1
M=I+1
IfM=3Then
A（M-1）=A（I-1）
Else
A（M）=A（I）
EndIf
IfI=3ThenA（I+1）=A（M-4）
PrintA（I）;
NextI（）
A、11122
B、21144
C、12245
D、22141
52、如下数组声明语句，则数组a包含元素的个数有____________。
Dima（3,-2to2,5）（）
A、120
B、75
C、60
D、13
53、如下二维数组声明语句，____________正确。
（）
A、Dima[3，4]AsInteger
B、Dima（3，4）AsInteger
C、Dima（n，n）AsInteger
D、Dima（34）AsInteger
54、要分配存放如下方阵的数据，____________数组声明语句能实现（不能浪费空间）。
每行三个元素，第一行为：
1.12.23.3第二行为：
4.45.56.6第三行为：
7.78.89.9（）
A、Dima（9）AsSingle
B、Dima（3，3）AsSingle
C、Dima（-1Tol，-5To-3）AsSingle
D、Dima（-3To-1，5To7）AsInteger
55、在窗体的通用声明处有语句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）
56、单击按钮,输出为__________。
PrivateSubfun（）
StaticaAsInteger
a=a+2
Printa
EndSub
PrivateSubCommand1_Click（）
DimmAsInteger
Form=1To3
Callfun
Nextm
EndSub
A、222
B、000
C、248
D、246
57、在单击命令按钮时的输出结果是________。
PrivateSubCommand1_Click（）
Dimx%,y%
x=1:
y=1
Forn=1to3
z=First（x,y）
Printn,z
Nextn
EndSub
PrivateFunctionFirst%（x%,y%）
Dimn%
DoWhilen<=4
x=x+y
n=n+1
Loop
First=x
EndFunction
A、16211316
B、26131116
C、123456
D、213133
58、程序运行后，如果单击命令按钮，则在文本框中显示的内容是________。
PrivateSubCommand1_Click（）
dimx,y,zAsInteger
x=5:
y=7:
z=0
text1=“”
callp1（x,y,z）
text1=str（z）
EndSub
PrivateSubp1（ByVala%,ByValb%,c%）
c=a+b
EndSub
A、0
B、12
C、Str（z）
D、没有显示
59、当在Cmd1按钮上单击时，程序的输出是
PublicFunctionFunc（a%,b%）AsInteger
StaticmAsInteger:
DimiAsInteger
m=0:
i=2:
i=i+m+1:
m=i+a+b:
Func=m
EndFunction
PrivateSubCmd1_Click（）
Dimk%,m%,n%
k=4:
m=1:
n=Func（k,m）
Printn,Func（k,m）
EndSub（）
A、88
B、820
C、816
D、817
60、在Cmdl_C1ick事件中有效的地址传递的调用语句是
PublicSubFl（n%）
…
n=3*n+4
…
EndSub
升级会员 