阅读以下说明及Visual Basic程序代码，将入(n)处的字句写在对应栏内[说明] 设有一张学生成绩表scores存放在Access数据库Student中，其中包括学生编号、姓名以及各科目考试成绩。下面的应用程序利用ADO Data和DataGrid控件实现了对成绩数据的基本管理，其操作包括： (1)添加新记录：单击“添加”按，光标将指向最后一条数据记录，在其后编辑好新的数据记录后，再单击“更新”按，该数据即被加入成绩表； (2)删除记录：单击“删除”按将删除当前所指记录，其后的数据记录依次上移； (3)更新记录：直接编辑某条已有记录，再单击“更新”按将更新成绩表； (4)记录排序：选中单列字段后，单击“排序”按，记录集将按该字段升序排列。 程序的运行界面为： 在开发过程中，数据库连接对象使用了名为Adodc1的ADO Data控件，数据显示区域使用了名 DataGnd1的DataGrid控件，界面上从左到右各操作按分别取名为CmdAdd、CmdDel、CmdUpdate、 CmdRefresh、CmdSort和CmdExit。 [Visual Basic代码] Dim conn, database, table As String Private Sub Form_Load() database ='E:/Student.mdb' ’设置要访问的数据库 conn ='Provider=Microsoft.Jet.OLEDB.4.0;Data Souse=' & database Adodc1.ConnectionString=conn ’设置连接字符串 table = 'scores' Adode1. (1)= table ’设置所要访问的数据表 Set DataGrid1. (2)= Adodc1 End Sub Private Sub CmdAdd_Click() ’“添加”按的单击事件响应过程 Adodc1.Recordset. (3) End Sub Private Sub CmdDel_Click() ’“删除”按的单击事件响应过程 Adodc1.Recordset.Delete Adodc1.Reeordset.MoveNext End Sub Private Sub CmdUpdate_Click() ’“更新”按的单击事件响应过程 Adode1.Reeordset.UpdateBatch adAffectAll End Sub Private Sub CmdRefresh_Cliek() ’“刷新”按的单击事件响应过程 Adodc1.Refresh End Sub Private Sub CmdSort_Cliek() ’“排序”按的单击事件响应过程 If DataGrid1.SelStartCol ＜ 0 Or DataGridl. SelStartCol (4) DataGrid1. SelEndCol Then MsgBox “请选择某一字段(列)!” Exit Sub End If Adodc1. RecordSource = 'SELECT * FROM' & table & 'order by' & _ DataGrid1. Columns((5)).DataField Adodc1.Refresh End Sub Private Sub CmdExit_Click() ’“退出”按的单击事件响应过程 End End Sub