0911年计算机等级考试VB历年真题.docx
《0911年计算机等级考试VB历年真题.docx》由会员分享,可在线阅读,更多相关《0911年计算机等级考试VB历年真题.docx(76页珍藏版)》请在冰豆网上搜索。
![0911年计算机等级考试VB历年真题.docx](https://file1.bdocx.com/fileroot1/2023-1/29/1d520203-25d6-4370-b62c-88baf1cdbd42/1d520203-25d6-4370-b62c-88baf1cdbd421.gif)
0911年计算机等级考试VB历年真题
2009年3月计算机等级考试二级VB真题
一、选择题(每小题2分,共70分)
(1)下列叙述中正确的是
A)栈是“先进先出”的线性表
B)队列是“先进后出”的线性表
C)循环队列是非线性结构
D)有序线性表既可以采用顺序存储结构,也可以采用链式存储结构
(2)支持子程序调用的数据结构是
A)栈 B)树 C)队列 D)二叉树
(3)某二叉树有5个度为z的结点,则该二叉树中的叶子结点数是
A)10 B)8 C)6 D)4
(4)下列排序方法中,最坏情况下比较次数最少的是
A)冒泡排序 B)简单选择排序 C)直接插入排序 D)堆排序
(5)软件按功能可以分为:
应用软件、系统软件和支撑软件(或工具软件)。
下面属于应用软件的是
A)编译程序 B)操作系统 C)教务管理系统 D)汇编程序
(6)下面叙述中错误的是
A)软件测试的目的是发现错误并改正错误
B)对被调试的程序进行“错误定位”是程序调试的必要步骤
C)程序调试通常也称为Debug
D)软件测试应严格执行测试计划,排除测试的随意性
(7)耦合性和内聚性是对模块独立性度量的两个标准。
下列叙述中正确的是
A)提高耦合性降低内聚性有利他哦高模块的独立性
B)降低耦合性提高内聚性有利于提高模块的独立性
C)耦合性是指一个模块内部各个元索间彼此结合的紧密程度
D)内聚性是指模块间互相连接的紧密程度
(8)数据库应用系统中的核心问题是
A)数据库设计 B)数据库系统设计 C)数据库维护 D)数据库管理员培训
(9)有两个关系R,S如下:
由关系R通过运算得到关系S,则所使用的运算为
A)选择 B)投影 C)插入 D)连接
(10)将E-R图转换为关系模式时,实体和联系都可以表示为
A)属性 B)键 C)关系 D)域
(11)执行语句DunX,YAsInteger后,
A)X和Y均被定义为整型变量
B)X和Y均被定义为变体类型变量
C)X被定义为整型变量,Y被定义为变体类型变量
D)X被定义为变体类型变量,Y被定义为整型变量
(12)以下关系表达式中,其值为True的是
A)“XYZ”>“XYz”
B)“VisualBasic”<>“visualbasic”
C)“the”=“there”
D)“Integer”<“Int”
(13)执行以下程序段
a$=“VisualBasicProgramming”
b$=“C++”
c$=UCase(Left$}a$,7))&b$&Right$(a$,12)
后·变量c$的值为
A)VisualBASICProgramming
B)VISUALC++Programming
C)VisualC++Programming
D)VISUALBASICProgramming
(l4)下列叙述中正确的是
A)MsgBox语句的返同值是一个整数
B)执行MsgBox语句并出现信息框后,不用关闭信息框即可执行其他操作
C)MsgBox语句的第一个参数不能省略
D)如果省略MsgBox语句的第二个参数(Title),则信息框的标题为空
(15)在窗体上画一个文本框(名称为Text1)和一个标签(名称为Labell)>程序运行后,在文本框中每输入一个字符,都会立即在标签中显示文本框中字符的个数。
以下可以实现上述操作的李件过程是
A)PrivateSubTextl_Change()
Labell.Caption=Str(Len(Text1.Text))
EndSub
B)PrivateSubTextl_Click()
Labell.Caption=Str(Len(Text1.Text))
EndSub
C)PrivateSubTextl_Change()
Labell.Caption=Text1.Text
EndSub
D)PrivateSubLabell_Change()
Labell.Caption=Str(Len(Text1.Text))
EndSub
16)在窗体上画两个单选按钮(名称分别为Optionl,Option2,标题分别为“宋体”和“黑体”)、1个复选框(名称为Checkl,标题为“粗体”)和1个文本框(名称为Textl,Text属性为“改变文字字体”),窗体外观如图所示。
程序运行后,要求“宋体”单选按钮和“粗体”复选框被选中,则以下能够实现上述操作的语句序列是
A)Optionl.Value=False
Checkl.Value=Tnre
B)Optionl.Value=True
Checkl.Value=d
C)即tion2.Value=False
Check1.Vatue=2
D)Option1.Value=True
Check1.Value=1
(17)在窗体上画个名称为Command1的命令按钮然后编写如下事件过程:
PrivateSubCommandl_Click()
c=1234
cl=Trim(Str(c))
For i=1 To 4
Print_____
Next
EndSub
程序运行后,单击命令按钮,要求在窗体匕显示如下内容:
1
12
123
1234
则在横线处应填入的内容为
A)Right(cl,i) B)Left(cl,i) C)Mid(c1,i,1) D)Mid(cl,i,i)
(18)假定有以下程序段
Fori=1To3
Forj=5To1Step-1
Printi*j
Next j
Nexti
则语句Printi*j的执行次数是
A)15 B)16 C)l7 D)18
(19)在窗体上画两个文本框(名称分别为Textl和Text2)和一个命令按钮(名称为Commandl)然后编写如下事件过程:
Private Sub Corunandl_Click()
x=0
Do while x<50
x=(x+2)*(x.+3)
n=n+1
Loop
Textl.Text=Str(n)
Text2.Text=Str(x)
EndSub
程序运行后,单击命令按钮,在两个文本框中显小的值分别为
A)1和0 B)2和72 C)3和50 D)4和168
(20)阅读程序:
PrivateSubForm_Click()
a=0
Forj=1 To 15
a=a+jMod3
Nextj
Printa
EndSub
程序返行后,单击窗体,输出结果是
A)105 B)1 C)120 D)15
(21)以下说法中正确的是
A)当焦点在某个控件上时,按下一个字母键,就会执行该空间的KeyPress时间过程
B)因为窗体不接受焦点,所以窗体不存在自己的KeyPress事们过程
C)若按下的键相同,KeyPress事件过程中的KeyAscii参数与KeyDcwn事件过程中的KeyCode参数的值也相同
D)在KeyPress事件过程中,KeyAscii参数可以省略
(22)语句Dima(-3To4,3To6)Asinteger定义的数组的元素个数是
A)18 B)28 C)21 D)32
(23)在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码:
OptionBase1
PrivateSubCommandl_Click()
Dim a
a=Array(1,2;3,4)
j=1
Fori=4To1Step-1
s=s+a(i)*j
j=j*10
Nexti
Prints
EndSub
程序运行后,单击命令按钮,其输出结果是
A)4321 B)1234 C)34 D)12
(24)假定通过复制、粘贴操作建立了一个命令按钮数组Command1,以下说法中错误的是
A)数组中每个命令按钮的名称(Namc属性)均为Command1
B)若末做修改,数组中每个命令按钮的大小都一样
C)数组中各个命令按钮使用同一个Click事件过程
D)数组中每个命令按钮的Index属性值都相同
(25)在窗体上画一个命令按钮,名称为Command1,然后编写如下代码:
OptionBase0
PrivateSubCommandl_Ciick()
DimA1(4)AsInteger,A2(4)AsInteger
Fork=0To2
A1(k+1)=InputBox(“请输入一个整数”)
A2(3-k)=Al(k+1)
nextk
PrintA2(k)
EndSub
程序运行后,单击命令按钮,在输入对话框中依次输入2,4,6,则输出结果为
A)0 B)1 C)2 D)3
(26)以下关于函数过程的叙述中,正确的是
A)函数过程形参的类型与函数返回值的类型没有关系
B)在函数过程中,过程的返回值可以有多个
C)当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递
D)如果不指明函数过程参数的类型,则该参数没有数据类型
(27)在窗体上画两个标签和一个命令按钮,其名称分别为Labell,Label2和Cemmandl
然后编写如下程序:
Private Sub func(LAsLabel)
L.Caption=“1234”
Erd Sub
PrivateSubForm_Load()
Labell.Caotion=“ABCDE”
Label2.Caption=10
EndSub
privateSubForm_Click()
a=Val(Label2.Caption)
Callfunc(Label1)
Labe12.Caption=a
EndSub
程序运行后,单击命令按钮,则在两个标签中显示的内容分别为
A)ABCD和10 B)1234和100 C)ABCD和100 D)1234和10
(28)在窗体上画一个命令按钮(名称为Commandl),并编写如下代码:
FunctionFunl(ByValaAsInteger,bAsInteger)AsInteger
DimtAsInteger
t=a-b
b=t+a
Funl=t+b
EndFunction
PrivateSubCommands_Ciick()
DimxAsInteger
x=10
PrintFunl(Funl(x,(Fun1(x,x-1)));x-1)
EndSub
程序运行后,单击命令按钮,输出结果是
A)10 B)0 C)11 D)21
(29)以下关于过程及过程参数的描述中,错误的是
A)过程的参数可以是控件名称
B)调用过程时使川的实参的个数应与过程形参的个数相同
C)只有函数过程能够将过程中处理的信息返回到调用程序中
D)窗体可以作为过程的参数
(30)设有如下通用过程:
publicFunctionFun(xStrAsString)AsString
DimtstrAsstring,strLAsInteger
tstr=“”
strL=Len(xstr)
i=strL/2
Dowhilei<=strl
tstr=tstr&Mid(xstr,i+l,1)
i=i+1
Loop
Fun=tstr&tstr
End Furction
在窗侧一口了一个名称Text1的文本框和一个名称为Cammandl的命令按钮。
然后编写如下的事件过程:
Privatesubcommand1_click()
Dims1Asstring
s1=“ABCDEF”
Textl.Text=Lcase(Fun(s1))
EndSub
程序运行后,单击命令按钮,文本框中显示的是
A)ABCDEF B)abcdef C)defdef D)defabc
(31)在窗体上画一个命令按钮和一个文本框(名称分别为Commandl和Textl),并把窗体的KeyPreview属性设置为True,然后编写如下代码:
Dim.SaveAllAsString
PrivateSubForm_Load()
Show
Text1.Text=“”
Text1.setFocus
EndSub
privatesubcommandl_click()
Text1.Text=Lcase(Save.All)+SaveAll
EndSub
privatesubForm_Keypress(KeyAsciiAsInteger)
SaveAll=SaveAll+chr(KeyAscii)
Endsub
程序运行后,直接用键盘输入:
VB,再单击命令按钮,则文本框中显不的内容为
A)vbVB B)小显示任何信息 C)VB D)出错
(32)设有以下程序:
PrivateSubFormClick()
x=50
Fori=1 To 4
y=InputBox(“请输入一个整数”)
y=Val(y)
IfyMod5=0Then
a=a+y
x=y
Else
a=a+x
EndIf
Nexti
Printa
EndSub
程序运行后,单击窗体,在输入对话框中依次输入15.24,35,46.输出结果为
A)100 B)50 C)120 D)70
(33)以下关于菜单的叙述中,错误的是
A)当窗体为活动窗体时,用Ctrl+E键可以打开菜单编辑器
B)把菜单项的Enabled属性设置为False,则可删除该菜单项
C)弹出式菜单在菜单编辑器中设计
D)程序运行时,利用控件数织可以实现菜单项的增加或减少
(34)以下叙述中错误的是
A)在程序运行时,通用对话框控件是不可见的
B)调用同一个通用对话框控件的不同方法(如ShowOpen或ShowSave)可以打开不同的对话框窗口
C)调用通用对话框控件的ShowOpcu方法,能够直接打开在该通用对话框中指定的文件
D)调用通用对话框控件的ShowColor方法,可以打开颜色对话框窗口
(35)设在工程文件中有一个标准模块,其中定义了如下记录类型:
TypeBooks
NameAsString*10
Tc1NumAsString*20
EndType
在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Commandl_Click时,在顺序文件Person.txt中写入一条Books类型的记录。
下列能够完成该操作的事件过程是
A)PrivateSubCommandlClick()
DimBAsBooks
Open“Person.txt”ForOutputAs#1
B.Name=InputBox(“输入姓名”)
B.TelNum=InputBox(“输入电话号码”)
Write#1,B.name,B.TelNum
Close#1
EndSub
B)PrivateSubCommandlClick()
DimBAsBooks
Open“Person.txt”ForInputAs#1
B.Name=InputBox(“输入姓名”)
B.TelNum=InputBox(“输入电话号码”)
Write#1,B.name,B.TelNum
Close#1
EndSub
C)PrivateSubCommandlClick()
DimBAsBooks
Open“Person.txt”ForOutputAs#1
B.Name=InputBox(“输入姓名”)
B.TelNum=InputBox(“输入电话号码”)
Write#1,B
Close#1
EndSub
D)PrivateSubCommandlClick()
DimBAsBooks
Open“Person.txt”ForInputAs#1
B.Name=InputBox(“输入姓名”)
B.TelNum=InputBox(“输入电话号码”)
Write#1,name,TelNum
Close#1
EndSub
二、填空题(每空2分,共30分)
(1)假设用一个长度为50的数组(数组元索的下标从0到49)作为栈的存化空间,栈底指针bottom指间栈底元素,栈顶指针top指向栈顶元素,如果bottom=49,top=30(数组下标),则栈中具有【1】个元素。
(2)软件测试可分为白盒测试和黑盒测试。
基本路径测试属于【2】测试。
(3)符合结构化原则的三种基本控制结构是:
选择结构、循环结构和【3】。
(4)数据库系统的核心是【4】。
(5)在E-K图中,图形包括矩形框、菱形框、椭圆框。
其中表示实体联系的是【5】框。
(6)窗体如图所示,其中汽车是名称为Image1的图像框,命令按钮的名称为Command1,计时器的名称为Timed,直线的名称为Linelo程序运行时,单击命令按钮,则汽车每0.1秒向左移动100,车头到达左边的直线时停止移动。
请填空完成下面的属性设置和程序,以便实现上述功能。
1)TimerL的Interval属性的值应事先设置为【6】
2)Private Sub Ccmmandl_Click()
Timer1.Enabled=True
EndSub
PrivateSubTimerlTimer()
IfTmagel.Left>=【7】-Then
Imagel.left=【8】-100
EndIf
EndSub
(7)设窗体上有一个名称为Combo1的组台框,并有以下程序:
PrivateSubCumbol_KeyPress(KeyAsciiAsInteger)
If【9】=13Then ‘回车符的ASCCII码是13
Fork=0ToCombo1.Listcount-1
IfCombo1.Text=Combo1.List(k)Then
Combo1.Text=“”
ExitFor
EndIf
Nextk
IfCombo1.Text<>“”Then
Combo1.AddTtem【10】
EndIf
EndIf
EndSub
程序的功能是:
在组合框的编辑区中输入文本后按回车键,则检查列表中有无与此文本相同的项目,若有,则把编辑区中的文本删除,否则把编辑区中文文本添加到列表的尾部。
请填空。
(8)在当前目录下有一个名为“myfile.txf”的文本文件,其中有若干行文本。
下面程序的功能是读入此文件中的所有文本行,按行计算每行字符的ASCII码之和,并显示在窗体上。
请填空。
Private Sub Conunandl_Click()
Dimch$,ascii.ASInteger
Open“myfile.txt”For【11】As#1
WhileNotEOF
(1)
LineInput#1,ch
ascii=toascii【12】
Printascii
Wend
Close#1
EndSub
Private Functiontoascii(mystr$)AsInteger
N=0
Fork=1To【13】
n=n+Asc(Mid(mystr,k,1))
Nextk
Toascii=n
EndFunction
(9)本程序实现文本加密。
先给定序