20套代码答案修改后

20套题的代码答案

第一套题samp3.mdb

(3)DoCmd.RunMacro ”m1”

(5)me.Tda.Caption=date

第三套题samp3.mdb

（4）Me.RecordSource=”qemp”

DoCmd.Close

第五套题samp3.mdb

（4）If MsgBox(“报表预览”,vbYesNo+vbQuestion,”确定”)=vbYes Then

第七套题samp3.mdb

（5）第一条：Ldetail.Caption=cItem.Value & “内容：”

第二条：fDetail.Form.RecordSource=”select*from tStud”

第三条：MsgBox”查询项目和查询内容不能为空！！！”，vbOKOnly,”注意”第八套samp3.mdb

（4）Me.Picture=CurrentProject.Path & “\test.bmp”

第九套samp3.mdb

(5)MsgBox “请重新输入口令！”

第十套samp3.mdb

（4）第一条：Case Is>=3

第二条：DoCmd.OpenReport”remp”,acViewPreview

（3）Me.Caption=year(date) & “年度报表输出”

(4)第一条：Me.bt2.Fore Color=255

第二条：DoCmd.OpenReport”remp”,acViewPreview

第三条：err h anle:

第十二套samp3.mdb

（3）Me.Caption=Me.bTitle.Caption

(4)第一条：MAgeMax=rs.Fields(“年龄”)

第二条：rs.MoveNext

第三条：DoCmd.RunMacro “memp”

第十三套samp3.mdb

（5）DoCmd.Close

第十六套题samp3.mdb

（4）第一条：If rs.EOF then

第二条：sage=rs.Fields(0)