VB二级历年真题

2009年3月二级VB语言笔试真题及答案B)X和丫均被定义为变体类型变量

一、选择题(每题2分，共计70分)C)X被定义为整型变量,Y被定义为变体变量

⑴下列叙述中正确的是D)X被定义为变体类型变量,Y被定义为整型变量

A)栈是先进先出的线性表(12)以下关系表达式中，其值为True的是

B)队列是死进后出”的线性表A)"XYZ">"XYz"

C)循环队列是非线性结构B)"VisualBasic"<>"visualbasic',

D)有序线性表即可以采用顺序存储结构，也可以采用链式存储结构C)"the"="there"

⑵支持子程序调用的数据结构是D)"lnteger"<"lnt"

A)栈B)树C)队列D)二叉树(13)执行以下程序段

⑶某二叉树有5个读为2的结点，则该二叉树中的叶子结点数是a$="VisualBasicProgramming"

A)10B)8C)6D)4b$="C++"

(4)下列排序方法中，最坏情况下比较次数最少的是C$=UCase(Left$(a$,7))&b$&Right$(a$,12)

A)冒泡排序B)简单选择排序后，变量C$的值为

C)直接插入排序D)堆排序A)VisualBASICProgramming

⑸软件按功能可以分为:应用软件、系统软件和支撑软件(或工具软B)VISUALC++Programming

件)。下列属于应用软件的是C)VisualC++Programming

A)编译程序B)操作系统D)VISUALBASICProgramming

C)教务管理系统D)汇编程序14)下列叙述中正确的是

(6)下面叙述中错误的是A)MsgBox语句的返回值是一个整数

A)软件测试的目的是发现错误并改正错误B)执行MsgBox语句并出现信息框后，不用关闭信息框即可执行其

B)对被调试程序进行"错误定位”是程序调试的必要步骤他操作

C)程序调试也成为DebugC)MsgBox语句的第一个参数不能省略

D)软件测试应严格执行测试计划，排除测试的随意性D)如果省略MsgBox语句的第三个参数(「tie)测信息框的标题为空

⑺耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正15)在窗体上画一个文本框(名称为Textl)和一个标签(名称为

确的是Label)程序运行后，

A)提高耦合性降低内聚性有利于提高模块的独立性在文本框中每输入一个字符，都会立即在标签中显示文本框中

B)降低耦合性提高内聚性有利于提高模块的独立性字符的个数，以下可以实

C)耦合性是指一个模块内部各个元素间彼此结合的紧密程度现上述操作的事件过程是

D)内聚性是指模块间互相连接的紧密程度A)PrivateSubTextl_Change()

(8)数据库应用系统中的核心问题是Labell.Caption=str(Len(Text1.Text))

A)数据库设计B)数据库系统设计EndSub

C)数据库维护D)数据库管理员培训B)PrivateSubTextl_Click()

(9)有两个关系R,S如下：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

由关系R通过运算得到关系S,则所使用的运算为16)在窗体上画两个单选按钮(名称分别为Option1,Option2,标题分

A)选择B)投影C)插入D)连接别为"宋体"和"黑体)

(10)将E-R图转换为关系模式时，实体和联系都可以表示为1个复选框(名称为Checkl,标题为粗体)和1个文本框(名称为

A)属性B)键C)关系D)域Textl,Text属性为"改变

(11)执行语句DimX,YAsInteger后,文字字体)窗体外观如图所示。程序运行后，要求“宋体’单

A)X和Y均被定义为整型变量选按钮和“粗体’复选框被

选中，则以下能够实现上述操作的语句序列是PrivateSubCommand1_Click()

x=0

DoWhilex<50

x=(x+2)*(x+3)

n=n+1

Loop

Text1.Text=Str(n)

Text2.Text=Str(x)

A)Option1.Value=FalseEndSub

Checkl.Value=True程序运行后，单击命令按钮，在两个文本框中显示的值分别为

B)Option1.Value=TrueA)1和0B)2和72

Checkl.Value=OC)3和50D)4和168

C)Option2.Value=False20)阅读程序:

Checkl.Value=2PrivateSubCommand1_Click()

D)Option1.Value=Truea=0

Checkl.Value=1Forj=1To15

17)在窗体上画一个名称为Commandl的命令按钮，然后编写如下a=a+jMod3

事件过程：Nextj

PrivateSubCommand1_Click()Printa

c=1234EndSub

c1=Trim(Str(c))程序运行后，单击窗体，输出结果是

Fori=1To4A)105B)1C)120D)15

Print____

Next21)以下说法中正确的是

EndSubA)当焦点在某个控件上时，按下一个字母键，就会执行该控件的

程序运行后，单击命令按钮，要求在窗体上显示如下内容：KeyPress事件过程

