2011年3月全国计算机等级考试二级Visual Basic语言程序设计笔试真题

2011年3月全国计算机等级考试二级Visual Basic语言程序设计

笔试真题

一、选择题（每小题2分，共70分)

下列各题A、B、C、D四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡

相应位置上，答在试卷上不得分。

1. 下列关于栈叙述正确的是

A. 栈顶元素最先能被删除

B. 栈顶元素最后才能被删除

C. 栈底元素永远不能被删除

D. 上述三种说法都不对

答案：A

解析：在栈中，允许插入与删除的一端称为栈顶，而不允许插入与删除的另一端称为栈底。栈顶元素总是最后被插入的元素，从而也是最先能被删除的元素；栈底元素总是最先被插入的元素，从而也是最后才能被删除的元素。故本题选A。

2. 下列叙述中正确的是

A. 有一个以上根结点的数据结构不一定是非线性结构

B. 只有一个根结点的数据结构不一定是线性结构

C. 循环链表是非线性结构

D. 双向链表是非线性结构

答案：B

解析：如果一个非空的数据结构满足以下两个条件：（1）有且只有一个根结点；（2）每个结点最多有一个前件，也最多有一个后件。则称该数据结构为线性结构。如果一个数据结构不是线性结构，则称之为非线性结构,故A项错误。有一个根结点的数据结构不一定是线性结构，如二叉树，B项说法正确。循环链表和双向链表都属于线性链表，故C、D项错误。

3. 某二叉树共有7个结点，其中叶子结点只有1个，则该二叉树的深度为（假设根结点在第1层）

A. 3

B. 4

C. 6

D. 7

答案：D

解析：根据二叉树的性质：在任意一棵二叉树中，度为0的结点（即叶子结点）总是比度为2的结点多一个。所以n2=0，由n=n0+n1+n2可得n1=6，即该二叉树有6个度为1的结点，可推出该二叉树的深度为7。

4. 在软件开发中，需求分析阶段产生的主要文档是

A. 软件集成测试计划

B. 软件详细设计说明书

C. 用户手册

D. 软件需求规格说明书

答案：D

解析：软件需求规格说明书是需求分析阶段的最后成果，是软件开发中的重要文档之一。

5. 结构化程序所要求的基本结构不包括

A. 顺序结构

B. GOTO跳转

C. 选择（分支）结构

D. 重复（循环）结构

答案：B

解析：结构化程序设计的三种基本控制结构为:顺序结构、选择结构和重复结构。

6. 下面描述中错误的是

A. 系统总体结构图支持软件系统的详细设计

B. 软件设计是将软件需求转换为软件表示的过程

C. 数据结构与数据库设计是软件设计的任务之一

D. PAD图是软件详细设计的表示工具

答案：A

7. 负责数据库中查询操作的数据库语言是

A. 数据定义语言

B. 数据管理语言

C. 数据操纵语言

D. 数据控制语言

答案：C

解析：数据操纵语言负责数据的操纵，包括查询及增、删、改等操作。

8. 一个教师可讲授多门课程，一门课程可由多个教师讲授。则实体教师和课程间的联系是

A. 1∶1联系

B. 1∶m联系

C. m∶1联系

D. m∶n联系

答案：D

9. 有三个关系R、S和T如下：

则由关系R和S得到关系T的操作是

A. 自然连接

B. 交

C. 除

D. 并

答案：C

10. 定义无符号整数类为UInt，下面可以作为类UInt实例化值的是

A. -369

B. 369

C. 0.369

D. 整数集合{1,2,3,4,5}

答案：B

解析：A项为有符号型，C项为实型常量，D项为整数集合，只有B项符合，故本题选B。

11. 在Visual Basic集成环境中，可以列出工程中所有模块名称的窗口是

A. 工程资源管理器窗口

B. 窗体设计窗口

C. 属性窗口

D. 代码窗口

答案：A

