2014年9月计算机二级Access考前预测试卷(2)
(31)在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：
Public x As Integer
Private Sub Command1_Click()
x=10
Call s1
Call s2
MsgBox x
End Sub
Private Sub s1()
x=x+20
End Sub
Private Sub s2()
Dim x As Integer
x=x+20
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为
A)10 B)30 C)40 D)50
(32)下列过程的功能是：通过对象变量返回当前窗体的Recordset属性记录集引用，消息框中输出记录集的记录(即窗体记录源)个数。
Sub GetRecNum()
Dim rs As Object
Set rs = Me.Recordset
MsgBox ______
End Sub
程序空白处应填写的是
A)Count
B)rs.Count
C)RecordCount
D)rs.RecordCount
(33)在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：
Private Sub Command1_Click()
Dim a(10,10)
For m=2 To 4
For n=4 To 5
a(m,n)=m*n
Next n
Next m
MsgBox a(2,5)+a(3,4)+a(4,5)
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是
A)22 B)32 C)42 D)52
(34)设有如下程序
Private Sub Command1_Click( )
Dim sum As Double, x As Double
sum = 0
n = 0
For i=1 To 5
x = n / i
n = n + 1
sum = sum + x
Next i
End Sub
该程序通过For循环来计算一个表达式的值，这个表达式是
A)1+1/2+2/3+3/4+4/5
B)1+1/2+1/3+1/4+1/5
C)1/2+2/3+3/4+4/5
D)1/2+1/3+1/4+1/5
(35)在窗体中使用一个文本框(名为n)接受输入的值，有一个命令按钮run，事件代码如下：
Private Sub run_Click( )
result = ""
For i= 1 To Me!n
For j = 1 To Me!n
result = result + "*"
Next j
result = result + Chr(13) + Chr(10)
Next i
MsgBox result
End Sub
打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图形是
A)* * * *
* * * *
* * * *
* * * *
B) *
* * *
* * * * *
* * * * * * *
C) * * * *
* * * * * *
* * * * * * * *
* * * * * * * * * *
D) * * * *
* * * *
* * * *
* * * *
二、填空题
请将每一个空的正确答案写在答题卡序号的横线上，答在试卷上不给分。
(1)栈底至栈顶依次存放元素A、B、C、D，在第五个元素E入栈前，栈中元素可以出栈，则出栈序列可能是【1】。
(2)在最坏情况下，堆排序需要比较的次数为【2】。
(3)已知二叉树后序遍历序列是dabec，中序遍历序列是debac，它的前序遍历序列是【3】。
(4)从工程管理角度，软件设计一般分为两步完成，它们是【4】。
(5)用二维表的形式来表示实体之间联系的数据模型叫做【5】。
(6)在学生成绩表中，如果需要根据输入的学生姓名查找学生的成绩，需要使用的是 【6】 查询。
(7)数据访问页有两种视图，它们是页视图和 【7】 视图。
(8)如果希望按满足指定条件执行宏中的一个或多个操作，这类宏称为 【8】 。
(9)某窗体中有一命令按钮，在窗体视图中单击此命令按钮打开一个报表，需要执行的宏操作是 【9】 。
(10)执行下面的程序，消息框里显示的结果是 【10】 。
Private Sub Form_Click()
Dim Str As String,k As Integer
Str="ab"
For k=Len(Str) To 1 Step -1
Str=Str & Chr(Asc(Mid(Str,k,1))+k)
Next k
MsgBox Str
End Sub
(11)在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为Text1)，然后编写如下事件过程：
Private Sub Command1_Click()
Dim x As Integer, y As Integer, z As Integer
x=5:y=7:z=0
Me!Text1=""
Call p1(x,y,z)
Me!Text1=z
End Sub
Sub p1(a As Integer, b As Integer, c As Integer)
c=a+b
End Sub
打开窗体运行后，单击命令按钮，文本框中显示的内容是 【11】 。
(12)窗体中有两个命令按钮："显示"(控件名为cmdDisplay)和"测试"(控件名为cmdTest)。以下事件过程的功能是：单击"测试"按钮时，窗体弹出一个消息框，如果单击消息框的"确定"按钮，隐藏窗体上的"显示"命令按钮;单击"取消"按钮关闭窗体。请按照功能要求，将程序补充完整。
Private Sub cmdTest_Click()
Answer = 【12】
If Answer=vbOK Then
cmdDisplay.Visible = 【13】
Else
Docmd.Close
End If
End Sub
(13)下列子过程的功能是：将当前数据库文件中"学生表"的学生"年龄"都加1。请在程序空白的地方填写适当的语句，使程序实现所需的功能：
Private Sub SetAgePlus1_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim fd As DAO.Field
Set db = CurrentDb()
Set rs = db.OpenRecordset("学生表")
Set fd = rs.Fields("年龄")
Do While Not rs.EOF
rs.Edit
fd = 【14】
rs.Update
【15】
Loop
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End Sub