1B)因为窗体不接受焦点，所以窗体不存在自己的KeyPress事件过

12程

123C)若按下的键相同，KeyPress事件过程中的KeyAscii参数与

1234KeyDown事件过程中

则在横线处应填入的内容为的KeyCode参数的值也相同

A)Right(c1,i)D)在KeyPress事件过程中，KeyAscii参数可以省略

B)Left(c1J)

C)Mid(c1,i,1)22)语句Dima(-3To4,3To6)AsInteger定义的数组的元素个数

D)Mid(c1,i,1)是

18)假定有一下程序段A)18B)280)21D)32

Fori=1To3

Forj=5To1Step-123)在窗体上画一个命令按钮，其名称为Commandl,然后编写如

Printi*j下代码：

NextjOptionBase1

NextiPrivateSubCommand1_Click()

则语句Printi*j的执行次数是Dima

A)15B)16C)17D)18a=Array(1,2,3,4)

19)在窗体上画两个文本框(名称分别为Textl和Text2)和一个命j=1

令按钮(名称为Fori=4To1Step-1

Commandl),然后编写如下事件过程：s=s+a(i)*j

10EndSub

NextiPrivateSubCommand1_Click()

Printsa=Val(Label2.Caption)

EndSubCallfunc(Labell)

程序运行后，单击命令按钮，其输出结果是Label2.Caption=a

A)4321B)1234C)34D)12EndSub

程序运行后，单击命令按钮，则在两个标签中显示的内容分别为

24)假定通过复制,粘贴操作建立了一个命令按钮数组Commanch,A)ABCD和10B)1234和100

以下说法中错误的是C)ABCD和100D)1234和10

A)数组中每个命令按钮的名称(Name属性)均为Commandl

B)若未做修改,数组中每个命令按钮的大小都一样28)在窗体上画一个命令按钮(名称为Commandl),并编写如下代

C)数组中各个命令按钮使用同一个Click事件过程码：

D)数组中每个命令按钮的Index属性值都相同Functionfun1(ByValaAsInteger,bAsInteger)As

Integer

25)在窗体上画一个命令按钮，名称为Commandl,然后编写如下代DimtAsInteger

码：t=a-b

OptionBase0b=t+a

PrivateSubCommand1_Click()fun1=t+b

DimA1(4)AsInteger,A2(4)AsIntegerEndFunction

Fork=0To2

A1(k+1)=lnputBox("请输入一个整数”)PrivateSubCommand1_Click()

A2(3-k)=A1(k+1)DimxAsInteger

Nextkx=10

PrintA2(k)Printfun1(fun1(x,(fun1(x,x-1))),x-1)

EndSubEndSub

程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6则程序运行后，单击命令按钮，输出结果是

输出结果为A)10B)0C)11D)21

A)0B)1C)2D)3

29.29)以下关于过程及过程参数的描述中，错误的是

(26)以下关于函数过程的叙述中，正确的是A)过程的参数可以是控件名称

A)函数过程形参的类型与函数返回值的类型没有关系B)调用过程时使用的实参的个数应与过程形参的个数相同

B)在函数过程中，过程的返回值可以有多个C)只有函数过程能够将过程中处理的信息返回到调用程序中

C)当数组作为函数过程的参数是，既能以传值方式传递，也能以传D)窗体可以作为过程的参数

址方式传递30)设有如下通用过程

D)如果不指明函数过程参数的类型，则该参数没有数据类型PublicFunctionFun(xStrAsString)AsString

DimtStrAsString,strLAsInteger

27)在窗体上画两个标签按钮和一个命令按钮，其名称分别为tStr=""

Labe11>Label2和Commandl,strL=Len(xStr)

然后编写如下程序：i=strL/2

PrivateSubfunc(LAsLabel)DoWhilei<=strL

L.Caption="1234"tStr=tStr&Mid(xStr,i+1,1)

EndSubi=i+1

Loop

PrivateSubForm_Load()Fun=tStr&tStr

Labeh.Caption="ABCDE"EndFunction

Label2.Caption=10在窗体上画一个名称为Textl的文本框和一个名称为Commandl

的命令按钮。然后编写如程序运行后，单击窗体，在输入对话框中依次输入15,24,35,46,输

下事件过程出结果为

PrivateSubCommand1_Click()A)100B)50C)120D)70

DimS1AsString34)以下叙述中错误的是

S1="ABCDEF"A)在程序运行时，通用对话框控件是不可见的

Text1.Text=LCase(Fun(S1))B)调用同一个通用对话框控件的不同方法(如ShowOpen或

EndSubShowSave)可以打开不

程序运行后，单击命令按钮，文本框中显示的是同的对话框窗口

