全国计算机等级考试二级VB语言笔试试题及答案.docx
《全国计算机等级考试二级VB语言笔试试题及答案.docx》由会员分享，可在线阅读，更多相关《全国计算机等级考试二级VB语言笔试试题及答案.docx（15页珍藏版）》请在冰豆网上搜索。
全国计算机等级考试二级VB语言笔试试题及答案
2005年4月全国计算机等级考试二级VB语言笔试试题及答案
一、选择题（
（1）~（35）每小题2分，共70分）
下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
（1）数据的存储结构是指（ ）。
A．存储在外存中的数据
B．数据所占的存储空间量
C．数据在计算机中的顺序存储方式
D．数据的逻辑结构在计算机中的表示
（2）下列关于栈的描述中错误的是（ ）。
A．栈是先进后出的线性表
B．栈只能顺序存储
C．栈具有记忆作用
D．对栈的插入与删除操作中，不需要改变栈底指针
（3）对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是（ ）。
A．冒泡排序为n/2
B．冒泡排序为n
C．快速排序为n
D．快速排序为n（n-1）/2
（4）对长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为（ ）。
A．log2n
B．n/2
C．n
D．n+1
（5）下列对于线性链表的描述中正确的是（ ）。
A．存储空间不一定是连续，且各元素的存储顺序是任意的
B．存储空间不一定是连续，且前件元素一定存储在后件元素的前面
C．存储空间必须连续，且前件元素一定存储在后件元素的前面
D．存储空间必须连续，且各元素的存储顺序是任意的
（6）下列对于软件测试的描述中正确的是（ ）。
A．软件测试的目的是证明程序是否正确
B．软件测试的目的是使程序运行结果正确
C．软件测试的目的是尽可能多地发现程序中的错误
D．软件测试的目的是使程序符合结构化原则
（7）为了使模块尽可能独立，要求（ ）。
A．模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强
B．模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱
C．模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱
D．模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强
（8）下列描述中正确的是（ ）。
A．程序就是软件
B．软件开发不受计算机系统的限制
C．软件既是逻辑实体，又是物理实体
D．软件是程序、数据与相关文档的集合
（9）数据独立性是数据库技术的重要特点之一。
所谓数据独立性是指（ ）。
A．数据与程序独立存放
B．不同的数据被存放在不同的文件中
C．不同的数据只能被对应的应用程序所使用
D．以上三种说法都不对
（10）用树形结构表示实体之间联系的模型是（ ）。
A．关系模型
B．网状模型
C．层次模型
D．以上三个都是（11）在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。
程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。
以下能实现上述操作的事件过程是（ ）。
A．PrivateSubText1_Change（）
Command1.Caption="计算机等级考试"
EndSub
B．PrivateSubCommand1_Click（）
Caption="计算机等级考试"
EndSub
C．PrivateSubForm1_Click（）
Text1.Caption="计算机等级考试"
EndSub
D．PrivateSubCommand1_Click（）
Text1.Text="计算机等级考试"
EndSub
（12）设a=5，b=4，c=3，d=2下列表达式的值是（ ）。
3>2*bOra=cAndb<>cOrc>d
A．1
B．True
C．False
D．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
EndSub
程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是（ ）。
A．MicrosoftVisual
B．Microsoft
C．Basic
D．5
（15）设a="a"，b="b"，c="c"，d="d"，执行语句x=IIf（（a
D．,”A”,”B”）后，x的值为（ ）。
A．”a”
B．”b”
C．”B”
D．”A”
（16）为了使命令按钮（名称为Command1）右移200，应使用的语句是（ ）。
A．Command1.Move-200
B．Command1.Move200
C．Command1.Left=Command1.Left+200
D．Command1.Left=Command1.Left-200
（17）在窗体上画一个文本框，然后编写如下事件过程：
PrivateSubForm_Click（）
x=InputBox（"请输入一个整数"）
Printx+Text1.Text
EndSub
程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为（ ）。
A．123
B．456
C．479
D．123456
（18）在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。
程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。
以下是实现上述操作的程序：
PrivateSubCommand1_Click（）
Timer1.（ ）
EndSub
PrivateSubTimer1_Timer（）
Text1.Text=Time
EndSub
在下划线处应填入的内容是（ ）。
A．Enabled=True
B．Enabled=False
C．Visible=True
D．Visible=False
（19）假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是（ ）。
A．选择图片框，然后按Del键
B．执行语句Picture1.Picture=LoadPicture（""）
C．执行语句Picture1.Picture=""
D．选择图片框，在属性窗口中选择Picture属性条，然后按回车键
（20）在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目。
当单击列表框中的某个项目时，在标签中显示被选中项目的名称。
下列能正确实现上述操作的程序是：
_____。
A．PrivateSubList1_Click（）
Label1.Caption=List1.ListIndex
EndSub
B．PrivateSubList1_Click（）
Label1.Name=List1.ListIndex
EndSub
C．PrivateSubList1_Click（）
Label1.Name=List1.Text
EndSub
D．PrivateSubList1_Click（）
Label1.Caption=List1.Text
EndSub（21）在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimiAsInteger,xAsInteger
Fori=1To6
Ifi=1Thenx=i
Ifi<=4Then
x=x+1
Else
x=x+2
EndIf
Nexti
Printx
EndSub
程序运行后，单击命令按钮，其输出结果为（ ）。
A．9
B．6
12
D．15
（22）在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
c=“ABCD”
Forn=1To4
Print（ ）
Next
EndSub
程序运行后，单击命令按钮，要求在窗体上显示如下内容
D
CD
BCD
ABCD
则在（ ）处填入的内容为。
A．Left（c,n）
B．Right（c,n）
Mid（c,n,1）
D．Mid（c,n,n）
（23）执行以下程序段
DimiAsInteger,xAsInteger
x=0
Fori=20To1Step-2
x=x+i\5
Next
Printx
后，x的值为（ ）。
A．16
B．17
C．18
D．19
（24）在VisualBasic工程中，可以作为“启动对象”的程序是（ ）。
A．任何窗体或标准模块
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）
EndSub
程序运行后，按键盘上的“A”键，则在窗体上显示的内容是（ ）。
A．A
B．B
C．C
D．D
（27）在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：
PrivateSubCommand1_Click（）
a=InputBox（“请输入日期（1~31）”）
t=”旅游景点：
”_
&IIf（a>0Anda<=10,”长城”,””）_
&IIf（a>10Anda<=20,”故宫”,””）_
&IIf（a>20Anda<=31,”颐和园”,””）
Text1.Text=t
EndSub
程序运行后，如果从键盘上输入16，则在文本框显示的内容是（ ）。
A．旅游景点：
长城故宫
B．旅游景点：
长城颐和园
C．旅游景点：
颐和园
D．旅游景点：
故宫
（28）在窗体上画一个名称为Label1的标签，然后编写如下事件过程：
PrivateSubForm_Click（）
Dimarr（10,10）AsInteger
DimiAsInteger,jAsInteger
Fori=2To4
Forj=2To4
arr（i,j）=i*j
Nextj
Nexti
Label1.Caption=Str（arr（2,2）+arr（3,3））
EndSub
程序运行后，单击窗体，在标签中显示的内容是（ ）。
A．12
B．13
14
D．15
（29）在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
PrivateFunctionfun（ByValmAsInteger）
IfmMod2=0Then
fun=2
Else
fun=1
EndIf
EndFunction
PrivateSubCommand1_Click（）
DimiAsInteger,sAsInteger
s=0
Fori=1To5
s=s+fun（i）
Next
Prints
EndSub
程序运行后，单击命令按钮，在窗体上显示的是（ ）。
A．6
B．7
C．8
D．9
（30）阅读程序：
OptionBase1
Dimarr（）AsInteger
PrivateSubForm_Click（）
DimiAsInteger,jAsInteger
ReDimarr（3,2）
Fori=1To3
Forj=1To2
arr（i,j）=i*2+j
Nextj
Nexti
ReDimPreservearr（3,4）
Forj=3To4
arr（3,j）=j+9
Nextj
Printarr（3,2）+arr（3,4）
EndSub
程序运行后，单击窗体，输入结果为（ ）。
A．21
B．13
C．8
D．25（31）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
OptionBase1
PrivateSubCommand1_Click（）
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）
Else
d=d-c
EndIf
Next
Printd
EndSub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为（ ）。
A．10
B．16
C．12
D．20
（32）设有如下程序：
PrivateSubCommand1_Click（）
DimcAsInteger,dAsInteger
c=4
d=InputBox（"请输入一个整数"）
DoWhiled>0
Ifd>cThen
c=c+1
EndIf
d=InputBox（"请输入一个整数"）
Loop
Printc+d
EndSub
程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是（ ）。
A．12
B．11
10
D．9
（33）在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：
MicrosoftVisualBasicProgramming
然后编写如下事件过程：
PrivateSubCommand1_Click（）
Open"d:
\temp\outf.txt"ForOutputAs#1
Fori=1ToLen（Text1.Text）
c=Mid（Text1.Text,i,1）
Ifc>="A"Andc<="Z"Then
Print#1,LCase（
EndIf
Nexti
Close
EndSub
程序运行后，单击命令按钮，文件outf.txt中的内容是（ ）。
A．MVBP
B．mvbp
C．M
D．m
Vv
Bb
Pp
（34）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
DimSWAsBoolean
Functionfunc（XAsInteger）AsInteger
IfX<20Then
Y=X
Else
Y=20+X
EndIf
func=Y
EndFunction
PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
SW=False
EndSub
PrivateSubForm_MouseUp（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
SW=True
EndSub
PrivateSubCommand1_Click（）
DimintNumAsInteger
intNum=InputBox（""）
IfSWThen
Printfunc（intNum）
EndIf
EndSub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在输入对话框中输入25，则程序的执行结果为（ ）。
A．输出0
B．输出25
输出45
D．无任何输出
（35）设有如下通用过程：
PublicSubFun（a（）AsInteger,xAsInteger）
Fori=1To5
x=x+a（i）
Next
EndSub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。
然后编写如下的事件过程：
PrivateSubCommand1_Click（）
Dimarr（5）AsInteger,nAsInteger
Fori=1To5
arr（i）=i+i
Next
Funarr,n
Text1.Text=Str（n）
EndSub
程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）。
A．30
B．25
C．20
D．15二、填空题（每空2分，共30分）
请将每空的正确答案写在答题卡
本文档可编辑，内容仅供参考，需要结合您的实际情况进行修改调整。
编辑技巧分享：
技巧1：
目标定位
如果知道了要定位的目标，那么利用“定位目标”就是最快的方法，例如要定位到第n页，第n节，第n行。
操作方法：
单击菜单“编辑”→“查找与替换”对话框，Word默认切换到“定位”选项卡，选择左侧“定位目标”列表框中的一项，在右侧的“输入页号”文本框中设定用户要寻找的具体目标，然后单击“定位”按钮，光标就到了目标位置。
技巧2：
即点即输
用户在文档的空白区域输入内容时，通常会按回车键或空格键使光标到达想要的位置，但往往效果不甚理想，甚至导致出现排版问题而不断修改文档，此时就可以使用即点即输功能。
升级会员 