月计算机等级考试二级VB真题

1、2009年3月计算机等级考试二级VB笔试试题及答案一、选择题（每题2分，共计70分）(1)下列叙述中正确的是 A)栈是先进先出的线性表B)队列是"先进后出"的线性表C)循环队列是非线性结构D)有序线性表即可以采用顺序存储结构,也可以采用链式存储结构 (2)支持子程序调用的数据结构是A)栈 B)树 C)队列 D)二叉树 (3)某二叉树有5个读为2的结点,则该二叉树中的叶子结点数是A)10 B)8 C)6 D)4 (4)下列排序方法中,最坏情况下比较次数最少的是A)冒泡排序 B)简单选择排序 C)直接插入排序 D)堆排序(5)软件按功能可以分为:应

2、用软件、系统软件和支撑软件(或工具软件)。下列属于应用软件的是A)编译程序 B)操作系统 C)教务管理系统 D)汇编程序 (6)下面叙述中错误的是A)软件测试的目的是发现错误并改正错误B)对被调试程序进行"错误定位"是程序调试的必要步骤C)程序调试也成为DebugD)软件测试应严格执行测试计划，排除测试的随意性(7)耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是A)提高耦合性降低内聚性有利于提高模块的独立性B)降低耦合性提高内聚性有利于提高模块的独立性C)耦合性是指一个模块内部各个元素间彼此结合的紧密程度D)内聚性是指模块间互相连接的紧密程度(8)

3、数据库应用系统中的核心问题是A)数据库设计 B)数据库系统设计 C)数据库维护 D)数据库管理员培训(9)有两个关系R,S如下：由关系R通过运算得到关系S,则所使用的运算为A)选择 B)投影 C)插入 D)连接 (10)将E-R图转换为关系模式时,实体和联系都可以表示为A)属性 B)键 C)关系 D)域(11)执行语句 Dim X,Y As Integer 后,A)X和Y均被定义为整型变量B)X和Y均被定义为变体类型变量C)X被定义为整型变量,Y被定义为变体变量D)X被定义为变体类型变量,Y被定义为整型变量(12)以下关系表达式中，其值为True的是A)"XYZ"

4、>"XYz" B)"VisualBasic"<>"visualbasic"C)"the"="there" D)"Integer"<"Int"(13)执行以下程序段a$="Visual Basic Programming"b$="C+"C$=UCase(Left$(a$,7) & b$ & Right$(a$,12)后,变量C$的值为A)Visual BASIC Programm

5、ing B)VISUAL C+ ProgrammingC)Visual C+ Programming D)VISUAL BASIC Programming(14)下列叙述中正确的是A)MsgBox语句的返回值是一个整数B)执行MsgBox语句并出现信息框后,不用关闭信息框即可执行其他操作C)MsgBox语句的第一个参数不能省略D)如果省略MsgBox语句的第三个参数(Title),则信息框的标题为空(15)在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后,在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数,以下可以实现上述操作的事件过程是A)P

6、rivate Sub Text1_Change()Label1.Caption=str(Len(Text1.Text)End SubB)Private Sub Text1_Click()Label1.Caption=str(Len(Text1.Text)End SubC)Private Sub Text1_Change()Label1.Caption=Text1.TextEnd SubD)Private Sub Label1_Change()Label1.Caption=str(Len(Text1.Text)End Sub(16)在窗体上画两个单选按钮(名称分别为Option1,Option2

7、,标题分别为"宋体"和"黑体"),1个复选框(名称为Check1,标题为粗体)和1个文本框(名称为Text1,Text属性为"改变文字字体")，窗体外观如图所示。程序运行后，要求“宋体”单选按钮和“粗体”复选框被选中，则以下能够实现上述操作的语句序列是A)Option1.Value=FalseCheck1.Value=TrueB)Option1.Value=TrueCheck1.Value=0C)Option2.Value=FalseCheck1.Value=2D)Option1.Value=TrueCheck1.Value=1(17

8、)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:PrivateSubCommand1_Click()c=1234c1=Trim(Str(c)Fori=1To4Print_NextEndSub程序运行后,单击命令按钮，要求在窗体上显示如下内容：1121231234则在横线处应填入的内容为A)Right(c1,i)B)Left(c1,i)C)Mid(c1,i,1)D)Mid(c1,i,1)(18)假定有一下程序段Fori=1To3Forj=5To1Step-1Printi*jNextjNexti则语句Print i*j 的执行次数是A)15 B)16 C)17 D)18(1

9、9)在窗体上画两个文本框（名称分别为Text1和Text2）和一个命令按钮（名称为Command1），然后编写如下事件过程：PrivateSubCommand1_Click()x=0DoWhilex<50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别为A)1和0 B)2和72 C)3和50 D)4和168(20)阅读程序：PrivateSubCommand1_Click()a=0Forj=1To15a=a+jMod3NextjPrintaEndSub程序运行后