A)ABCDEFB)abcdefC)调用通用对话框控件的ShowOpen方法，能够直接打开在该通用

C)defdefD)defabc对话框中指定的

31)在窗体上画一个命令按钮和一个文本框(名称分别为文件

Commandl和Textl)，并把窗体D)调用通用对话框控件的ShowColor方法，可以打开颜色对话框窗

的KeyPreview属性设置为True,然后编写如下代码：□

DimSaveAIIAsString35)设在工程文件中有一个标准模块，其中定义了如下记录类型：

PrivateSubForm_Load()TypeBooks

ShowNameAsString*10

Textl.Text=""TelNumAsString*20

Textl.SetFocusEndType

EndSub在窗体上画一个名为Commandl的命令按钮，要求当执行事件过

程Command1_Click时，

PrivateSubCommand1_Click()在顺序文件Person.txt中写入一条Books类型的记录，下列能够完

Textl.Text=LCase(SaveAII)+SaveAII成该操作的事件过程是

EndSubA)PrivateSubCommandl_Click()

DimBAsBooks

PrivateSubForm_KeyPress(KeyAsciiAsInteger)Open"Person.txt"ForOutputAs#1

SaveAII=SaveAII+Chr(KeyAscii)B.Name=InputBox。'输入姓名")

EndSubB.Name=InputBox。'输入电话号码")

程序运行后，直接用键盘输入：VB,再单击命令按钮则文本框中显Write#1,B.Name,B.TelNum

示的内容为Close#1

A)vbVBB)不显示任何信息EndSub

C)VBD)出错B)PrivateSubCommandl_Cliek()

32)设有以下程序DimBAsBooks

PrivateSubForm_Click()Open"Person.txt"ForOutputAs#1

x=50B.Name=InputBox。'输入姓名")

Fori=1To4B.Name=InputBox。'输入电话号码")

y=InputBox。请输入一个整数”)Print#1,B.Name,B.TelNum

y=Val(y)Close#1

IfyMod5=0ThenEndSub

a=a+yC)PrivateSubCommandl_Click()

x=yDimBAsBooks

ElseOpen"Person.txt"ForOutputAs#1

a=a+xB.Name=InputBox。输入姓名”)

EndIfB.Name=lnputBox("输入电话号码")

NextiWrite#1,B

PrintaClose#1

EndSubEndSub

D)PrivateSubCommand1_Click()If[9]=13Then

DimBAsBooksFork=0ToCombol.ListCount-1

Open"Person.txt"ForOutputAs#1IfCombol.Text=Combo1.List(k)Then

B.Name=lnputBox("输入姓名")Combol.Text=""

B.Name=InputBox。输入电话号码")ExitFor

Print#1,Name,TelNumEndIf

Close#1Nextk

EndSubIfCombol.Text<>""Then

Combol.Additem[10]

二、填空题(每空2分，共计30分)EndIf

1.(1)假设用一个长度为50的数组(数组元素的下标从0到49)作为EndIf

栈的存储空间，栈底EndSub

指针bottom指向栈底元素，栈顶指针top指向栈顶元素，如果程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查

bottom=49,top=30(数列表中

租下标)，则栈中具有【1】个元素有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则

把编辑

(2)软件测试可分为白盒测试和黑盒测试。基本路径测试属于【2】区中的文本添加到列表的尾部。请填空。

测试⑻在当前目录下有一个名为"myfile.txt”的文本文件,其中有若干行

⑶符合结构化原则的三种基本控制结构是:选择结构、循环结构和文本。下面程序的

[31功能是读入此文件中的所有文本行，按行计算每行字符的ASCII

4)数据库系统的核心是【4】码之和，并显示在窗体上。

5)在E-R图中，图形包括矩形框、菱形框、椭圆框。其中表示实体请填空

联系的是[5]框PrivateSubCommand1_Click()

6)窗体如图所示，其中汽车是名称为Imagel的图像框，命令按钮的Dimch$,asciiAsInteger

名称CommandsOpen"myfile.txt"For[11]As#1

计时器的名称为Time门,直线的名称为LineK程序运行时，WhileNotEOF(1)

单击命令按钮，则LineInput#1,ch

汽车每0.1秒向左移动100,车头到达左边的直线时停止移动。ascii=toascii([12])

请填空完成下面Printascii

的属性设置和程序，以便实现上述功能。Wend

Close#1

EndSub

PrivateFunctiontoascii(mystr$)AsInteger

n=0

Fork=1To[13]

1)Timer1的Interval属性的值应事先设置为【6】n=n+Asc(Mid(mystr,k,1))

2)PrivateSubCommand1_Click()Nextk

Timed.Enabled=Truetoascii=n

