2010年9月全国计算机等级考试二级VB程序设计
时长:90分钟 总分:100分
116浏览 0人已完成答题
题型介绍
| 题型 | 单选题 | 填空题 |
|---|---|---|
| 数量 | 35 | 9 |
一、选择题（每小题2分，共70分）
19.
在窗体上画一个名称为Commandl的命令按钮。单击命令按钮时执行如下事件过程：
在窗体上画一个名称为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
则在弹出的信息框标题栏中显示的标题是（ ）。
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，则在窗体上显示的内容是（ ）。
26.
请阅读程序：
请阅读程序：
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
运行上面的程序，单击命令按钮，则输出结果是（ ）。
27.
Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即：1，1，2，3，5，8，13，21，34，55，89，…。某人编写了下面的函数，判断大于1的整数x是否是Fibonacci数列中的某个数，若是，则返回True，否则返回False。
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，程序需要修改。下面的修改方案中正确的是（ ）。
28.
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
在窗体上画一个命令按钮，其名称为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
运行程序，单击命令按钮，输出结果是（ ）。
29.
请阅读程序：
请阅读程序：
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
程序运行后，单击窗体，则输出结果是（ ）。
30.
在窗体上画一个命令按钮（其名称为Commandl），然后编写如下代码：
在窗体上画一个命令按钮（其名称为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
运行上面的程序，单击命令按钮，则输出结果是（ ）。
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
Next
For i = 3 To 4
For j = 3 To 4
Print arr(j, i);
Next j
Print
Next
End Sub
程序运行后，单击窗体，则输出结果是（ ）。
34.
下面函数的功能应该是：删除字符串str中所有与变量ch相同的字符，并返回删除后的结果。例如：若str=“ABCDABCD”，ch=“B”，则函数的返回值为：“ACDACD”
下面函数的功能应该是：删除字符串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
但实际上函数有错误，需要修改。下面的修改方案中正确的是（ ）。
35.
在窗体上画一个命令按钮和两个文本框，其名称分别为Commandl、Textl和Text2，在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序：
在窗体上画一个命令按钮和两个文本框，其名称分别为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中显示的内容分别为（ ）。
二、填空题（每空2分，共30分）
36.
一个栈的初始状态为空。首先将元素5，4，3，2，1依次入栈，然后退栈一次，再将元素A，B，C，D依次入栈，之后将所有元素全部退栈，则所有元素退栈（包括中间退栈的元素）的顺序为______ 。
41.
窗体上有一个名称为Combol的组合框，其初始内容为空，有一名称为Commandl、标题为“添加项目”的命令按钮。程序运行，若单击命令按钮，会将给定数组中的项目添加到组合框中，如图。请填空。
窗体上有一个名称为Combol的组合框，其初始内容为空，有一名称为Commandl、标题为“添加项目”的命令按钮。程序运行，若单击命令按钮，会将给定数组中的项目添加到组合框中，如图。请填空。
Option Base 1
Private Sub Command1_Click()
Dim city As Variant
city = ______ ("北京", "天津", "上海", "武汉", "重庆", "西宁")
For i = ______ To UBound(city)
Combo1.AddItem ______
Next
End Sub
42.
窗体上有一个名称为Textl的文本框和一个名称为Commandl、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。
窗体上有一个名称为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时，文本框中显示的是 ______
43.
窗体上有一个名称为Listl的列表框，一个名称为Picturel的图片框。Form_Load事件过程的作用是，把Datal.txt文件中的物品名称添加到列表框中。运行程序，当双击列表框中的物品名称时，可以把该物品对应的图片显示在图片框中，如图所示。以下是类型定义及程序，请填空。
窗体上有一个名称为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
44.
窗体上有一个名称为CDl的通用对话框。通过菜单编辑器建立如图l所示的菜单。程序运行时，如果单击“打开”菜单项，则执行打开文件的操作，当选定了文件（例如：G:\VB\2010-9\in.txt）并打开后，该文件的文件名会被添加到菜单中，如图2所示。各菜单项的名称和标题等定义如下表。
