（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）
