1、 '预览方式输出报表rEmp'
docmd.openreport \"rEmp\
2、设置窗体标题为“xxxx年信息输出”。其中xxxx为系统时间当前年份，用函数获取
form.caption=year(date)&\"年信息输出\"
3、新思路第31套题
（1）“ldetail”标签控件将显示出所选项目名加上内容
Ldetail.Caption = cItem & \"内容：\"
（2）在子窗体中显示\"tStud\"表中全部记录
fDetail.Form.RecordSource = \"tStud\"
(3)提示信息
MsgBox \"查询项目和查询内容不能为空！！！\注意\"
4、'消息框提示关闭窗体
'*****Add*****
If MsgBox(\"确定关闭？\'*****Add***** 下面程序已给
DoCmd.Close End If
5、窗体的标题为年加标签的标题
Form.Caption = Year(date)&month(date) + tTitle.Caption
6、对输入串进行反序
'设置循环
'*************** Add1 *************** for i=len(s1) to 1
'*************** Add1 ***************
t = Mid(s1, i, 1) s2 = s2 & t Next i
'将结果显示在bTxt2中
'*************** Add2 *************** bText2=s2
'*************** Add2 ***************
7、设置bTitle标签为红色文本显示
bTitle.forecolor=255
调用mdPnt预览输出
mdPnt acViewPreview
调用mdPnt打印输出
mdPnt acViewNormal
8、将输入焦点移到\"CmdEdit\"命令按钮 '*****Add2***** cmdEdit.setfoucs '*****Add2*****
9、 '在以下Program注释范围内编写代码，计算1+2+3+„+n<=30000的最大值，并保存到变量n中
'***** Program ***** sum=0
for i=1 to 30000 sum=sum+i
if sum<=30000 then n=i end if next i
'***** Program *****
'代码调用宏对象\"mEmp\" '***** Add2 *****
docmd.runmacro \"mEmp\"
'***** Add2 *****
'设置窗体标题为标签\"bTitle\"的标题内容 '***** Add1 ***** form.caption=btitle.captione '***** Add1 *****
10、单击修改按钮，保存按钮可用
cmdsave.enabled=true
'将输入焦点移到\"CmdEdit\"命令按钮 '*****Add2***** cmdEdit.setfocus '*****Add2*****
11、参照新思路47题
如果账号是cueb 并且密码为1234,显示“密码输入正确，欢迎进入系统”
' *********************** Add2 ************************************* If name = \"cueb\" And pass = \"1234\" Then
' *********************** Add2 *************************************
'设置相关属性，实现“tPass”文本框内容以密码形式显示
' *********************** Add1 ************************************* tPass.InputMask = \"password\"
' *********************** Add1 *************************************
12、 '设置代码执行宏 '*****Add2***** DoCmd.RunMacro \"m1\" '*****Add2*****
'将Tda标签标题设置为“YYYY年雇员信息”，其中“YYYY”为系统当前年份,用函数获取。 '*****Add1*****
Tda.caption=year(date)&\"雇员信息\" '*****Add1*****
13、 '动态设置窗体记录源属性 '*****Add1*****
form.recordsource=qEmp '*****Add1*****
'关闭窗口
'*****Add2***** docmd.close
'*****Add2*****
14、'设置子对象的数据源 '*****Add2*****
Me!子对象.SourceObject = fgrade '*****Add2*****
'取消子窗体导航按钮 '*****Add3*****
Me!子对象.Controls = False '*****Add3*****