12. 假定编写了如下4个窗体事件的事件过程，则运行应用程序并显示窗体后，已经执行的事件过程是

A. Load

B. Click

C. LostFocus

D. KeyPress

答案：A

解析：Load事件用来在启动程序时对属性和变量进行初始化，在装入窗体后，如果运行程序，将自动触发该事件。

13. 为了使标签具有"透明"的显示效果，需要设置的属性是

A. Caption

B. Alignment

C. BackStyle

D. AutoSize

答案：C

解析：Caption属性用来在标签中显示文本；Alignment属性用来确定标签中标签的放置方式；AutoSize属性设置标签是否根据标题的长度自动调整大小；BackStyle属性可以取两个值，当值为1时，标签将覆盖背景，当值为0时，则标签具有“透明”的显示效果。

14. 下面可以产生20~30（含20和30）的随机整数的表达式是

A. Int(Rnd*10+20)

B. Int(Rnd*11+20)

C. Int(Rnd*20+30)

D. Int(Rnd*30+20)

答案：B

解析：Rnd函数用来生成范围在［0,1)之间的随机数。

15. 设窗体上有一个名称为HS1的水平滚动条，如果执行了语句：

HS1.Value=(HS1.Max-HS1.Min)/2+HS1.Min则

A. 滚动块处于最左端

B. 滚动块处于最右端

C. 滚动块处于中间位置

D. 滚动块可能处于任何位置，具体位置取决于Max、Min属性的值

答案：C

解析：本题中语句的设置效果是将滚动条的Value值设为当前滚动条刻度个数的1/2再加上Min值，此值正好为滚动条的中间位置,而Value值用来设置滚动块的位置，故答案为C。16. 窗体上有一个名称为Cb1的组合框，程序运行后，为了输出选中的列表项，应使用的语句是

A. Print Cb1.Selected

B. Print Cb1.List(Cb1.ListIndex)

C. Print Cb1.Selected Text

D. Print Cb1.List(ListIndex)

答案：B

17. 为了在窗体上建立2组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是

A. 把这2组单选按钮设置为名称不同的2个控件数组

B. 使2组单选按钮的Index属性分别相同

C. 使2组单选按钮的名称分别相同

D. 把2组单选按钮分别画到2个不同的框架中

答案：D

解析：当窗体上有多个单选按钮时，如果选择其中的一个，其他单选按钮将自动关闭。当需要在同一个窗体上建立几组相互独立的单选按钮时，则必须通过框架为单选按钮分组，使得在一个框架内的单选按钮为一组，每个框架内的单选按钮操作不影响其他组的按钮。

18. 如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是

A. 它的Y1、Y2属性的值相等

B. 它的X1、X2属性的值相等

C. 它的X1、Y1属性的值分别与X2、Y2属性的值相等

D. 它的X1、X2属性的值分别与Y1、Y2属性的值相等

答案：B

解析：平行线的Y1、Y2属性的值相等；垂直线的X1、X2属性的值相等。

19. 设a=2,b=3,c=4,d=5,则下面语句的输出是

Print3>2*b Or a=c And b<>c Or c>d

A. False

B. 1

C. True

D. -1

答案：A

解析：分别计算表达式3>2*b；a=c And b<>c;c>d的值,其值均为False，则输出为False。

20. 窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是

A. A

B. B

C. C

D. D

答案：A

21. 默认情况下，下面声明的数组的元素个数是

Dim a(5,-2 To 2)

A. 20

B. 24

C. 25

D. 30

答案：D

解析：VB中数组下标默认从0开始，数组定义的值为数组可取的最大值，因此第一维可取值为6个，第二维可取值为：-2，-1，0，1，2，为5个，故数组元素个数为5*6=30个。

22. 设有如下程序段：

Dim a(10)

…

For Each x In a

Print x;

Next x

在上面的程序段中，变量x必须是

A. 整型变量

B. 变体型变量

C. 动态数组

D. 静态数组

