二级VB真卷Word格式文档下载.docx
《二级VB真卷Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《二级VB真卷Word格式文档下载.docx（20页珍藏版）》请在冰点文库上搜索。
所谓数据独立性是指（）。
A）数据与程序独立存放
二级VisualBasic语言程序设计试卷第1页（共10页）
B）不同的数据被存放在不同的文件中
C）不同的数据只能被对应的应用程序所使用
D）以上3种说法都不对
（10）用树形结构表示实体之间联系的模型是（）。
A）关系模型B）网状模型
C）层次模型D）以上3个都是
（11）在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的
命令按钮，然后编写一个事件过程。
程序运行后，如果在文本框中输入一个字符，则
把命令按钮的标题设置为“计算机等级考试”。
下列能实现上述操作的事件过程是
A）PrivateSubText1_Change（）
Command1.Caption="
计算机等级考试"
EndSub
B）PrivateSubCommand1_Click（）
Caption="
C）PrivateSubForm1_Click（）
Text1.Caption="
D）PrivateSubCommand1_Click（）
Text1.Text="
（12）设a=5，b=4，c=3，d=2，下列表达式的值是（）。
3>
2*bOra=cAndb<
>
cOrc>
d
A）1B）True
C）FalseD）2
（13）设a="
MicrosoftVisualBasic"
，则下列使变量b的值为“VisualBasic”的语句是（）。
A）b=Left（a,10）B）b=Mid（a,10）
C）b=Right（a,10）D）b=Mid（a,11,10）
（14）有下列的窗体事件过程：
PrivateSubForm_Click（）
a$="
MicrosoftVisualBasic"
b$=Right（a$,5）
c$=Mid（a$,1,9）
MsgBoxa$,34,b$,c$,5
程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是（）。
A）MicrosoftVisualB）Microsoft
C）BasicD）5
（15）设a="
a"
，b="
b"
，c="
c"
，d="
d"
，执行语句x=IIf（（a<
b）Or（c>
d）,"
A"
"
B"
）后，x的值为
A）aB）b
C）BD）A
（16）为了使命令按钮（名称为Command1）右移200，应使用的语句是（）。
二级VisualBasic语言程序设计试卷第2页（共10页）
A）Command1.Move-200
B）Command1.Move200
C）Command1.Left=Command1.Left+200
D）Command1.Left=Command1.Left-200
（17）在窗体上画一个文本框，然后编写下列事件过程：
x=InputBox（"
请输入一个整数"
）
Printx+Text1.Text
程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击
“确定”按钮后，在窗体上显示的内容为（）。
A）123B）456
C）579D）123456
（18）在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口
中把计时器的Interval属性设置为1000、Enabled属性设置为False。
程序运行后，如
果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。
下列是实现上述操
作的程序。
PrivateSubCommand1_Click（）
Timer1.__
PrivateSubTimer1_Timer（）
Text1.Text=Time
在___处应填入的内容是（）。
A）Enabled=TrueB）Enabled=False
C）Visible=TrueD）Visible=False
（19）在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的
正确方法是（）。
A）选择图片框，然后按Del键
B）执行语句Picture1.Picture=LoadPicture（““）
C）执行语句Picture1.Picture=““
D）选择图片框，在属性窗口中选择Picture属性条，然后按回车键
（20）在窗体上画一个名称为List1的列表框，一个名称为Labe11的标签，列表框中显示
若干个项目。
当单击列表框中的某个项目时，在标签中显示被选中项目的名称。
下列
能正确实现上述操作的程序是（）。
A）PrivateSubList1_Click（）
Label1.Caption=List1.ListIndex
B）PrivateSubList1_Click（）
Label1.Name=List1.ListIndex
C）PrivateSubList1_Click（）
Label1.Name=List1.Text
二级VisualBasic语言程序设计试卷第3页（共10页）
D）PrivateSubList1_Click（）
Label1.Caption=List1.Text
（21）在窗体上画一个命令按钮，其名称为Command1，然后编写下列事件过程：
DimiAsInteger,xAsInteger
Fori=1To6
Ifi=1Thenx=i
Ifi<
=4Then
x=x+1
Else
x=x+2
EndIf
Nexti
Printx
程序运行后，单击命令按钮，其输出结果为（）。
A）9B）6
C）12D）15
（22）在窗体上画一个名称为Command1的命令按钮，然后编写下列事件过程：
c="
ABCD"
Forn=1To4
Print___
Next
程序运行后，单击命令按钮，要求在窗体上显示下列内容：
D
CD
BCD
ABCD
则在____处应填入的内容为（）。
A）Left（c,n）B）Right（c,n）
C）Mid（c,n,1）D）Mid（c,n,n）
（23）执行下列程序段后，x的值为（）。
DimxAsInteger,iAsInteger
x=0
Fori=20To1Step-2
x=x+i\5
A）16B）17
C）18D）19
（24）在VisualBasic工程中，可以作为“启动对象”的程序是（）。
A）任何窗体或标准模块
二级VisualBasic语言程序设计试卷第4页（共10页）
B）任何窗体或过程
C）SubMain过程或其他任何模块
D）SubMain过程或任何窗体
（25）建立一个名为Command1的命令按钮数组，则下列说法中错误的是（）。
A）数组中每个命令按钮的名称（Name属性）均为Command1
B）数组中每个命令按钮的标题（Caption属性）都一样
C）数组中所有命令按钮可以使用同一个事件过程
D）用名称Command1（下标）可以访问数组中的每个命令按钮
（26）把窗体的KeyPreview属性设置为True，然后编写下列事件过程：
PrivateSubForm_KeyPress（KeyAsciiAsInteger）
DimchAsString
ch=Chr（KeyAscii）
KeyAscii=Asc（UCase（ch））
PrintChr（KeyAscii+2）
程序运行后，按键盘上的“A”键，则在窗体上显示的内容是（）。
A）AB）B
C）CD）D
（27）在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写
下列事件过程：
a=InputBox（"
请输入日期（1～31）"
t="
旅游景点：
"
_
&
IIf（a>
0Anda<
=10,"
长城"
”“）_
10Anda<
=20,"
故宫"
20Anda<
=31,"
颐和园"
”“）
Text1.Text=t
程序运行后，如果从键盘上输入16，则在文本框中显示的内容是（）。
A）旅游景点：
长城故宫B）旅游景点：
长城颐和园
C）旅游景点：
颐和园D）旅游景点：
故宫
（28）在窗体上画一个名称为Label1的标签，然后编写下列事件过程：
Dimarr（10,10）AsInteger
DimiAsInteger,jAsInteger
Fori=2To4
Forj=2To4
arr（i,j）=j*j
Nextj
Label1.Caption=Str（arr（2,2）+arr（3,3））
程序运行后，单击窗体，在标签中显示的内容是（）。
A）12B）13
二级VisualBasic语言程序设计试卷第5页（共10页）
C）14D）15
（29）在窗体上画一个名称为Command1的命令按钮，然后编写下列通用过程和命令按钮
的事件过程：
PrivateFunctionfun（ByValmAsInteger）
IfmMod2=0Then
fun=2
fun=1
EndFunction
DimiAsInteger,sAsInteger
s=0
Fori=1To5
s=s+fun（i）
Prints
程序运行后，单击命令按钮，在窗体上显示的是（）。
A）6B）7
C）8D）9
（30）阅读程序：
OptionBase1
Dimarr（）AsInteger
ReDimarr（3,2）
Fori=1To3
Forj=1To2
arr（i,j）=i*2+j
ReDimPreservearr（3,4）
Forj=3to4
arr（3,j）=j+9
Printarr（3,2）+arr（3,4）
程序运行后，单击窗体，输出结果为（）。
A）21B）13
C）8D）25
（31）在窗体上画一个名称为Command1的命令按钮，然后编写下列事件过程：
二级VisualBasic语言程序设计试卷第6页（共10页）
DimcAsInteger,dAsInteger
d=0
c=6
x=Array（2,4,6,8,10,12）
Fori=1To6
Ifx（i）>
cThen
d=d+x（i）
c=x（i）
d=d-c
Printd
程序运行后，单击命令按钮，则在窗体上输出的内容为（）。
A）10B）16
C）12D）20
（32）设有下列程序：
c=4
d=InputBox（"
DoWhiled>
0
Ifd>
c=c+1
Loop
Printc+d
程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、
8、9、0，则输出结果是（）。
A）12B）11
C）10D）9
（33）在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本
框中输入字符串“MicrosoftVisualBasicProgramming”，然后编写下列事件过程：
Open"
d:
\temp\outf.txt"
ForOutputAs#1
Fori=1ToLen（Text1.Text）
c=Mid（Text1.Text,i,1）
Ifc>
="
Andc<
Z"
Then
Print#1,LCase（c）
二级VisualBasic语言程序设计试卷第7页（共10页）
Close
程序运行后，单击命令按钮，文件outf.txt中的内容是（）。
A）MVBPB）mvbp
C）MD）m
Vv
Bb
Pp
（34）在窗体上画一个名称为Command1的命令按钮，然后编写下列程序：
DimSWAsBoolean
Functionfunc（XAsInteger）AsInteger
IfX<
20Then
Y=X
Y=20+X
func=Y
PrivateSubForm_MouseDown（ButtonAsInteger,Shift_
Asinteger,XAsSingle,YAssingle）
SW=False
PrivateSubForm_MouseUp（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
SW=True
DimintNumAsInteger
intNum=InputBox（““）
IfSWThen
Printfunc（intNum）
程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则
程序的执行结果为（）。
A）输出0B）输出25
C）输出45D）无任何输出
（35）设有下列通用过程：
PublicSubFun（a（）AsInteger,xAsInteger）
Fori=1To5
x=x+a（i）
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。
然后编
写下列事件过程：
二级VisualBasic语言程序设计试卷第8页（共10页）
Dimarr（5）AsInteger,nAsInterger
arr（i）=i+i
Funarr,n
Text1.Text=Str（n）
程序运行后，单击命令按钮，则在文本框中显示的内容是（）。
A）30B）25
C）20D）15
二、填空题（每空2分，共30分）
（1）某二叉树中度为2的结点有18个，则该二叉树中有【1】个叶子结点。
（2）在面向对象方法中，类的实例称为【2】。
（3）诊断和改正程序中错误的工作通常称为【3】。
（4）在关系数据库中，把数据表示成二维表，每一个二维表称为【4】。
（5）问题处理方案准确而完整的描述称为【5】。
（6）下列语句的输出结果【6】。
PrintInt（12345.6789*100+0.5）/100
（7）在窗体上画一个文本框和一个图片框，然后编写下列两个事件过程：
VB程序设计"
PrivateSubText1_Change（）
Picture1.Print"
VBProgramming"
程序运行后，单击窗体，则在文本框中显示的内容是【7】，而在图片框中显示
的内容是【8】。
（8）阅读下列程序：
DimCheckAsBoolean,CounterAsInteger
Check=True
Counter=5
Do
DoWhileCounter<
20
Counter=Counter+1
IfCounter=10Then
Check=False
ExitDo
LoopUntilCheck=False
PrintCounter
二级VisualBasic语言程序设计试卷第9页（共10页）
程序运行后，单击窗体，输出结果为【9】。
（9）有下列程序：
DimaAsInteger,sAsInteger
n=8
s=s+n
n=n-1
LoopWhilen>
以上程序的功能是【10】。
程序运行后，单击窗体，输出结果为【11】。
（10）有下列程序：
Dimarr1
DimMinAsInteger,iAsInteger
arr1=Array（12,435,76,-24,78,54,866,43）
Min=【12】
Fori=2To8
Ifarr1（i）<
MinThen【13】
Print"
最小值是:
;
Min
以上程序的功能是：
用Array函数建立一个含有8个元素的数组，然后查找并输出该
数组中各元素的最小值。
请填空。
（11）在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口
升级会员 