试题七（15 分，每空3 分）阅读以下应用说明及Visual Basic 部分程序代码，将应填入 (n) 处的字句写在答题纸的对应栏内。[应用说明]设一个简单的“通讯录”存储在一个ACCESS 类型的数据库表中，包括姓名、电话和email三个字段。下面的应用程序实现对“通讯录”数据库表中的记录进行增加、删除及修改处理，其运行界面如下：

（1）数据控件(data1)与“通讯录”数据库表相连接，用户可通过“”和“”按钮指定表中的当前记录。（2）文本框Txt_name、Txt_phone 和Txt_email 分别与数据库表中的“姓名”、“电话”和“email”字段绑定，用于显示当前记录的内容。（3）应用程序启动时，“确定”按钮(Cmd_ok)和“取消”按钮（Cmd_cancel）不可操作,文本框中显示表中的第一条记录，这时文本框处于不可操作状态。（4）单击“增加”按钮（Cmd_add）或“修改”按钮（Cmd_modify）后，方可以编辑记录内容，同时“增加”、“删除”、“修改”和“退出”按钮变为不可操作状态。“增加”和“修改”操作需通过“确定”和“取消”按钮确认。（5）单击“删除”按钮（Cmd_del）后，弹出对话框，再单击“确定”按钮，当前记录被删除。[程序代码]Private Sub enableop(isEnabled As Boolean)Txt_name.Enabled = isEnabled: Txt_phone.Enabled = isEnabledTxt_email.Enabled = isEnabledCmd_ok.Enabled = isEnabled: Cmd_cancel.Enabled = isEnabledCmd_add.Enabled = Not isEnabled: Cmd_del.Enabled = Not isEnabledCmd_end.Enabled = Not isEnabled: Cmd_modify.Enabled = Not isEnabledEnd SubPrivate Sub Form_Load()Call enableop(False)Data1.RefreshIf Data1.Recordset.RecordCount = 0 ThenCmd_del.Enabled = False: Cmd_modify.Enabled = (1)End IfEnd SubPrivate Sub Cmd_add_Click() ’单击“增加”按钮的代码Call enableop( (2) )Data1.Recordset.AddNew ’在数据库表中添加一个新记录Txt_name. (3)End SubPrivate Sub Cmd_del_Click() ’单击“删除”按钮的代码On Error GoTo error3ans = MsgBox("确定删除吗？", vbYesNo + vbInformation, "操作提示!")If (ans = vbYes) ThenData1.Recordset. (4)Data1.Recordset.MoveNextIf Data1.Recordset.EOF Then Data1.RefreshEnd IfExit Suberror3:MsgBox Err.Description, vbOKOnly, "错误提示!"End SubPrivate Sub Cmd_ok_Click() ’单击“确定”按钮的代码On Error GoTo error1Data1.Recordset. (5)Call enableop(False)Exit Suberror1:MsgBox Err.Description, vbOKOnly, "错误提示!"Data1.UpdateControlsCall enableop(False)End Sub’ “修改”和“取消”按钮的程序代码(略)

阐述欧盟旅游一体化的发展策略，谈谈其可借鉴之处。