下列程序的功能是返回当前窗体的记录集

Sub GetRecNum()

Dim rs As Object

Set rs=

MsgBox rs.RecordCount

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

（9）在VBA中要将数值表达式的值转换为字符串，应使用函数 【9】 。

（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

（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

（7）在SELECT语句中，HAVING子句必须与 【7】 子句一起使用。

（8）若要在宏中打开某个数据表，应使用的宏命令是 【8】 。

（6）在Access查询的条件表达式中要表示任意单个字符，应使用通配符 【6】 。

（5）在关系A(S,SN,D)和关系B(D,CN,NM)中，A的主关键字是S，B的主关键字是D，则称 【5】 是关系A的外码。

（2）一棵二叉树的中序遍历结果为DBEAFC，前序遍历结果为ABDECF，则后序遍历结果为 【2】 。