答案：B

解析：在For Each…Next语句中，x为一个变体变量，它是为循环提供的，并在For Each…Next结构中重复使用，它实际上代表的是数组中的每个元素。

23. 设有以下函数过程

Private Function Fun(a() As Integer, b As String)As Integer

…

End Function

若已有变量声明：

Dim x(5)As Integer,n As Integer,ch As String

则下面正确的过程调用语句是

A. x(0)=Fun(x,"ch")

B. n=Fun(n,ch)

C. Call Fun x,"ch"

D. n=Fun(x(5),ch)

答案：A

24. 假定用下面的语句打开文件：

Open "File1.txt"for Input As #1

则不能正确读文件的语句是

A. Input #1,ch$

B. Line Input #1,ch$

C. ch$=Input$(5,#1)

D. Read #1,ch$

答案：D

解析：本题打开的是顺序文件，读取方式有：Input #语句，Line Input #语句，Input函数，故答案选D。

25. 下面程序的执行结果是

Private Sub Command1_Click()

a=10

For k=1 To 5 Step-1

a=a-k

Next k

Print a;k

End Sub

A. -56

B. -5-5

C. 100

D. 101

答案：D

解析：本题For循环的步长为-1，但题中给出的初始值比终止值小，因此循环未执行，故a

值未变，仍为10。k值需被赋值为1后与5作比较才知道大小，故k值为1。

26. 设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：

Private Sub Command1_Click()

x!=Val(Text1.Text)

Select Case x

Case Is<-10,Is>=20

Print"输入错误"

Case Is<0

Print 20-x

Case Is<10

Print 20

Case Is<=20

Print x+10

End Select

End Sub

程序运行时，如果在文本框中输入-5,则单击命令按钮后的输出结果是

A. 5

B. 20

C. 25

D. 输入错误

答案：C

解析：本题考查的知识点是Select Case语句，其功能是根据“测试表达式”的值（本题中测试表达式为x），从多个语句块中选择符合条件的一个语句块执行。

27. 设有如下程序

Private Sub Command1_Click()

x=10:y=0

For i=1 To 5

Do

x=x-2

y=y+2

Loop Until y>5 Or x<-1

Next

End Sub

运行程序，其中Do循环执行的次数是

A. 15

B. 10

C. 7

D. 3

答案：C

解析：本题需要注意区分Do Until…Loop语句和Do…Loop Until语句。后者为后判断条件的循环语句，无论初始条件是否满足都至少执行一次循环，当条件满足时跳出循环。

28. 阅读程序：

Private Sub Command1_Click()

Dim i As Integer

arr=Array(0,1,2,3,4,5,6,7,8,9,10)

For i=0 To 2

Print arr(7-i);

Next

End Sub

程序运行后，窗体上显示的是

A. 8 7 6

B. 7 6 5

C. 6 5 4

D. 5 4 3

答案：B

解析：本题中，arr被Array函数定义为数组并被赋初值；For循环中i的值为0到2，那么，7-i 的值为7，6，5;Print arr(7-i)也就是输出arr(7),arr(6),arr(5)的值，即输出7，6，5。

29. 在窗体上画一个名为Command1的命令按钮，然后编写以下程序：

Private Sub Command1_Click()

Dim a(10)As Integer

For k=10 To 1 Step-1

a(k)=20-2*k

Next k

k=k+7

Print a(k-a(k))

End Sub

运行程序，单击命令按钮，输出结果是

A. 18

B. 12

C. 8

D. 6

答案：A

30. 窗体上有一个名为Command1的命令按钮，并有如下程序：

Private Sub Command1_Click()

Dim a(10),x%

For k=1 To 10

a(k)=Int(Rnd*90+10)

x=x+a(k)Mod 2

Next k

Print x

End Sub

程序运行后，单击命令按钮，输出结果是

A. 10个数中奇数的个数

B. 10个数中偶数的个数

C. 10个数中奇数的累加和

D. 10个数中偶数的累加和

解析：Mod函数为求余函数，与2取余，值为0表示为偶数，值为1表示为奇数。因加上0对x 的值并无影响，加上1表示有一个奇数，因此答案为A。

31. 窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器，并有下面的事件过程：

Private Sub Command1_Click()

Timer1.Enabled=True

End Sub

Private Sub Form_Load()

Timer1.Interval=10

Timer1.Enabled=False

End Sub

Private Sub Timer1_Timer()

Command1.Left=Command1.Left+10

End Sub

程序运行时，单击命令按钮，则产生的结果是

A. 命令按钮每10秒向左移动一次

B. 命令按钮每10秒向右移动一次

C. 命令按钮每10毫秒向左移动一次

D. 命令按钮每10毫秒向右移动一次

答案：D

解析：Interval属性的单位为毫秒。

32. 设窗体上有一个名为List1的列表框，并编写下面的事件过程：

Private Sub List1_Click()

Dim ch As String

ch=List1.List(List1.ListIndex)

List1.RemoveItem List1.ListIndex

List1.AddItem ch

End Sub

程序运行时，单击一个列表项，则产生的结果是

A. 该列表项被移到列表的最前面

B. 该列表项被删除

C. 该列表项被移到列表的最后面

D. 该列表项被删除后又在原位置插入

答案：C

解析：RemoveItem方法作用是删除项；AddItem方法作用是添加项，若省略Index值，则默认为插入到列表的最后面。

33. 窗体上有一个名为Command1的命令按钮，并有如下程序：

Private Sub Command1_Click()

Dim a As Integer,b As Integer

a=8

b=12

Print Fun(a,b);a;b

End Sub

Private Function Fun(ByVal a As Integer,b As Integer)As Integer

a=a Mod 5

b=b＼5

Fun=a

End Function

程序运行时，单击命令按钮，则输出结果是

A. 332

B. 382

C. 8812

D. 3812

答案：B

34. 为了从当前文件夹中读入文件File1.txt，某人编写了下面的程序：

Private Sub Command1_Click()

Open "File1.txt" For Output As #20

Do While Not EOF(20)

Line Input #20,ch$

print ch

Loop

Close #20

End Sub

程序调试时，发现有错误，下面的修改方案中正确的是

A. 在Open语句中的文件名前添加路径

B. 把程序中各处的"20"改为"1"

C. 把Print ch语句改为Print #20，ch

D. 把Open语句中的Output改为Input

答案：D

解析：本题要求从当前文件夹中读入文件，因此在Open语句中应使用输入(Input)打开文件。

35. 以下程序运行后的窗体如图所示。其中组合框的名称是Combo1,已有列表项如图所示；命令按钮的名称是Command1。

Private Sub Command1_Click()

If Not Check(Combo1.Text) Then

MsgBox("输入错误")

Exit Sub

End If

For k=0 To Combo1.ListCount-1

If Combo1.Text=Combo1.List(k) Then

MsgBox("添加项目失败")

Exit Sub

End If

Next k

Combo1.AddItem Combo1.Text

MsgBox("添加项目成功")

End Sub

Private Function Check(ch As String)As Boolean

n=Len(ch)

For k=1 To n

c$=UCase(Mid(ch,k,l))

If c<"A" Or c>"Z" Then

Check=False

Exit Function

End If

Next k

Check=True

End Function

程序运行时，如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是

A. 显示"输入错误"

B. 显示"添加项目失败"

C. 显示"添加项目成功"

D. 没有任何显示

答案：B

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

请将每空的正确答案写在答题卡【1】至【15】序号的横线上，答在试卷上不得分。

1. 有序线性表能进行二分查找的前提是该线性表必须是【1_______】存储的。

答案：【1】顺序【解析】二分查找只适用于顺序存储的有序线性表。

2. 一棵二叉树的中序遍历结果为DBEAFC，前序遍历结果为ABDECF，则后序遍历结果为【

2_______】。

答案：【2】DEBFCA

3. 对软件设计的最小单位（模块或程序单元）进行的测试通常称为【3_______】测试。

答案：【3】单元【解析】单元测试是对软件设计的最小单位——模块（程序单元）进行正确性检验的测试。单元测试的目的是发现各模块内部可能存在的各种错误。

4. 实体完整性约束要求关系数据库中元组的【4_______】属性值不能为空。

答案：【4】主键【解析】实体完整性约束要求关系的主键中属性值不能为空值，因为主键是惟一决定元组的，如为空值则其惟一性就成为不可能的了。

5. 在关系A（S，SN，D）和关系B（D，CN，NM）中，A的主关键字是S，B的主关键字是D，则称【5_______】是关系A的外码。

答案：【5】D【解析】如果表A中的某属性集是某表B的键，则称该属性集为A的外键或外码。

6. 在窗体上有1个名称为Command1的命令按钮，并有如下事件过程和函数过程：

Private Sub Command1_Click()

Dim p As Integer

p=m(1)+m(2)+m(3)

Print p

End Sub

Private Function m(n As Integer)As Integer

Static s As Integer

For k=1 To n

s=s+1

Next

m=s

End Function

运行程序，单击命令按钮Command1后的输出结果为【6_______】。

答案：【6】10

7. 在窗体上画1个名称为Command1的命令按钮，然后编写如下程序：

Private Sub Command1_Click()

Dim m As Integer,x As Integer

Dim flag As Boolean

flag=False

n=Val(InputBox("请输入任意1个正整数"))

Do While Not flag

a=2

flag=【7_______】

Do While flag And a <=Int(Sqr(n))

If n/a=n＼a Then

flag=False

Else

【8_______】

End If

Loop

If Not flag Then n=n+1

Loop

Print【9_______】

End Sub

上述程序的功能是，当在键盘输入任意的1个正整数时，将输出不小于该整数的最小素数。请填空完善程序。

答案：【7】True 【8】a=a+1【9】n

8. 以下程序的功能是：先将随机产生的10个不同的整数放入数组a中，再将这10个数按升序方式输出。请填空。

Private Sub Form_Click()

Dim a(10) As Integer, i As Integer

Randomize

i=0

Do

num=Int(Rnd*90)+10

For j=1 To i’检查新产生的随机数是否与以前的相同，相同的无效

If num=a(j) Then

Exit For

End If

Next j

If j>i Then

i=i+1

a(i)=【10_______】

End If

Loop While i<10

For i=1 To 9

For j=【11_______】To 10

If a(i)>a(j) Then temp=a(i):a(i)=a(j):【12_______】

Next j

Next i

For i=1 To 10

Print a(i)

Next i

End Sub

答案：【10】num【11】i+1【12】a(j)=temp

9. 窗体上已有名称分别为Drive1、Dir1、File1的驱动器列表框、目录列表框和文件列表框，且有1个名称为Text1的文本框。以下程序的功能是：将指定位置中扩展名为“.txt”的文件显示在File1中，如果双击File1中的某个文件，则在Text1中显示该文件的内容。请填空。Private Sub Form_Load()

File1.Pattern=【13_______】

End Sub

Private Sub Drive1_Change()

Dir1.Path=Drive1.Drive

End Sub

Private Sub Dir1_Change()

File1.Path=Dir1.Path

End Sub

Private Sub File1_DblClick()

Dim s As String*1

If Right(File1.Path,1)="＼" Then

f_name=File1.Path+File1.FileName

Else

f_name=File1.Path+"＼"+File1.FileName

End If

Open f_name【14_______】As #1

Text1.Text=""

Do While【15_______】

s=Input(1,#1)

Text1.Text=Text1.Text+s

Loop

Close #1

End Sub

mp

答案：【13】*.txt【14】For Input【15】NOT EOF(1)