（4）

（5）输入掩码：99999

（6）

2、简单应用题

(2)

(3)

(4)

3、综合应用题

（3）Private Sub bList_Click() '设置代码执行宏 '*****Add2***** DoCmd.RunMacro \ '*****Add2*****

End Sub

（5）Private Sub Form_Load() '设置标签标题为系统日期 '*****Add1***** Tda.Caption = Date '*****Add1*****

End Sub

第10套

1、基本操作题

（1）