閱讀以下說(shuō)明及Visual Basic程序代碼，高爾夫球應(yīng)填入(n)處的字句寫(xiě)在對(duì)應(yīng)欄內(nèi)。

[說(shuō)明]

設(shè)某單位Acess數(shù)據(jù)庫(kù)中有一張員工信息表，其中記錄了員工編號(hào)、姓名、性別等基本信息。下面的應(yīng)用程序利用數(shù)據(jù)控件(Data)實(shí)現(xiàn)了對(duì)這張表中記錄的增加、刪除和修改操作。其運(yùn)行界面如下：

在開(kāi)發(fā)過(guò)程中，數(shù)據(jù)控件Data1與員工數(shù)據(jù)表相連接，各文本框、“性別”組合列表框Combo1、“政治面貌”組合列表框Combo2都分別與數(shù)據(jù)表的相應(yīng)字段綁定，界面上從左到右各操作按鈕分別取名為CmdAdd、CmdDel、CmdUpdate和CmdExit。

[Visual Basic代碼]

Private Sub Form_Load( ) " 加載窗體

Combo1. (1) "男"

Combo1. (1) "女"

Combo2. (1) "黨員"

Combo2. (1) "團(tuán)員"

Combo2. (1) "群眾"

End Sub

Private Sub CmdAdd_Cliek( ) "增加記錄

Datal. Recordset. AddNew

End Sub

Private Sub CmdDel_Click( ) "刪除記錄

Datal. Recordset. (2)

Datal. Recordset. MoveNext

End Sub

Private Sub CmdUpdate_Click( ) "修改記錄

If Datal. ReadOnly = (3) And Datal. Recordset. Updatable Then

Datal. Recordset. Edit

Datal. Recordset. (4)

Else

MsgBox "數(shù)據(jù)表不允許修改!"

End If

End Sub

Private Sub CmdExit_Click ( ) "退出程序

Dim ret As Long

ret : MsgBox("真的要退出嗎?", vbQuestion + vbYesNo, "退出" )

If (5) Then

Datal. Reeordset. Close

End

End ff

End Sub

正確答案：

(1)Addhem(2)Delete(3)False(4)Update(5) ret=vbYes(1)Addhem(2)Delete(3)False(4)Update(5) ret=vbYes 解析：(1)組合列表框中的列表項(xiàng)是在窗體加載時(shí)添加的，其方法是調(diào)用組合框控件對(duì)象的Addhem方法；(2)從數(shù)據(jù)集中刪除記錄應(yīng)使用Delete方法；(3)若數(shù)據(jù)控件的ReadOnly(只讀)屬性為真，則數(shù)據(jù)記錄不可更改，因此此處取假值；(4)數(shù)據(jù)集的Edit方法用于對(duì)可更新的當(dāng)前記錄進(jìn)行編輯修改。Update方法則