时间:2012-06-03 20:38:38
（35）下列程序的功能是返回当前窗体的记录集
Sub GetRecNum()
Dim rs As Object
Set rs=______
MsgBox rs.RecordCount
End Sub
为保证程序输出记录集（窗体记录源）的记录数，空白处应填入的语句是
A）Recordset
B）Me.Recordset
C）RecordSource
D）Me.RecordSource
二、填空题
（1）有序线性表能进行二分查找的前提是该线性表必须是 【1】存储的。
（2）一棵二叉树的中序遍历结果为DBEAFC，前序遍历结果为ABDECF，则后序遍历结果为 【2】 。
（3）对软件设计的最小单位（模块或程序单元）进行的测试通常称为 【3】 测试。
（4）实体完整性约束要求关系数据库中元组的 【4】属性值不能为空。
（5）在关系A(S,SN,D)和关系B(D,CN,NM)中，A的主关键字是S，B的主关键字是D，则称 【5】是关系A的外码。
（6）在Access查询的条件表达式中要表示任意单个字符，应使用通配符【6】 。
（7）在SELECT语句中，HAVING子句必须与 【7】 子句一起使用。
（8）若要在宏中打开某个数据表，应使用的宏命令是 【8】。
（9）在VBA中要将数值表达式的值转换为字符串，应使用函数【9】 。
（10）运行下列程序，输入如下两行：
Hi,
I am here．
弹出的窗体中的显示结果是 【10】 。
Private Sub Command11_Click()
Dim abc As String, sum As string
sum=""
Do
abc=InputBox("输入abc")
If Right(abc,1)="." Then Exit Do
sum=sum+abc
Loop
MsgBox sum
End Sub
（11）运行下列程序，窗体中的显示结果是：x= 【11】 。
Option Compare Database
Dim x As Integer
Private Sub Form_Load()
x=3
End Sub
Private Sub Command11_Click()
Static a As Integer
Dim b As Integer
b=x^2
fun1 x,b
fun1 x,b
MsgBox "x="&x
End Sub
Sub fun1(ByRef y As Integer,ByVal z As Integer）
y=y+z
z=y-z
End Sub
（12）“秒表”窗体中有两个按钮（“开始/停止”按钮bOK,“暂停/继续”按钮bPus）；一个显示计时的标签1Num；窗体的“计时器间隔”设为100计时精度为0.1秒。
要求：打开窗体如图1所示；第一次单击“开始婷止”按钮，从0开始滚动显示计时（见图2)；10秒时单击“暂停/继续”按钮，显示暂停（见图3），但计时还在继续；若20秒后再次单击“暂停/继续”按钮，计时会从30秒开始继续滚动显示；第二次单击“开始/停止”按钮，计时停止，显示最终时间（见图4）。若再次单击“开始/停止”按钮可重新从0开始计时。
相关的事件程序如下。请在空白处填入适当的语句，使程序可以完成指定的功能。
Option Compare Database
Dim flag,pause As Boolean
Private Sub bOK Click()
flag= 【12】
Me!bOK.Enabled=True
Me!bPus.Enabled=flag
End Sub
Private Sub bPus_Click()
pause=Not pause
Me!bOK.Enabled=Not Me!bOK.Enabled
End Sub
Private Sub Form Open(Cancel As Integer)
flag=False
pause=False
Me!bOK.Enabled=True
Me!bPus.Enabled=False
End Sub
Private Sub Form Timer()
Static count As Single
If flag=True Then
If pause=False Then
Me!1Num.Caption=Round(count,1)
End If
count= 【13】
Else
count=0
End If
End Sub
（13）数据库中有“学生成绩表”，包括“姓名”、“平时成绩”、“考试成绩”和“期末总评”等字段。现要根据“平时成绩”和“考试成绩”对学生进行“期末总评”。规定：
“平时成绩”加“考试成绩”大于等于85分，则期末总评为“优”，“平时成绩”加“考试成绩”小于60分，则期末总评为“不及格”，其他情况期末总评为“合格”。
下面的程序按照上述要求计算每名学生的期末总评。请在空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Command0_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim pscj,kscj,qmzp As DAO.Field
Dim count As Integer
Set db=CurrentDb()
Set rs=db.OpenRecordset("学生成绩表")
Set pscj=rs.Fields("平时成绩")
Set kscj=rs.Fields("考试成绩")
Set qmzp=rs.Fields("期末总评")
count=0
Do While Not rs.EOF
【14】
If pscj+kscj>=85 Then
qmzp="优"
ElseIf pscj+kscj<60 Then
qmzp="不及格"
Else
qmzp="合格"
End If
rs.Update
count=count+1
【15】
Loop
rs.Close
db.Close
Set rs=Nothing
Set db=Nothing
MsgBox "学生人数："&count
End Sub
2011年3月计算机二级Access笔试答案
(非标准答案，仅供参考！)
版本一
选择14442，43231，11441，33234，4134-，11122，14120，
填空，1，有序 2，DEBFCA 3，单元 4，主键 5，D 6，# 9，str 10，Hi 12，true
版本二：
选择:
1-10 ：ABDDB ACDCB
11-20：AADDA CCDCD
20-30：DACDD A