二级VISUAL+BASIC真题.docx
《二级VISUAL+BASIC真题.docx》由会员分享，可在线阅读，更多相关《二级VISUAL+BASIC真题.docx（26页珍藏版）》请在冰点文库上搜索。
二级VISUAL+BASIC真题
2006年4月全国计算机等级考试二级笔试试卷
VisualBasic语言程序设计
（考试时间90分钟，满分100分）
一、选择题（
（1）～（35）每小题2分，共70分）
下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。
（1）下列选项中不属于结构化程序设计方法的是______。
A）自顶向下B）逐步求精
C）模块化D）可复用
（2）两个或两个以上的模块之间关联的紧密程度称为______。
A）耦合度B）内聚度C）复杂度D）数据传输特性
（3）下列叙述中正确的是______。
A）软件测试应该由程序开发者来完成
B）程序经调试后一般不需要再测试
C）软件维护只包括对程序代码的维护
D）以上三种说法都不对
（4）按照“后进先出”原则组织数据的数据结构是______。
A）队列B）栈C）双向链表D）二叉树
（5）下列描述中正确的是______。
A）线性链表是线性表的链式存储结构
B）栈与队列是非线性结构
C）双向链表是非线性结构
D）只有根结点的二叉树是线性结构
（6）对如下二叉树
进行后序遍历的结果为______。
A）ABCDEFB）DBEAFC
C）ABDECFD）DEBFCA
（7）在深度为7的满二叉树中，叶子结点的个数为______。
A）32B）31
C）64D）63
（8）“商品”与“顾客”两个实体集之间的联系一般是______。
A）一对一B）一对多
C）多对一D）多对多
（9）在E-R图中，用来表示实体的图形是______。
A）矩形B）椭圆形
C）菱形D）三角形
（10）数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是______。
A）DB包含DBS和DBMSB）DBMS包含DB和DBS
C）DBS包含DB和DBMSD）没有任何关系
（11）以下关于VisualBasic特点叙述中，错误的是______。
A）VisualBasic是采用事件驱动编程机制的语言
B）VisualBasic程序既可以编译运行，也可以解释运行
C）构成VisualBasic程序的多个过程没有固定的执行顺序
D）VisualBasic程序不是结构化程序，不具备结构化程序的三种基本结构
（12）以下叙述中，错误的是______。
A）一个VisualBasic应用程序可以含有多个标准模块文件
B）一个VisualBasic工程可以含有多个窗体文件
C）标准模块文件可以属于某个指定的窗体文件
D）标准模块文件的扩展名是.bas
（13）以下叙述中错误的是______。
A）在VisualBasic中，对象所能响应的事件是由系统定义的
B）对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定
C）VisualBasic中允许不同对象使用相同名称的方法
D）VisualBasic中的对象具有自己的属性与方法
（14）设有如下语句：
Dima,bAsInteger
c="VisualBasic"
d=#7/20/2005#
以下关于这段代码的叙述中，错误的是______。
A）a被定义为Integer类型变量B）b被定义为Integer类型变量
C）c中的数据是字符串D）d中的数据是日期类型
（15）以下能从字符串“VisualBasic”中直接取出子字符串“Basic”的函数是______。
A）LeftB）MidC）StringD）Instr
（16）设a=4,b=3,c-2,d=1，下列表达式的值是______。
a＞b＋1Orc＜dAndbModc
A）TrueB）1C）-1D）0
（17）以下可以作为VisualBasic变量名的是______。
A）A#AB）counstAC）3AD）?
AA
（18）设x=4,y=6，则以下不能在窗体上显示出“a=10”的语句是______。
A）PrimA=x＋yB）Print"A="；x＋y
C）Print"A="＋str（x＋y）D）Print"A="&X＋y
（19）假定有如下的命令按扭（名称为Command1）事件过程：
PrivateSubCommand1_Click（）
x=InputBox（“输入：
”，“输入整数”）
MsgBox“输入的数据是：
”，，“输入数据：
”＋x
EndSub
程序运行后，单击命名按扭，所果从键盘上输入整数10，则以下叙述中错误的是______。
A）x的值是数值10
B）输入对话框的标题是“输入整数”
C）信息框的标题是“输入数据：
10”
D）信息框中显示的“输入的数据是：
”
（20）在窗体上画1个命令按扭（名称为Command1）和1个文本框（名称为Text1），然后编写如下事件过程：
PrivateSubCommand1_click（）
x=Val（Text1.Text）
SelectCasex
Case1,3
y=x*x
CaseIs＞=10,Is＜=-10
y=x
Case-10To10
y=-x
EndSelect
EndSub
程序运行后，在文本框中输入3，然后单击命令按扭，则以下叙述中正确的是______。
A）执行y=x*xB）执行y=-x
C）先执行y=x*x，再执行y=-xD）程序出错
（21）设有命令按钮Command1的单击事件过程，代码如下：
PrivateSubCommand1_Click（）
Dima（30）AsInteger
Fori=1To30
a（i）=Int（Rnd*100）
Next
ForEacharrItemIna
IfarrItemMod7=0ThenPrintarrItem
IfarrItem＞90ThenExitFor
Next
EndSub
对于该事件过程，以下叙述中错误的是______。
A）a数组中的数据是20个100以内的整数
B）语句ForEacharrItemIna有语法错误
C）IfarrItemMod7=0……语句的功能是输出数组中能够被7整除的数
D）IfarrItem＞90……语句的作用是当数组元素的值大于90时退出For循环
（22）设有命令按钮Command1的单击事件过程，代码如下：
PrivateSubCommand1Click（）
Dima（3,3）AsInteger
Fori=1To3
Forj=1To3
a（i,j）=i*j+i
Nextj
Nexti
Sum=0
Fori=1To3
Sum=Sum+a（i,4-i）
Nexti
PrintSum
EndSub
运行程序，单击命令按钮，输出结果是______。
A）20B）7C）16D）17
（23）在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1Click（）
a=0
Fori=1To2
Forj=1To4
IfjMod2＜＞0Then
a=a-1
EndIf
a=a＋1
Nextj
Nexti
Printa
EndSub
程序运行后，单击命令按钮，输出结果是______。
A）0B）2C）3D）4
（24）窗体上有名称为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1，如图1所示。
程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算（乘以1、10或100），并将结果显示在Text2中，如图2所示，为了实现上述功能，在程序中的问号（?
）处应填入的内容是______。
PrivateSubOption1Click（IndexAsInteger）
IfText1.Text＜＞""Then
SelectCase?
Case0
Text2.Text=Val（Text1.Text）
Case1
Text2.Text=Val（Text1.Text）*10
Case2
Text2.Text=Val（Text1.Text）*100
EndSelect
EndIf
EndSub
A）IndexB）Option1.IndexC）Option1（Index）D）Option1（Index）.Value
（25）在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序：
PrivateSubCommand1Click（）
Dima（10）AsInteger
DimxAsInteger
Fori=1To10
a（i）=8+i
Next
x=2
Printa（f（x）＋x）
EndSub
Functionf（xAsInteger）
x=x＋3
f=x
EndFunction
程序运行后，单击命令按钮，输出结果为______。
A）12B）15C）17D）18
（26）以下关于过程的叙述中，错误的是______。
A）事件过程是由某个事件触发而执行的过程
B）函数过程的返回值可以有多个
C）可以在事件过程中调用通用过程
0）不能在事件过程中定义函数过程
（27）在窗体上画3个标签、3个文本框（名称分别为Text1、Text2和Text3）和1个命令按钮（名称为Command1），外观如图所示。
编写如下程序
PrivateSubFormLoad（）
Text1.Text=""
Text2.Text=""
Text3.Text=""
EndSub
PrivateSubCommand1Click（）
x=Val（Text1.Text）
y=Val（Text2.Text）
Text3.Text=f（x,y）
EndSub
Functionf（ByValxAsInteger,ByValyAsInteger）
DoWhiley＜＞0
tmp=xMody
x=y
y=tmp
Loop
f=x
EndFunction
运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是______。
A）4B）6C）8D）12
（28）窗体上有名称分别为Text1、Text2的2个文本框，要求文卒框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。
为了实现上述功能，在以下程序中问号（?
）处应填入的内容是______。
PrivateSubText1LostFocus（）
CallCheckInput（Text1,500）
EndSub
PrivateSubText2LostFocus（）
CallCheCkInput（Text2,1000）
EndSub
SubCheckInput（tAS?
xAsInteger）
IfVal（t.Text）＞XThen
MsgBox"请重新输入!
"
EndIf
EndSub
A）TextB）SelTextC）ControlD）Form
（29）在窗体上画1个文本框，其名称为Text1，然后编写如下过程：
PfivmeSubText1_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
PrintChr（KeyCode）
EndSub
PrivateSubText1_KeyUp（KeyCodeAsInteger,ShiftAsInteger）
PrintChr（KeyCode＋2）
EndSub
程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为______。
A）AB）AC）AD）A
ABCD
（30）为了使列表框中的项目呈多列显示，需要设置的属性为______。
A）ColumnsB）Style
C）ListD）MultiSelect
（31）在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：
DimFlagAsBoolean
PrivateSubCommand1_Click（）
DimintNumAsInteger
intNum=InputBox（“请输入：
”）
IfFlagThen
Printf（intNum）
EndIf
EndSub
Functionf（XasInteger）AsInteger
IfX＜10Then
Y=X
Else
Y=X＋10
EndIf
f=Y
EndFunction
PrivateSubForm_MouseUp（ButtonAsInteger,ShiftAsInteger,XasSingle,YAsSingle）
Flag=True
EndSub
运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为______。
A）0B）5C）15D）无任何输出
（32）在菜单编辑器中建立1个名称为Menu0菜单项，将其“可见”属性设置为False，并建立其若干子菜单，然后编写如下过程：
PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle，YAsSingle）
IfButton=1Then
PopupMenuMenu0
EndIf
EndSub
则以下叙述错误的是______。
A）该过程的作用是弹出一个菜单
B）单击鼠标右键时弹出菜单
C）Menu0在菜单编辑器中定义的弹出菜单的名称
D）参数X、Y指明鼠标当前位置的坐标
（33）窗体上有1个过程为CD1的通用对话框，1个名称为Command1晌命令按钮。
命令按钮的单击事件过程如下：
PrivateSubCommand1_Click（）
CD1.FileName=""
CD1.Filter="AllFiles|*.*|（*.Doc）|*.Doc|（*.Txt）|*.Txt"
CD1.FilterIndex=2
CD1.Action=1
EndSub
关于以上代码，错误的叙述是______。
A）执行以上事件过程，通用对话框被设置为“打开”文件对话框
B）通用对话框的初始路径为当前路径
C）通用对话框的默认文件类型为*.Txt
D）以上代码不对文件执行操作
（34）以下叙述错误的是______。
A）用Shell函数可以执行扩展名为.exe的应用程序
B）若用Static定义通用过程，则该过程中的局部变量都被默认为Static类型
C）Static类型的变量可以在标准模块的声明部分定义
D）全局变量必须在标准模块中用Public或Global声明
（35）以下关于文件的叙述中，错误的是______。
A）使用Append方式打开文件时，文件指针被定位于文件尾
B）当以输入方式（Input）打开文件时，如果文件不存在，则建立一个新文件
C）顺序文件各记录的长度可以不同
D）随机文件打开后，既可以进行读操作，也可以进行写操作
二、填空题（每空2分，共30分）
请将每空的正确答案写在【1】～【15】序号的横线上。
（1）对长度为10的线性表进行冒泡排序，最坏情况下需要比较的次数为【1】。
（2）在面向对象方法中【2】描述的是具有相似属性与操作的一组对象。
（3）在关系模型中，把数据看成是二维表，每一个二维表称为一个【3】。
（4）程序测试分为静态分析和动态测试。
其中【4】是指不执行程序，而只是对程序文本进行检查，通过阅读和讨论，分析和发现程序中的错误。
（5）数据独立性分为逻辑独立性与物理独立性。
当数据的存储结构改变时，其逻辑结构可以不变，因此，基于逻辑结构的应用程序不必修改，称为【5】。
（6）下列语句的输出结果是【6】。
PrintFormat（Int（12345.6789*100＋0.5）/100，"0000,0.00"）
（7）在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：
PrivateSubCommand1_Click（）
Dimarr（1To100）AsInteger
Fori=1To100
arr（i）=Int（Rnd*1000）
Nexti
Max=arr
（1）
Min=arr
（1）
Fori=1To100
If【7】Then
Max=arr（i）
EndIf
If【8】Then
Min=arr（i）
EndIf
Nexti
Print"Max="；Max，"Min="；Min
EndSub
程序运行后，单击命令按钮，将产生100个1000以内的随机整数，加入数组arr中，然后查找并输出这100个数中的最大值Max和最小值Min，请填空。
（8）在窗体上画1个名称为Command1和命令按钮和2个名称分别为Text1、Text2的文本框，如图所示，然后编写如下程序：
FunctionFun（XAsInteger,ByValyAsInteger）AsInteger
x=x＋y
IfX＜0Then
Fun=x
Else
Fun=y
EndIf
EndFunction
PrivateSubCommand1Click（）
DimaAsInteger,bAsInteger
a=-10:
b=5
Text1.Text=Fun（a,B）
Text2.Text=Fun（a,B）
EndSub
程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是【9】和【10】。
（9）在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：
DimSaveAllAsString
PrivateSubCommand1Click（）
Text1.Text=Left（UCase（SaveAll）,4）
EndSub
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
SaveAll=SaveAll＋Chr（KeyAscii）
EndSub
程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是【11】。
（10）在窗体上画1个命令按钮和1个通用对话框，其名称分别为Command1和CommonDialog1，然后编写如下事件过程：
PrivateSubCommand1Click（）
CommonDialog1.【12】="打开文件""
CommonDialog1.Filter="AllFiles（*.*）|*.*"
CommonDialog1.InitDir="C:
\"
CommonDialog1.ShowOpen
EndSub
该程序的功能是，程序运行后，单击命令按钮，将显示“打开”文件对话框，其标题是“打开文件”，在“文件类型”栏内显示“AllFiles（*.*）”，并显示C盘根目录下的所有文件，请填空。
（11）在窗体上画1个文本框，名称为Text1，然后编写如下程序：
PrivateSubForm_Load（）
Open"d:
\temp\dat.txt"ForOutputAs#1
Text1.Text=""
EndSub
PrivateSubText1KeyPress（KeyAsciiAsInteger）
If【13】=13Then
IfUCase（Text1.Text）=【14】Then
Closer#1
End
Else
Write#1，【15】
Text1.Text=""
EndIf
EndIf
EndSub
以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键（回车符的ASCII码是13）都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则结束程序。
请填空。
答案
2006年4月全国计算机等级考试二级笔试试卷
VisualBasic语言程序设计
参考答案及评析
一、选择题
（1）D
知识点：
结构化程序设计方法
评析：
20世纪70年代以来，提出了许多软件设计方法，主要有①逐步求精：
对复杂的问题，应设计一些子目标作过渡，逐步细化；②自顶向下：
程序设计时应先考虑总体，后考虑细节；先考虑全局目标，后考虑局部目标。
不要一开始就过多追求众多的细节，先从最上层总目标开始设计，逐步使问题具体化；③模块化：
一个复杂问题，肯定是由若干稍简单的问题构成。
模块化是把程序要解决的总目标分解为分目标，再进一步分解为具体的小目标，把每个小目标称为一个模块，而可复用是面向对象程序设计的一个优点。
（2）A
知识点：
耦合度
评析：
耦合度是模块间互相连接的紧密程度的度量；内聚度是一个模块内部各个元素间彼此结合的紧密程度的度量。
（3）D
知识点：
软件的测试与程序的调试
评析：
程序调试的任务是诊断和改正程序中的错误。
它与软件测试不同，软件测试是尽可能多地发现软件中的错误。
先要发现软件的错误，然后借助于一定的调试工具去找出软件错误的具体位置。
软件测试贯穿整个软件生命期，调试主要在开发阶段。
为了达到更好的测试效果，应该由独立的第三方来构造测试。
因为从心理学角度讲，程序人员或设计方在测试自己的程序时，要采取客观的态度是程度不同地存在障碍的。
软件的运行和维护是指将已交付的软件投入运行，并在运行使用中不断地维护，根据新提出的
升级会员 