10、，单击窗体，输出结果是A)105 B)1 C)120 D)15 (21)以下说法中正确的是A)当焦点在某个控件上时，按下一个字母键，就会执行该控件的KeyPress事件过程B)因为窗体不接受焦点，所以窗体不存在自己的KeyPress事件过程C)若按下的键相同，KeyPress事件过程中的KeyAscii参数与KeyDown事件过程中的KeyCode参数的值也相同D)在KeyPress事件过程中，KeyAscii参数可以省略 (22)语句Dim a(-3 To 4,3 To 6) As Integer 定义的数组的元素个数是A)18 B)28 C)21 D)32  

11、(23)在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*jj=j*10NextiPrintsEndSub程序运行后，单击命令按钮，其输出结果是A)4321 B)1234 C)34 D)12 (24)假定通过复制，粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是A)数组中每个命令按钮的名称(Name属性)均为Command1B)若未做修改,数组中每个命令按钮的大小都一样C)数组中各个

12、命令按钮使用同一个Click事件过程D)数组中每个命令按钮的Index属性值都相同 (25)在窗体上画一个命令按钮，名称为Command1,然后编写如下代码：OptionBase0PrivateSubCommand1_Click()DimA1(4)AsInteger,A2(4)AsIntegerFork=0To2A1(k+1)=InputBox("请输入一个整数")A2(3-k)=A1(k+1)NextkPrintA2(k)EndSub程序运行后,单击命令按钮，在输入对话框中依次输入2、4、6则输出结果为A)0 B)1 C)2 D)3 (26)以下关于函

13、数过程的叙述中，正确的是A)函数过程形参的类型与函数返回值的类型没有关系B)在函数过程中，过程的返回值可以有多个C)当数组作为函数过程的参数是，既能以传值方式传递，也能以传址方式传递D)如果不指明函数过程参数的类型，则该参数没有数据类型 (27)在窗体上画两个标签按钮和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：PrivateSubfunc(LAsLabel)L.Caption="1234"EndSubPrivateSubForm_Load()Label1.Caption="ABCDE"Label2

14、.Caption=10EndSubPrivateSubCommand1_Click()a=Val(Label2.Caption)Callfunc(Label1)Label2.Caption=aEndSub程序运行后，单击命令按钮，则在两个标签中显示的内容分别为A)ABCD和10 B)1234和100 C)ABCD和100 D)1234和10 (28)在窗体上画一个命令按钮(名称为Command1)，并编写如下代码:Functionfun1(ByValaAsInteger,bAsInteger)AsIntegerDimtAsIntegert=a-bb=t+afun1=t+bEndFun

15、ctionPrivateSubCommand1_Click()DimxAsIntegerx=10Printfun1(fun1(x,(fun1(x,x-1),x-1)EndSub程序运行后，单击命令按钮，输出结果是A)10 B)0 C)11 D)21 (29)以下关于过程及过程参数的描述中，错误的是A)过程的参数可以是控件名称B)调用过程时使用的实参的个数应与过程形参的个数相同C)只有函数过程能够将过程中处理的信息返回到调用程序中D)窗体可以作为过程的参数 (30)设有如下通用过程PublicFunctionFun(xStrAsString)AsStringDimtStrAs

16、String,strLAsIntegertStr=""strL=Len(xStr)i=strL/2DoWhilei<=strLtStr=tStr&Mid(xStr,i+1,1)i=i+1LoopFun=tStr&tStrEndFunction在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下事件过程PrivateSubCommand1_Click()DimS1AsStringS1="ABCDEF"Text1.Text=LCase(Fun(S1)EndSub程序运行后，单击命令按钮，文本框中显示

17、的是A)ABCDEF B)abcdef C)defdef D)defabc (31)在窗体上画一个命令按钮和一个文本框（名称分别为Command1和Text1）,并把窗体的KeyPreview属性设置为True,然后编写如下代码：DimSaveAllAsStringPrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPrivateSubCommand1_Click()Text1.Text=LCase(SaveAll)+SaveAllEndSubPrivateSubForm_KeyPress(KeyAs

18、ciiAsInteger)SaveAll=SaveAll+Chr(KeyAscii)EndSub程序运行后，直接用键盘输入：VB,再单击命令按钮则文本框中显示的内容为A)vbVB B)不显示任何信息 C)VB D)出错 (32)设有以下程序PrivateSubForm_Click()x=50Fori=1To4y=InputBox("请输入一个整数")y=Val(y)IfyMod5=0Thena=a+yx=yElsea=a+xEndIfNextiPrintaEndSub程序运行后，单击窗体，在输入对话框中依次输入15,24,35,46,输出结果为A)100 B)50