EndSubEndFunction

3)PrivateSubTimer1_Timer()⑼本程序实现文本加密。先给定序列:a1,a2,…,an,它们的取值范围

IfImagel.Left>[7]Then是而且互

Imagel.Left=[8]-100不相同。加密算法是:把原文本中第k个字符放到加密后文本的第

EndIfak个位置处。若原

EndSub文本长度大于n,则只对前面n个字符加密，后面的字符不变；若原

⑺设窗体上有一个名称为Combol的组合框，并有以下程序:文本长度小于n,则

PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)在后面补字符"*"使文本长度为n后再加密。

例如：若给定序列a1,a2,..a7分别为2,5,37,6,1,43.在长度为n的有序线性表中进行二分查找，最坏情况下需要比较

当文本为“PROGRAM"时，加密后的文本为"APOMRRG"的次数是

当文本为"THANK”时，加密后的文本为"*TA*HKN"A>O（n）B）O（n2）C）O（log2n）

下面的过程code实现这一算法。其中参数数组a（）中存放给定序列D）O（nlog2n）

（个数与数组a的元素4.下列叙述中正确的是

个数相等）a1,a2,a3...的值，要加密的文本放在参数变量mystr中，A）顺序存储结构的存储一定是连续的，链式存储结构的存储空间不

过程执行完毕，加一定是连续的

密后的文本仍然放在变量mystr中。请填空。B）顺序存储结构只针对线性结构，链式存储结构只针对非线性结构

OptionBase1C）顺序存储结构能存储有续表，链式存储结构不能存储有序表

PrivateSubcode（a（）AsInteger,mystrAsString）D）链式存储结构比顺序存储结构节省存储空间

DimchAsString,c1AsString5.数据流图中带有箭头的线段表示的是

n=UBound（a）-Len（mystr）A）控制流B）事件驱动

Ifn>0ThenC）模块调用D）数据流

mystr=mystr&String$（n,"*"）6.在软件开发中，需求分析阶段可以使用的同居是

EndIfA）N-S图B）DFD图

ch=mystrC）PAD图D）程序流程图

Fork=[14]ToUBound(a)7.在面向对象方法中，不属于“对象”基本特点的是

c1=Mid(mystr,k,1)A）一致性B）分类性C）多态性D）标识唯一性

n=[15]8.一间宿舍可以住多个学生，则实体宿舍和学生之间的联系是

Mid(ch,n)=c1A）一对一B）一对多C）多对一D）多对多

Nextk9.在数据管理技术发展的三个阶段中，数据共享最好的是

mystr=chA）人工管理阶段B）文件系统阶段

EndSubC）数据库系统阶段D）三个阶段相同

答案：DACDCABABCDBBCADBABDADBDC10.有三个关系R、S、和T如下：

ADBCCAABCA

白盒顺序结构数据库管理系统菱形100Linel.xl

image1.leftkeyasciicomboxl.textinputch

len(mystr)1a(k)R和S通过运算得到关系T,则所使用的运算为

2008年9月计算机二级VB语言真题A）笛卡尔积B）交C）并D）自然

连接

一、选择题（每题2分，共计70分）11.在设计窗体时双击窗体的任何地方，可以打开的窗口是

A）代码窗口B）属性窗口

1.一个栈的初始状态为空。现将元素1、2、3、4、5、A、B、C、

C）工程资源管理器窗口D）工具箱窗口

D、E依次入栈，然后

12.若变量a未实现定义而直接使用（例如：a=0）,则变量a的类

再依次出栈，则元素出栈的顺序是

型是

A）12345ABCDEB）EDCBA54321

A）IntegerB）StringC）BooleanD）Variant

C）ABCDE12345D）54321EDCBA

13.把圆周率的近似值3.14159存放在变量pi中，应该把变量pi

2.

定义为

下列叙述中正确的是

A）DimpiAsIntegerB）Dimpi（7）AsInteger

A）循环队列有队头和队尾两个指针，因此，循环队列是非

C)DimpiAsSingleD)DimpiAsLong

线性结构

14.表达式2*3A2-4*2/2+3A2的值是

B）在循环队列中，只需要队头指针就能反映队列中元素的

A)30B)31

动态变化情况

C)49D)48

C）在循环队列中，只需要队尾指针就能反映队列中元素的

15.以下不能输出“Program”的语句是

动态变化情况

A)Printmid("VBProgram"3,7)

D）循环队列中元素的个数是由队头指针和队尾指针共同

B)PrintRight("VBProgram",7)

决定

C)PrintMid("VBProgram",3)运行程序是，单击Commandl后输入整数10,再单击Command2

D)PrintLeft("VBProgram",7)后输入整数5,则数组

16.窗体上有