计算机等级考试二级VB模拟试题二及答案解析Word文档格式.docx
《计算机等级考试二级VB模拟试题二及答案解析Word文档格式.docx》由会员分享，可在线阅读，更多相关《计算机等级考试二级VB模拟试题二及答案解析Word文档格式.docx（15页珍藏版）》请在冰豆网上搜索。
B）低内聚高耦合
C）高内聚低耦合
D）高内聚高耦合
（7）软件生命周期中花费时间最多的阶段是
A）详细设计
B）软件编码
C）软件测试
D）软件维护
（8）下列4项中说法不正确的是
A）数据库减少了数据冗余
B）数据库中的数据可以共享
C）数据库避免了一切数据的重复
D）数据库具有较高的数据独立性
（9）下列4项中，必须进行查询优化的是
A）关系数据库
B）网状数据库
C）层次数据库
D）非关系模型
A
（10）最常用的一种基本数据模型是关系数据模型，它的表示应采用
A）树
B）网络
C）图
D）二维表
（11）下列说法不正确的是
A）对象的可见性可设为True或False
B）标题的属性值可设为任何文本
C）属性窗口中属性可以按字母顺序排列
D）某些属性的值可以跳过不设置，系统自动设为空值
（12）要设置窗体为固定对话框，并包含控制菜单栏和标题栏，但没有最大化和最小化按钮，设置的操作是
A）设置BoderStyle的值为FixedToolWindow
B）设置BoderStyle的值为SizableToolWindow
C）设置BoderStyle的值为FixedDialog
D）设置BoderStyle的值为Sizable
（13）下面的控件可作为其他控件容器的是
A）PictureBox和Data
B）Frame和Image
C）PictureBox和Frame
D）Image和Data
（14）如果要将文本框作为密码框使用时，应设置的属性为
A）Name
B）Caption
C）PasswordChar
D）Text
（15）有关程序代码窗口的说法错误的是
A）在窗口的垂直滚动条的上面，有一个"
拆分栏"
，利用它可以把窗口分为两个部分，每个窗口显示代码的一部分
B）双击控件设计窗体即可打开程序代码窗口
C）在程序代码的左下角有两个按钮，可以选择全模块查看或者是过程查看
D）默认情况下，窗体的事件是Load
（16）VisualBasic中的数值可以用十六进制或八进制表示，十六进制数的开头符是&
H，八进制数的开头符号是
A）$O
B）&
O
C）$E
D）&
E
（17）MsgBox函数的返回值的类型为
A）数值型
B）变体类型
C）字符串型
D）日期型
（18）使"
计算机技术"
在当前窗体上输出的语句是
A）Print"
B）Picture.Print"
C）Printer.Print"
D）Debug.Print"
（19）用来设置文本框有无滚动条的属性是
A）ScrollBars
B）MultiLine
C）SelText
D）SelLength
（20）当Esc键与单击该命令按钮作用相同时，此命令按钮的什么属性被设置为True？
A）Style
B）Default
C）Caption
D）Cancel
（21）在VisualBasic种，要使标签的标题栏靠右显示，则将其Alignment属性设置为
B）2
C）1
D）3
（22）属性BorderColor的作用是
A）设置直线颜色和形状边界颜色
B）设置直线或形状背景颜色
C）设置直线或形状边界线的线型
D）设置形状的内部颜色
（23）下面哪个程序段能够正确实现如果A<
B，则A＝1，否则A＝-1？
A）IfA<
BThenA=1
A=-1
PrintA
B）IfA<
BThenA=1:
PrintA
A=-1:
C）IfA<
BThen
A=1:
Else
EndIf
D）IfA<
考生答案:
正确答案:
（24）下列程序段的执行结果为
a=2
b=0
SelectCasea
Case1
SelectCaseb
Case0
Print"
**0**"
**1**"
EndSelect
Case2
**2**"
EndSelect
A）**0**
B）**1**
C）**2**
D）0
（25）在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分虽为Label1、Label2，标题分别为空白和"
共有文件"
的标签。
编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。
如图所示。
能够正确实现上述功能的程序是
A）PrivateSubDir1_Change（）
File1.Path=Dir1.Path
EndSub
PrivateSubDive1_Change（）
Dir1.Path=Drive1.Drive
Label1.Caption=File1.ListCount
B）PrivateSubDir1_Change（）
File.Path=Dir1.Path
PrivateSubDive1_Change（）
Label1.Caption=File1.List
C）PrivateSubDir1_Change（）
File1.Path=Dir1.Path
Label1.Caption=File1.ListCount
EndSub
PrivateSubDrive1_Change（）
Dir1.Path=Drive1.Drive
D）PrivateSubDir1_Change（）
PrivateSubDive1_Change（）
（26）设有声明语句
OptionBase1
Dimb（-1To10,2To9,20）AsInteger
则数组b中全部元素的个数
A）2310
B）1920
C）1500
D）1658
（27）单击命令按钮，下列事件过程的执行结果为
PrivateSubCommand1_Click（）
DimxAsInteger,yAsInteger
x=40:
y=72
CallPtoP（x,y）
Printx;
y
PublicSubPtoP（ByvalnAsInteger,ByValmAsInteger）
n=n＼10+2
m=m＼10+2
A）08
B）4072
C）450
D）7850
（28）下列程序的执行结果为
DimpAsInteger,qAsInteger
p=12:
q=20
CallValue（p,q）
Printp;
q
PrivateSubValue（ByValmAsInteger,ByValnAsInteger）
m=m*2:
n=n-5
Printm;
n
A）2012
2015
B）1220
1225
C）2415
1220
D）2412
1215
（29）在窗体上画一个命令按钮，然后编写如下程序：
PrivateSubCommand3_Click（）
Cop2
Cop3
Cop4
SubCop（aAsInteger）
StaticxAsInteger
x=x+a
程序运行后，单击命令按钮，输出结果为
A）234
B）259
C）354
D）243
（30）有如下事件过程，单击命令按钮扣，输出结果为
PrivateSubCommand1_Click（）
Dimb%（1To4）,j%,t#
Forj=1To4
b（j）=j
Nextj
t=Tax（b（））
t="
;
t,
FunctionTax（a（）AsInteger）
Dimt#,i%
t=1
Fori=2ToUBound（A）
t=t*a（i）
Nexti
Tax=t
EndFunction
A）t＝18
B）t＝24
C）t＝30
D）t＝32
（31）设在窗体上有一个文本框，然后编写如下的事件过程：
PrivateSubText1_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
ConstAlt=4
ConstKey_F2=&
H71
altdown%=（ShiftAndAlt）>
0
f2down%=（KeyCode=Key_F2）
Ifaltdown%Andf2down%Then
Text1.Text="
abl"
程序运行后，清除文本框中原有内容，如果按Shift+F2键，则在文本框中显示的是
A）Alt+F2
B）abl
C）随机出几个数
D）不发生变化
（32）设已经在菜单编辑器中设计了窗体的快捷菜单，其顶级菜单为Bt，取消其"
可见"
属性，运行时，在以下事件过程中，可以使快捷菜单相应鼠标右键菜单的是
A）PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,_
XAsSingle,YAsSingle）
IfButton=2ThenPopupMenuBt,2
B）PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,
XAsSingle,YAsSingle）PopupMenuBt
C）PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,_
PopupMenuBt,0
D）PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,_
If（Button=vbLeftButton）Or（Button=vbRightButton）ThenPopupMenuBt
（33）在窗体上画一个通用对话框，其Name属性为Cont，再画一个命令按钮，Name属性为Command1，然后编写如下事件过程：
Cont.FileName="
"
Cont.Flags=vbOFNFileMustExist
Cont.Filter="
AllFiles|*.*"
Cont.FilterIndex=3
Cont.DialogTitle="
OpenFile"
Cont.Action=1
IfCont.FileName="
Then
MsgBox"
Nofileselected"
OpenCont.FileNameForInputAs#1
DoWhileNotEOF
（1）
Input#1,b$
Printb$
Loop
以下各选项，对上述事件过程描述错误的是
A）该事件过程用来建立一个Open对话框，可以在这个对话框中选择要打开的文件
B）选择后单击"
打开"
按钮，所选择的文件名即作为对话框的FileName属性值
C）Open对话框不仅仅用来选择一个文件，还可以打开、显示文件
D）过程中的"
Cont.Action=1"
用来建立Open对话框，它与Cont.ShowOpen等价
（34）已知使用Show方法的格式为：
［窗体名称］.Show［模式］，如果要使窗体是"
模态型"
窗体，则"
模式"
值为
A）True
B）0
D）False
（35）下面叙述不正确的是
A）对顺序文件中的数据操作只能按一定的顺序操作
B）顺序文件结构简单
C）能同时对顺序文件进行读写操作
D）顺序文件中只能知道第一个记录的位置
二、填空题
（1）当线性表采用顺序存储结构实现存储时，其主要特点是【1】。
1.（逻辑结构中相邻的结点在存储结构中仍相邻）
（2）软件工程的出现是由于【2】。
1.（软件危机的出现）
（3）单元测试又称模块测试，一般采用【3】测试。
1.（白盒法）
（4）数据库恢复是将数据库从【4】状态恢复到某一已知的正确状态。
1.（错误）
（5）数据的基本单位是【5】。
1.（数据元素）
（6）下列语句的输出结果是【6】。
PrintFormat$（6658.6,"
000,000.00"
）
1.（006,658.60）
（7）如果在D盘当前文件夹下已经存在名为PIC.dat的顺序文件，那么执行语句Open"
D:
＼PIC.dat"
ForAppendAs#1之后将【7】。
1.（在文件尾添加新内容）
（8）在有下面一个程序段从文本框中输入数据，如果该数据满足条件，除以6余2，除以5余3，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。
PrivateSubCommand1_Click（）
num=Val（Text1.Text）
If【8】Then
Printnum
【9】
1.（numMod6=2AndnumMod5=3）2.（Text1.SetFocus）
（9）下面的程序的作用是利用随机函数产生10个100~300（不包含300）之间的随机整数，打印其中7的倍数的数，并求它们的总和，请填空。
SubTOF（）
Randomize
DimsAsDouble
Dima（10）AsInteger
Fori=0To9
【10】
Next
Fori=0To9
If【11】Then
Printa（i）
s=s+a（i）
【12】
Print
S="
s
1.（a（i）=Int（Rnd*200+100））2.（a（i）Mod7=0）3.（EndIf）
（10）下面的程序是计算给定函数的值，自变量x，y的值用InputBox函数输入，函数如下：
f（x,y）=
程序不完整，请填空，将程序的补充完整。
OptionExplicit
DimxAsSingle
DimyAsSingle
DimzAsSingle
x=Val（InputBox（"
x="
））
y=Val（InputBox（"
y="
PrivateSubCommand2_Click（）
If【13】Then
z=x^2+y^2
ElseIf【14】Then
z=x^2-2*y^2
【15】
z=y^2-3*x^2
Form1.Print"
当x，y的值为：
x,y
f（x,y）的值为：
z
1.（x>
0Andy>
0）2.（x<
0）3.（Else）
升级会员 