19、 C)120 D)70 (33)以下关于菜单的叙述中，错误的是A)当窗体为活动窗体时，用Ctrl+E键可以打开菜单编辑器B)把菜单项的Enabled属性设置为False,则可删除该菜单项C)弹出式菜单在菜单编辑器中设计D)程序运行时，利用控件数组可以实现菜单项的增加或减少 (34)以下叙述中错误的是A)在程序运行时,通用对话框控件是不可见的B)调用同一个通用对话框控件的不同方法(如ShowOpen或ShowSave)可以打开不同的对话框窗口C)调用通用对话框控件的ShowOpen方法,能够直接打开在该通用对话框中指定的文件D)调用通用对话框控件的ShowColor方法,可以

20、打开颜色对话框窗口(35)设在工程文件中有一个标准模块，其中定义了如下记录类型:TypeBooksNameAsString*10TelNumAsString*20EndType在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条Books类型的记录，下列能够完成该操作的事件过程是A)PrivateSubCommand1_Click()DimBAsBooksOpen"Person.txt"ForOutputAs#1B.Name=InputBox("输入姓名")B.Name=

21、InputBox("输入电话号码")Write#1,B.Name,B.TelNumClose#1EndSubB)PrivateSubCommand1_Click()DimBAsBooksOpen"Person.txt"ForOutputAs#1B.Name=InputBox("输入姓名")B.Name=InputBox("输入电话号码")Print#1,B.Name,B.TelNumClose#1EndSubC)PrivateSubCommand1_Click()DimBAsBooksOpen"Perso

22、n.txt"ForOutputAs#1B.Name=InputBox("输入姓名")B.Name=InputBox("输入电话号码")Write#1,BClose#1EndSubD)PrivateSubCommand1_Click()DimBAsBooksOpen"Person.txt"ForOutputAs#1B.Name=InputBox("输入姓名")B.Name=InputBox("输入电话号码")Print#1,Name,TelNumClose#1EndSub二、填空题（每空

23、2分，共计30分）(1)假设用一个长度为50的数组(数组元素的下标从0到49)作为栈的存储空间,栈底 指针bottom指向栈底元素,栈顶指针top指向栈顶元素,如果bottom=49,top=30(数租下标),则栈中具有【1】个元素(2)软件测试可分为白盒测试和黑盒测试。基本路径测试属于【2】测试(3)符合结构化原则的三种基本控制结构是:选择结构、循环结构和【3】(4)数据库系统的核心是【4】(5)在E-R图中，图形包括矩形框、菱形框、椭圆框。其中表示实体联系的是【5】框(6)窗体如图所示,其中汽车是名称为Image1的图像框，命令按钮的名称Command1, 计时器的名称为Timer1,直线

24、的名称为Line1。程序运行时，单击命令按钮，则汽车每0.1秒向左移动100，车头到达左边的直线时停止移动。请填空完成下面的属性设置和程序，以便实现上述功能。1)Timer1的Interval属性的值应事先设置为【6】2)Private Sub Command1_Click()Timer1.Enabled = TrueEnd Sub3)Private Sub Timer1_Timer()If Image1.Left > 【7】 ThenImage1.Left = 【8】 - 100End IfEnd Sub 7.上题【7】的答案是 8.上一题【8】的答案是 

25、9. (7)设窗体上有一个名称为Combo1的组合框,并有以下程序：Private Sub Combo1_KeyPress(KeyAscii As Integer)If 【9】 = 13 ThenFor k = 0 To Combo1.ListCount - 1If Combo1.Text = Combo1.List(k) ThenCombo1.Text = ""Exit ForEnd IfNext kIf Combo1.Text <> "" ThenCombo1.AddItem 【10】End IfEnd IfEnd Sub程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中的文本添加到列表的尾部。请填空。 10. 上一题【10】的答案是 11. (8)在当前目录下有一个名为"myfile.txt"的文本文件,其中有若干行文本。下面程序的功能是读入此文件中的所有文本行，按行计算每行字符的ASCII码之和，并显示在窗体上。请填空PrivateSubCommand1_Click()Dimch$,asciiAsIntegerOpen"myfile.txt"For【11】As#1WhileNot