全国计算机等级考试二级visualbas考点分析和模拟题解析ic.docx
《全国计算机等级考试二级visualbas考点分析和模拟题解析ic.docx》由会员分享，可在线阅读，更多相关《全国计算机等级考试二级visualbas考点分析和模拟题解析ic.docx（13页珍藏版）》请在冰豆网上搜索。
全国计算机等级考试二级visualbas考点分析和模拟题解析ic
全国计算机等级考试考点分析-模拟真题试卷题解二级VisualBas
全国计算机等级考试考点分析模拟+真题试卷题解全国计算机等级考试二级笔试超级模拟试卷公共基础知识和VisualBasic语言程序设计
（考试时间90分钟，满分100分）
一、选择题（
（1）~（35）每小题2分，共70分）
下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
（1）在数据结构中，从逻辑上可以把数据结构分为______。
A）动态结构和静态结构B）紧凑结构和非紧凑结构
C）线性结构和非线性结构D）内部结构和外部结构
（2）若进栈序列为1，2，3，4，进栈过程中可以出栈，则下列不可能的一个出栈序列是______。
A）1，4，3，2B）2，3，4，1
C）3，1，4，2D）3，4，2，1
（3）排序方法中，将整个无序序列分割成若干小的子序列并分别进行（禁止）排序的方法，称为______。
A）希尔排序B）冒泡排序C）（禁止）排序D）选择排序
（4）在顺序表（3，6，8，10，12，15，16，18，21，25，30）中，用二分法查找关键码值11，所需的关键码比较次数为______。
A）2B）3C）4D）5
（5）对于n个结点的单向链表（无表头结点），需要指针单元的个数至少为______。
A）n-1B）nC）n+1D）2n
（6）在软件开发过程中，软件结构设计是描述______。
A）数据存储结构B）软件体系结构C）软件结构测试D）软件控制过程
（7）模块本身的内聚是模块独立性的重要性度量因素之一。
在7类内聚中，具有最强内聚的一类是______。
A）顺序性内聚B）过程性内聚C）逻辑性内聚D）功能性内聚
（8）数据存储和数据流都是______，仅仅是所处的状态不同。
A）分析结果B）事件C）动作D）数据
（9）数据的完整性是指数据的正确性、有效性和______。
A）可维护性B）独立性C）安全性D）相容性
（10）关系代数运算是以______为基础的运算。
A）关系运算B）谓词运算C）集合运算D）代数运算
（11）不能触发滚动条Change事件的操作是______。
A）拖动滚动条中滑块
B）单击滚动条中滑块
C）单击滚动条两端箭头
D）单击箭头与滑块之间的滚动条
（12）下面的四个VB6.0表达式语法正确的是______。
A）a>b.and.b<>cB）a>bcC）a>bAND<>cD）a>bANDb<>c
（13）骰子是一个正六面体，用1~6这六个数分别代表这六面，掷一次骰子出现的数可表示为______。
A）INT（RND（6）+1）B）INT（RND*6）
C）INT（RND*7）D）INT（RND*6+1）
（14）Print方法可以输出多个表达式，若使用标准格式输出，各表达式的分隔符应是______。
A）空格B）逗号C）冒号D）分号
（15）编写如下事件过程：
PrivateSubForm_Click（）
k=2
Ifk>=1ThenA=3
Ifk>=2ThenA=2
Ifk>=3ThenA=1
PrintA
EndSub
程序运行后，单击窗体，输出的结果为______。
A）1B）2C）3D）出错
（16）不能作为容器使用的对象是______。
A）窗体B）框架C）图片框D）图像框
（17）以下关于图片框控件的说法中，错误的是______。
A）可以通过Print方法在图片框中输出文本
B）清空图片框控件中图形的方法之一是加载一个空图形
C）图片框控件可以作为容器使用
D）用Stretch属性可以自动调整图片框中图形的大小
（18）以下叙述中错误的是______。
A）下拉式菜单和弹出式菜单都用菜单编辑器建立
B）在多窗体程序中，每个窗体都可以建立自己的菜单系统
C）除分隔线外，所有菜单项都能接收Click事件
D）如果把一个菜单项的Enabled属性设置为False，则该菜单项不可用
（19）以下关于变量作用域的叙述中，正确的是______。
A）窗体中凡被声明为Private的变量只能在某个指定的过程中使用
B）全局变量必须在标准模块中声明
C）模块级变量只能用Private关键字声明
D）Static类型变量的作用域是它所在的窗体或模块文件
（20）在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为：
_____。
A）Fori=0ToList1.ListCount-1
……
Next
B）Fori=0ToList1.Count-1
……
Next
C）Fori=0ToList1.ListCount
……
Next
D）Fori=0ToList1.Count
……
Next
（21）在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
PrivateSubCommand1_Click（）
x=-5
IfSgn（x）Then
y=Sgn（x^2）
Else
y=Sgn（x）
EndIf
Printy
EndSub
程序运行后，单击命令按钮，其输出结果为______。
A）-5B）25C）-1D）1
（22）在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
Dimarray1（10,10）AsInteger
DimiAsInteger,jAsInteger
Fori=1To3
Forj=2To4
array1（i,j）=i+j
Nextj
Nexti
Text1.Text=array1（2,3）+array1（3,4）
EndSub
程序运行后，单击命令按钮，在文本框中显示的值是______。
A）15B）14C）13D）12
（23）在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为Text1（下标从0开始，依次增大），然后编写如下事件过程：
PrivateSubCommand1_Click（）
ForEachTextBoxInText1
Text1（i）=Text1（i）.Index
i=i+1
Next
EndSub
程序运行后，单击命令按钮，四个文本框中显示的内容分别为______。
A）0123B）1234C）0132D）出错信息
（24）以下描述中正确的是______。
A）标准模块中的任何过程都可以在整个工程范围内被调用
B）在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程
C）如果工程中包含SubMain过程，则程序将首先执行该过程
D）如果工程中不包含SubMain过程，则程序一定首先执行第一个建立的窗体
（25）在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：
PrivateSubCommand1_Click（）
n=Val（Text1.Text）
Fori=2Ton
Forj=2ToSqr（i）
IfiModj=0ThenExitFor
Nextj
Ifj>Sqr（i）ThenPrinti
Nexti
EndSub
该事件过程的功能是______。
A）输出n以内的奇数
B）输出n以内的偶数
C）输出n以内的素数
D）输出n以内能被j整除的数
（26）在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。
以下能实现该操作的事件过程是______。
A）PrivateSubText1_KeyPress（KeyAsciiAsInteger）
IfKeyAscii<65OrKeyAscii>90Then
MsgBox"请输入大写字母"
KeyAscii=0
EndIf
EndSub
B）PrivateSubText1_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
IfKeyCode<65OrKeyCode>90Then
MsgBox"请输入大写字母"
KeyCode=0
EndIf
EndSub
C）PrivateSubText1_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
IfAsc（Text1.Text）<65OrAsc（Text1.Text）>90Then
MsgBox"请输入大写字母"
EndIf
EndSub
D）PrivateSubText1_Change（）
IfAsc（Text1.Text）>64AndAsc（Text1.Text）<91Then
MsgBox"请输入大写字母"
EndIf
EndSub
（27）编写如下程序：
PrivateSubForm_Click（）
a$="54321":
b$="abcde"
Forj=1To5
PrintMid$（a$,6-j,1）+Mid$（b$,j,1）;
Nextj
Print
EndSub
程序运行后，单击窗体，其输出结果为______。
A）a1b2c3d45eB）a5b4c3d2e1C）e1d2c3b4a5D）1a2b3c4d5e
（28）在窗体上画一个名称为Label1的标签，然后编写如下事件过程：
OptionBase1
PrivateSubForm_Click（）
Dima（20）AsInteger
Fork=1To20
a（k）=k^2
Nextk
Label1.Caption=a（k）
EndSub
程序运行后，单击窗体，在标签中显示的内容是______。
A）400B）20C）441D）出错信息
（29）在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：
PrivateSubCommand1_Click（）
n=Val（Text1.Text）
Ifn2=n/2Then
f=f1（n）
Else
f=f2（n）
EndIf
Printf;n
EndSub
PublicFunctionf1（ByRefx）
x=x*x
f1=x+x
EndFunction
PublicFunctionf2（ByValx）
x=x*x
f2=x+x+x
EndFunction
程序运行后，单击命令按钮，在窗体上显示的是______。
A）7236B）10836C）726D）1086
（30）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
OptionBase1
PrivateSubCommand1_Click（）
Dima（3,3）
Fori=1To3
Forj=1To3
Ifi=jThena（i,j）=1
Ifi<jThena（i,j）=2
Ifi>jThena（i,j）=3
Nextj
Nexti
Fori=1To3
Forj=1To3
Printa（i,j）;
Nextj
Print
Nexti
EndSub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为______。
A）133B）122C）233D）211
213312123321
221331112332
（31）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
OptionBase1
PrivateSubCommand1_Click（）
Dimarr（5）AsString
Fori=1To5
arr（i）=Chr（Asc（"A"）+（i-1））
Nexti
ForEachb1Inarr
Printb1;
Next
EndSub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为______。
A）ABCDEB）abcdeC）出错信息D）12345
（32）设有如下程序：
Dima（）AsInteger
PrivateSubCommand1_Click（）
n=-5:
m=6
ReDima（nTom）
Fori=LBound（a,1）ToUBound（a,1）
a（i）=i
Nexti
Printa（LBound（a,1））;a（UBound（a,1））
EndSub
程序运行后，单击命令按钮，则输出结果是______。
A）00B）-50C）-56D）06
（33）假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：
PrivateTypeanimal
animalNameAsString*20
aColorAsString*10
EndType
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimrecAsanimal
Open"c:
vbTest.dat"ForRandomAs#1Len=Len（rec）
rec.animalName="cat"
rec.aColor="White"
Put#1,,rec
Close#1
EndSub
则以下叙述中正确的是______。
A）记录类型animal不能在Form1中定义，必须在标准模块中定义
B）如果文件c:
vbTest.dat不存在，则Open命令执行失败
C）由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D）语句"Put#1,,rec"将animal类型的两个数据元素写到文件中
（34）在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
PrivateFunctionf（mAsInteger）
IfmMod2=0Then
f=m
Else
f=1
EndIf
EndFunction
PrivateSubCommand1_Click（）
DimiAsInteger
s=0
Fori=1To5
s=s+f（i）
Next
Prints
EndSub
程序运行后，单击命令按钮，在窗体上显示的是______。
A）11B）10C）9D）8
（35）在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
PrivateSubCommand1_Click（）
strText=InputBox（"请输入"）
Text1.Text=strText
EndSub
PrivateSubText1_Change（）
Label1.Caption=Right（Trim（Text1.Text）,3）
EndSub
程序运行后，如果在对话框中输入abcdef，则在标签中显示的内容是______。
A）空B）abcdefC）abcD）def
二、填空题（每空2分，共30分）
请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。
（1）对于长度为n的顺序存储的线性表，当随机（禁止）和删除一个元素时，需平均移动元素的个数为【1】。
（2）注释说明了程序的功能，它分为【2】注释和功能性注释。
（3）软件测试中路径覆盖测试是整个测试的基础，它是对软件【3】进行测试。
（4）数据库技术的主要特点为数据的集成性、数据的高【4】和低冗余性、数据独立性和数据统一管理与控制。
（5）数据元素之间【5】的整体称为逻辑结构。
（6）将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【6】。
（7）在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False。
程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit对应的菜单。
以下是实现上述功能的程序，请填空。
PrivateSubForm_【7】（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
IfButton=2Then
【8】mnuEdit
EndIf
EndSub
（8）与数学表达式cos2（a+b）/3x+5对应的VisualBasic表达式是【9】。
（9）在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1。
程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。
请填空。
PrivateSubOption1_Click（IndexAsInteger）
SelectCase【10】
Case0
a="宋体"
Case1
a="黑体"
Case2
a="楷体"
EndSelect
Text1.【11】=a
EndSub
（10）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
n=5
f=1
s=0
Fori=1Ton
f=【12】
s=s+f
Next
Prints
EndSub
该事件过程的功能是计算s=1+++...+的值。
请填空。
（11）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
OptionBase1
PrivateSubCommand1_Click（）
Dima（10）AsInteger
Fori=1To10
a（i）=i
Next
Callswap（【13】）
Fori=1To10
Printa（i）;
Next
EndSub
Subswap（b（）AsInteger）
n=【14】
Fori=1Ton/2
t=b（i）
b（i）=b（n）
b（n）=t
【15】
Next
EndSub上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a
（1）与a（10）的值互换，a
（2）与a（9）的值互换，……，a（5）与a（6）的值互换。
请填空。
---------------
升级会员 