j =    [12]   

  Loop While     [13]   

  result = “”

  For k = 1 To 10

    result = result & arr(k)&Chr(13)

  Next k

  MsgBox result

End Sub

（13）已经设计出一个表格式窗体，可以输出教师表的相关字段信息，请按照以下功能要求补充设计：改变当前记录，消息框弹出提示“是否删除该记录？”，单击“是”，则直接删除该当前记录；单击“否”，则什么都不做，其效果图如下：

'单击“退出”按钮，关闭窗体

Private Sub btnCancel_Click( )

        [14]     

End Sub

'表格式窗体当前记录变化时触发

Private Sub Form_Current( )

  If MsgBox("是否删除该记录？", vbQuestion + vbYesNo, "确认" ) = vbYes Then

      [15]     

    End If

End Sub

答案：

一、选择题

1— 5   D  D  D  A  A    6—10   A  B  B  D  A

11—15  B  B  B  A  C    16—20  A  D  D  C  A

21—25  D  B  B  C  C    26—30  D  A  B  A  D

31—35  A  C  A  C  D

二、填空题

1、n-1

2、29

3、数据操纵语言

4、关系

5、面向对象方法

6、交叉表

7、between 100 and 999

8、DESC

9、forms![窗体名]![控件名]

10、movenext

11、ariant 或 变体型

12、j-1

13、i<j

14、docmd.close

15、me.rocordset.delete