1、单击命令按钮运行宏m1：DoCmd.RunMacro "m1"
2、标签Tda标题设置为系统当前日期：Tda.Caption=Date
3、使“保存”按钮CmdSave变为可用：CmdSave.Enabled=True
将输入焦点移到"CmdEdit"命令按钮：Me.CmdEdit.SetFocus
4、将文本框tText的内容作为窗体中标签bTitle的标题显示：bTitle.Caption=Me!tText
5、窗体加载时窗体标题属性为系统当前日期：Form.Caption=Date
6、打开窗体、单击"计算"按钮(名为bt)，事件过程使用ADO数据库技术计算出表对象"tEmp"中党员职工的平均年龄，然后将结果显示在窗体的文本框"tAge"内并写入外部文件中。
Ifrs.RecordCount=0Then;tAge=sage
7、将tStudent表中的全部记录显示出来：Select * From tStudent
8、窗体加载时窗体标题属性为系统当前日期：Form.Caption=Date
9、消息框：MsgBox"请重新输入口令！",vbOkquit
10、输入框：k=InputBox("请输入大于0的整数值")
预览输出报表对象"rEmp"：DoCmd.OpenReport "rEmp",acViewPreview
11、CaseIs>=3预览输出报表对象"rEmp"：DoCmd.OpenReport "rEmp",acViewPreview
12、Dim f(19)AsInteger f(i)=f(i-1)+f(i-2)tData=f(19)
13、单击"刷新"按钮，窗体记录源改为查询对象"qEm"：Form.RecordSource="qEmp"单击"退出"按钮，关闭窗体：DoCmd.Close
14、窗体"fEmp"的"加载"事件中设置标签"bTitle"以红色文本显示：bTitle.Caption=vbRed实现报表预览输出:mdPnt acViewPreview
15、消息框：MsgBox"报表预览",vbQuestion+vbYesNo,"确认"
16、动态设置窗体记录源为查询对象"qEmp"：Form.RecordSource="qEmp"
17、将考生文件夹下的图片文件"test.bmp"设置为窗体"fEmp"的背景：
Form.Picture=CurrentProject&"\test.bmp"
18、CDID文本框内内容显示颜色改为红色：CDID.ForeColor=vbRed
19、动态设置窗体记录源为查询对象"qEmp"：Form.RecordSource="qEmp"
关闭窗体：DoCmd.Close
20、使“保存”按钮CmdSave变为可用：CmdSave.Enabled=True
21、将文本框中输入的内容与文本串"等级考试测试"连接，并消除连接串的前导和尾随空白字符，用标签"bTitle"显示连接结果：bTitle.Caption=Trim(tText)&"等级考试测试"
22、动态设置窗体记录源为查询对象"qEmp"：Form.RecordSource="qEmp"
23、预览输出报表对象"rEmp"：DoCmd.OpenReport "rEmp",acViewPreview
24、单击“退出”按钮，关闭当前窗体：DoCmd.Close
单击“保存”按钮，“修改”按钮不可用：CmdEdit.Enable=False
用户名_1控件不可用：Me!用户名_1.Enabled=False
25、将标签显示内容设置为所选项目名加上"内容:"Me.Ldetail.Caption=Me.CItem.Value&"内容:"显示tStud表的全部记录：fDetail.Form.RecordSource="tStud"设置提示框：MsgBox "查询项目和查询内容不能为空！！！",vbOKOnly,"注意"设置窗体标题为XXXX年XX月+tTitle 标签的标题：Me.Caption=Str(Year(Date))&"年"&Str(Month(Date))&"月"&Me.tTitle.Caption 26、设置用户名为cueb，密码为1234：If name="cueb" And pass="1234"Then
文本框tUser获得焦点：Me.tUser.SetFocus
设置相关属性，实现“tPass”文本框内容以密码形式显示：Me.tPass.InputMask="Password"
27、数据连接：Set rs=New ADODB.Recordset
如果达到表结尾：If rs.EOF Then
清空TxtDetail文本框：Me.TxtDetail=""
28、消息框提示关闭窗体：
IfMsgBox("确认退出？",vbCritical+vbYesNo,"提示")Then
29、设置代码执行宏M1：DoCmd.RunMacro"M1"
将Tda标签标题设置为“YYYY年雇员信息”，其中“YYYY”为系统当前年份,用函数获取：
Me.Tda.Caption=Str(Year(Date))&"年雇员信息"
30、动态设置窗体记录源属性为查询qEmp：Me.RecordSource="qEmp"
31、计算1+2+3+…+n<=30000的最大值，并保存到变量n中：
Dim s As Integer:n=1:s=0
Do While s<=30000:s=s+n:n=n+1:Loop:n=n–1
32、设置标签bTitle的标题为XX月+原标题：
Me.bTitle.Caption=Str(Month(Date))&"月"&Me.bTitle.Caption
33、设置bTitle标签为红色文本显示：Me.bTitle.ForeColor=RGB(255,0,0)
调用mdPnt，预览输出：CallmdPnt(2)调用mdPnt，打印输出：CallmdPnt(0)
34、输入字符串后，产生反序：
s1=Me.bTxt1
'设置循环
'***************Add1***************
Fori=Len(Me.bTxt1)To1Step-1
'***************Add1***************
t=Mid(s1,i,1)
s2=s2&t
Nexti
'将结果显示在bTxt2中
'***************Add2***************
Me.bTxt2.Value=s2
'***************Add2***************
EndSub
35、设置bTitle的标题为窗体的标题：Me.Caption = Me.bTitle.Caption
36、报表标题显示标签控件"bTitle"的内容：Me.Caption = Me。