2010年9月全国计算机等级考试二级VB程序设计

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

软件测试的目的是（    ）。

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

软件生命周期是指（    ）。

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

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

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

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

有三个关系R、S和T如下：
 　　
则由关系R和S得到关系T的操作是（    ）。

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

在VisualBasic集成环境的设计模式下，用鼠标双击窗体上的某个控件打开的窗口是（    ）。

下列叙述中错误的是（    ）。

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

滚动条可以响应的事件是（    ）。

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

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

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

在窗体上画一个名称为Commandl的命令按钮。单击命令按钮时执行如下事件过程：
Private Sub Command1_Click()
a$ = "software and hardware"
b$ = Right(a$, 8)
c$ = Mid(a$, 1, 8)
MsgBox a$, , b$, c$, 1
End Sub
则在弹出的信息框标题栏中显示的标题是（    ）。

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

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

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

以下程序段的输出结果是（    ）。
x=1 : y=4
Do Until y>4
x = x * y
y = y + l
Loop
Print x

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

有如下事件过程：
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，则在窗体上显示的内容是（    ）。

请阅读程序：
Sub subp(b() As Integer)
For i = 1 To 4
b(i) = 2 * i
Next
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
End Sub
运行上面的程序，单击命令按钮，则输出结果是（    ）。

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 = flag
End Function
测试时发现对于所有正整数x，函数都返回False，程序需要修改。下面的修改方案中正确的是（    ）。

在窗体上画一个命令按钮，其名称为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
运行程序，单击命令按钮，输出结果是（    ）。

请阅读程序：
Private Sub Form_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
程序运行后，单击窗体，则输出结果是（    ）。

在窗体上画一个命令按钮（其名称为Commandl），然后编写如下代码：
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
运行上面的程序，单击命令按钮，则输出结果是（    ）。

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

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

请阅读程序：
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
Next
For i = 3 To 4
For j = 3 To 4
Print arr(j, i);
Next j
Print
Next
End Sub
程序运行后，单击窗体，则输出结果是（    ）。

下面函数的功能应该是：删除字符串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
但实际上函数有错误，需要修改。下面的修改方案中正确的是（    ）。

在窗体上画一个命令按钮和两个文本框，其名称分别为Commandl、Textl和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)
Print S2
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
S1 = S1 & Chr(KeyAscii)
Print S1
End Sub
Private Sub Command1_Click()
Text1.Text = S1
Text2.Text = S2
S1 = ""
S2 = ""
End Sub
程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Textl和Text2中显示的内容分别为（    ）。

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

在长度为n的线性表中，寻找最大项至少需要比较＿＿ 次。

一棵二叉树有10个度为1的结点，7个度为2的结点，则该二叉树共有＿＿ 个结点。

仅由顺序、选择（分支）和重复（循环）结构构成的程序是＿＿ 程序。

数据库设计的四个阶段是：需求分析，概念设计，逻辑设计和＿＿ 。

窗体上有一个名称为Combol的组合框，其初始内容为空，有一名称为Commandl、标题为“添加项目”的命令按钮。程序运行，若单击命令按钮，会将给定数组中的项目添加到组合框中，如图。请填空。
 　　
Option Base 1
Private Sub Command1_Click()
Dim city As Variant
city =  ＿＿ ("北京", "天津", "上海", "武汉", "重庆", "西宁")
For i =  ＿＿ To UBound(city)
Combo1.AddItem  ＿＿
Next
End Sub

窗体上有一个名称为Textl的文本框和一个名称为Commandl、标题为“计算”的命令按钮，如图所示。函数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
＿＿  = n
End Function
当单击命令按钮，在输入对话框中输入2时，文本框中显示的是  ＿＿　

窗体上有一个名称为Listl的列表框，一个名称为Picturel的图片框。Form_Load事件过程的作用是，把Datal.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 ＿＿ = 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(＿＿) Then
Picture1.Picture = LoadPicture(p(i). ＿＿ )
Exit For
End If
Next
End Sub

窗体上有一个名称为CDl的通用对话框。通过菜单编辑器建立如图l所示的菜单。程序运行时，如果单击“打开”菜单项，则执行打开文件的操作，当选定了文件（例如：G:\VB\2010-9\in.txt）并打开后，该文件的文件名会被添加到菜单中，如图2所示。各菜单项的名称和标题等定义如下表。
 　　
以下是单击“打开”菜单项的事件过程，请填空。
Dim mnuCounter As Integer
Private Sub mnuOpen_Click()
CD1.ShowOpen
If CD1.FileName <> "" Then
Open  ＿＿ For Input As #1
mnuCounter = mnuCounter + 1
Load fname(mnuCounter)
fname(mnuCounter).Caption = CD1.FileName
fname(mnuCounter).  ＿＿  = True
Close #1
End If
End Sub