全国计算机等级考试二级vb2010年9月份笔试答案

Question

如题所述

Answer 1

我的是完整的，希望采纳！
一、选择题（每小题2分，共70分）

1-5 BCDAA 6-10 DDCBA

11-15 ADDBB 16-20 BCABA

21-25 CDBDC 26-30 ACDAD

31-35 DCCBA

二、填空题（每空2分，共30分）

【1】12345DCBA

【2】n-1

【3】25

【4】结构化

【5】物理设计

【6】array

【7】lbound(city) 或 1

【8】city(i)

【9】fun

【10】276

【11】len

【12】p(i).gName

【13】picFile

【14】CD1.FileName

【15】Visible

注：以上英文字母不区分大小写。

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

（1）下列叙述中正确的是

B）线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构

（2）下列叙述中正确的是

C）在栈中，栈底指针不变，栈中元素随栈顶指针的变化而动态变化

（3）软件测试的目的是

D）发现程序中的错误

（4）下面叙述中，不属于软件危机表现的是

A）软件过程不规范

（5）软件生命周期是指

A）软件产品从提出、实现、使用维护到停止使用退役的过程

（6）面向对象方法中，继承是指

D）类之间共享属性和操作的机制

（7）层次型、网状型和关系型数据库划分原则是

D）数据之间的联系方式

（8）一个工作人员可以使用多台计算机，而一台计算机可被多个人使用，则实体工作人员与实体计算机之间的联系是

C）多对多

（9）数据库设计中反映用户对数据要求的模式是

B）概念模式

（10）有三个关系R、S和T如下：

R S T

A B C A D A B C D

a 1 2 c 4 c 3 1 4

b 2 1

c 3 1

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

A）自然连接

（11）在Visual Basic集成环境中，要添加一个窗体，可以单击工具栏上的一个按钮，这个按钮是

A）

（12）在Visual Basic集成环境的设计模式下，用鼠标双击窗体上的某个控件打开的窗口是D）代码窗口

（13）下列叙述错误的是

D）组合框有Text属性，而列表框没有

（14）设窗体上有一个命令按钮数组，能够区分数组中各个按钮的属性是

B）Index （15）滚动条可以响应的事件是

B）Scroll

（16）设a=5，b=6，c=7，d=8，执行语句x=Iif((a>b) and (c>d),10,20)后，x的值是

B）20

（17）语句Print Sgn(-6^2) Abs(-6^2) Int(-6^2)的输出结果是

C）-1

（18）在窗体上画一个图片框，再在图片框中画一个命令按钮，位置如图所示。则命令按钮的Top属性值是

A）200

（19）在窗体上画一个名称为Command1的命令按钮。单击命令按钮时执行如下事件过程：

Private Sub Command1_Click()

a$ = "software and hardware"

b$ = Right(a$, 8)

c$ = Mid(a$, 1, 8)

MsgBox a$, , b$, c$, 1

End Sub

则在弹出的信息框标题中显示的标题是

B）hardware

（20）在窗体上画一个文本框（名称为Text1）和一个标签（名称为Label1），程序运行后，如果在文本框中输入文本框，则标签立即显示相同的内容。以下可以实现上述操作的事件过程是

A）Private Sub Text1_Change()

Label1.Caption=Text1.Text

End Sub

（21）以下说法中错误的是

C）命令按钮只能识别单击（Click）事件

（22）以下关于局部变量的叙述中错误的是

D）过程执行完毕后，该过程中用Dim或Static语句声明的变量即被释放。

（23）以下程序段的输出结果是

x=1

y=4

Do Until y>4

x=x*y

y=y 1

Loop

Print x

B）4

（24）如果执行一个语句后弹出如图所示的窗口，则这个语句是

D）x=InputBox(“请输入VB数据”,”输入框”)

（25）有如下事件过程：

Private Sub Form_Click()

Dim n As Integer

x = 0

n = InputBox("请输入一个整数")

For i = 1 To n

For j = 1 To i

x = x 1

Next j

Next i

Print x

End Sub

程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是

C）15

（26）请阅读程序：

Sub SubP(b() As Integer)

For i=1 To 4

b(i)=2*i

Next i

End Sub

Private Sub Command1_Click()

Dim a(1 To 4) As Integer

a(1)=5 : a(2)=6 : a(3)=7 : a(4)=8

subP a()

For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，则输出结果是

A）2

4

6

8

（27）Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即：1，1，2，3，5，8，13，21，34，55，89，…。某人编写了下面的函数，判断大于1的整数x是否是Fibonacci数列的某个数，若使，则返回True，否则返回False。

Function Isfab(x As Integer) As Boolean

Dim a As Integer, b As Integer, c As Integer, flag As Boolean

flag = False

a = 1: b = 1

Do While x < b

c = a b

a = b

b = c

If x = b Then flag = True

Loop

Isfab = False

End Function

测试时发现对于所有正整数x，函数都返回False，程序需要修改。下面的修改方案中正确的是

C）把Do While x<b 改为 Do While x>b

（28）在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：

Private Sub Command1_Click()

Dim a$, b$, c$, k%

a = "ABCD"

b = "123456"

c = ""

k = 1

Do While k <= Len(a) Or k <= Len(b)

If k <= Len(a) Then

c = c & Mid(a, k, 1)

End If

If k <= Len(b) Then

c = c & Mid(b, k, 1)

End If

k = k 1

Loop

Print c

End Sub

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

D）A1B2C3D456

（29）请阅读程序：

Private Sub Command1_Click()

m = 1

For i = 4 To 1 Step -1

Print Str(m);

m = m 1

For j = 1 To i

Print "*";

Next j

Print

Next i

End Sub

程序运行后，单击窗体，则输出结果是

A）1****

2***

3**

4*

（30）在窗体上画一个命令按钮（其名称为Command1），然后编写如下代码：

Private Sub Command1_Click()

Dim a

a = Array(1, 2, 3, 4) i = 3: j = 1 Do While i >= 0 s = s a(i) * j i = i - 1 j = j * 10 Loop Print s End Sub 运行上面的程序，单击命令按钮，则输出结果是

D）1234

（31）下列可以打开随机文件的语句是

D）Open “file1.dat” For Random As #1 Len=20

（32）有弹出式菜单的结构如右表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一个功能的是

C）Private Sub Form_Click()

PopupMenu edit

End Sub

（33）请阅读程序：

Option Base 1

Private Sub Form_Click()

Dim Arr(4, 4) As Integer

For i = 1 To 4

For j = 1 To 4

Arr(i, j) = (i - 1) * 2 j

Next j

Next i

For i = 3 To 4

For j = 3 To 4

Print Arr(j, i);

Next j

Print

Next i

End Sub

程序运行后，单击窗体，则输出结果是

C）7 9

8 10

（34）下面函数的功能是：删除字符串str中所有与变量ch相同的字符，并返回删除后的结果。例如：若str=”ABCDABCD”，ch=”B”，则函数的返回值为：“ACDACD”。

Function delchar(str As String, ch As String) As String

Dim k As Integer, temp As String, ret As String

ret = ""

For k = 1 To Len(str)

temp = Mid(str, k, 1)

If temp = ch Then

ret = ret & temp

End If

Next k

delchar = ret

End Function

但实际上函数有错误，需要修改。下面的修改方案中正确的是

B）把If temp=ch Then 改为 If temp <> ch Then

（35）在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序：

Dim S1 As String, S2 As String

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Text1.Enabled = False

Text2.Enabled = False

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

S2 = S2 & Chr(KeyCode)

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

S1 = S1 & Chr(KeyAscii)

End Sub

Private Sub Command1_Click()

Text1.Text = S1 Text2.Text = S2 S1 = "" S2 = "" End Sub 程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为：

A）abc和ABC

二、填空题（每空2分，共30分）

（1）一个栈的初始状态为空。首先将元素5、4、3、2、1依次入栈，然后退栈一次，再将元素A，B，C，D依次入栈，之后将所有元素全部退栈，则所有元素退栈（包括中间退栈的元素）的顺序为【1】12345DCBA。

（2）在长度为n的线性表中，寻找最大项至少需要比较【2】n-1次。

（3）一棵二叉树有10个度为1的结点，7个度为2的结点，则该二叉树共有【3】25个结点。

（4）仅有顺序、选择（分支）和重复（循环）结构构成的程序是【4】结构化 程序。

（5）数据库设计的四个阶段：需求分析、概念设计、逻辑设计和【5】物理设计。

（6）窗体上有一个名称为Combo1的组合框，其初始内容为空，有一个名称为Command1、标题为“添加项目”的命令按钮。程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示。请填空。

Option Base 1

Private Sub Command1_Click()

Dim city As Variant

city =【6】 Array("北京", "天津", "上海", "武汉", "重庆", "西宁")

For i = 【7】LBound(city) 或1 To UBound(city)

Combo1. AddItem 【8】city(i)

Next

End Sub

（7）窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。

Private Sub Command1_Click()

Dim x As Integer

x = Val(InputBox("输入数据"))

Text1 = str(fun(x) fun(x) fun(x))

End Sub

Private Function fun(ByRef n As Integer)

If n Mod 3 = 0 Then

n = n n

Else

n = n * n

End If

【9】fun = n

End Function

当单击命令按钮，在输入对话框中输入2时，文本框中显示的是【10】276。

（8）窗体上有一个名称为List1的列表框，一个名称为Picture1的图片框。Form_Load事件过程的作用是，把Data1.txt文件中物品名称添加到列表框中。运行程序，当双击列表框中的物品名称时，可以把该商品对应的图片显示在图片框中，如图所示。以下是类型定义及程序，请填空。

Private Type Pic

gName As String * 10 '物品名称

picFile As String * 20 '物品图片的图片文件名

End Type

Dim p(4) As Pic, pRec As Pic

Private Sub Form_Load()

Open "Data1.txt" For Random As #1 【11】Len = Len(pRec)

For i = 0 To 4

Get #1, i 1, p(i)

List1.AddItem p(i).gName

Next i

Close #1

End Sub

Private Sub List1_DblClick()

For i = 0 To 4

If RTrim(List1.List(i)) = RTrim(【12】p(i).gName) Then

Picture1.Picture = LoadPicture(p(i).【13】picFile)

Exit For

End If

Next

End Sub

（9）窗体上有一个名称为CD1的通用对话框。通过菜单编辑器建立如图1所示的菜单。程序运行时，如果单击“打开”菜单项，则执行打开文件的操作，当选定了文件（例如：G:\VB\2010-9\in.txt）并打开后，该文件的文件名会被添加到菜单中，如图2所示。各菜单项的名称和标题等定义如下表。

以下是单击“打开”菜单项的事件过程，请填空。

Dim mnuCounter As Integer

Private Sub mnuOpen_Click() CD1.ShowOpen If CD1.FileName <> "" Then Open 【14】CD1.FileName For Input As #1 mnuCounter = mnuCounter 1 Load FName(mnuCounter) FName(mnuCounter).Caption = CD1.FileName FName(mnuCounter).【15】Visible = True End If End Sub