第二套
\窗体上单击\输出\命令按钮（名为\），实现以下功能：计算Fibonacci数列第19项的值，将结果显示在窗体上名为\的文本框内并输出到外部文件保存；单击\打开表\命令按钮（名为\），调用宏对象\以打开数据表\。
第一空(Add1)：Dim f(19) As Integer 第二空(Add2)：f(i)=f(i-1)+f(i-2) 第三空(Add3)：tData=f(19)
第三套
窗体标题属性为系统当前日期 第一空(Add):Caption=Date()
第四套
第一空(Add)语句写在它下面（设置窗体bTitle标签为红色文本显示） bTitle.ForeColor = 255
第二空(Add)语句写在它下面（预览输出） mdPnt acViewPreview
第五套
单击\刷新\按钮（名为\），事件过程动态设置窗体记录源为查询对象\，实现窗体数据按性别条件动态显示退休职工的信息；单击\退出\按钮（名为\），调用设计好的宏\来关闭窗体。
第一空(Add):RecordSource = \
第七套
窗体图片文件\设置为窗体\的背景。要求背景图像文件当前路径必须用CurrentProject.Path获得。 第一空(Add):Picture=CurrentProject.Path+\
第八套
窗体标题属性\年职工信息输出\其中****为系统当前年\第一空(Add):Caption=Year(Date)&\年职工信息输出\
第十套
第一空(Add):If MsgBox(\报表预览\确认\
窗体运行后，在窗体右侧显示可以修改的用户名、密码等内容的列表，同时在窗体左侧显示列表中所指用户的信息。另外，在窗体中还有\修改\、\保存\和\退出\三个命令按钮，名称分别为\、\和\。当单击\修改\按钮后，在窗体左侧显示出该窗体右侧光标所指用户的口令信息，同时\保存\按钮变为可用；在\口令\和\确认口令\文本框中输入口令信息后，单击\保存\按钮，若在两个文本框中输入的信息相同，则保存修改后的信息，并先将\保存\命令按钮变为不可用，再将除用户名外的其他文本框控件和标签控件全部隐藏，最后将用户名以只读方式显示；若在两个文本框中输入的信息不同，则显示提示框，显示内容为\请重新输入口令！\，提示框中只有一个\确定\按钮。单击窗体上的\退出\按钮，关闭当前窗体。
第一空(Add1):CmdSave.Enabled=False 第二空(Add2):tUser_1.Enabled=False
第三空(Add3):MsgBox \请重新输入口令！\第四空(Add4):DoCmd.Close 关闭窗体 DoCmd.Close
第十二套
（4）窗体中\报表输出\和\退出\按钮的功能是单击\报表输出\按钮（名为\）后，首先将\退出\按钮标题变为红色，然后以预览方式打开报表\；单击\退出\按钮（名为\）调用宏\。 第一空(Add1): Caption = Year(Date) & \年度报表输出\字体变红:bt2控件名.ForeColor = 255
打开报表:DoCmd.OpenReport \错误处理: ErrHanle:
第十三套
（4）单击\报表输出\按钮（名为\），调用事件代码先设置\退出\按钮标题为粗体显示，然后以预览方式打开报表\；单击\退出\按钮（名为\），调用设计好的宏\来关闭窗体。
要求窗体的系统年要两个位数的:Caption = Format(Date(), \年度报表输出\字体变粗:bt2.FontBold = True
第十四套
（4）\窗体上单击\输出\命令按钮（名为\），实现以下功能：
计算10000以内的素数个数及最大素数两个值，将其显示在窗体上名为\文本框内并输出到外部文件保存。 单击\打开表\命令按钮（名为\），代码调用宏对象\以打开数据表\。 窗体标题为标签\的标题:Caption = bTitle.Caption 第二空(Add2): For i = 1 To 10000 If sushu(i) Then n = n + 1 If i > mn Then mn = i End If End If Next i
代码调用宏对象\以打开数据表\：DoCmd.RunMacro \
第十五套
（4）在\窗体上单击\男性最大年龄\命令按钮（名为\），实现以下功能。
查找表对象\中男性员工的最大年龄，将其输出显示在控件tData内；统计年龄在30以下（不含30）男性员工的人数，将其值写入外部文件\中。
单击\打开员工报表\命令按钮（名为\），通过代码调用宏对象\以打开报表\。 第一空(Add1):Caption = bTitle.Caption 第二空(Add2):MAgeMax = rs.Fields(\年龄\第三空(Add3):rs.MoveNext
第四空(Add4):DoCmd.RunMacro \
第十七套
单击命令按钮bList，要求运行宏对象m1；单击事件代码已提供，请补充完整。
窗体加载时，将“Tda”标签标题设置为“YYYY年雇员信息”，其中 “YYYY”为系统当前年份（要求使用相关函数获取） YYYY年雇员信息:Tda.Caption = Year(Date) & \年雇员信息\运行宏对象m1:DoCmd.RunMacro \
第十八套
（3）在窗体加载事件中，实现重置窗体标题为标签“tTitle”的标题内容。
（4）试根据以下窗体功能要求，对已给的事件过程进行代码补充，并运行调试。在窗体中有一个组合框控件和一个文本框控件，名称分别为“CItem”和“TxtDetail”；有两个标签控件，名称分别为“Label3”和“Ldetail”；还有三个命令按钮，名称分别为“CmdList”、“CmdRefer”和“CmdClear”。在“CItem”组合框中选择某一项目后，“Ldetail”标签控件将显示出所选项目名加上“内容：”。在“TxtDetail”文本框中输入具体项目值后，单击“CmdRefer”命令按钮，如果“CItem”和“TxtDetail”两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中没有值，显示提示框，提示框标题为“注意”，提示文字为“查询项目或查询内容不能为空！！！”，提示框中只有一个“确定”按钮；单击“CmdList”命令按钮，在子窗体中显示“tStud”表中的全部记录；单击“CmdClear”命令按钮，将清空控件“cItem”和“TxtDetail”中的值。
第一处填写(Add1)：Ldetail.Caption = cItem & \内容:\第二处填写(Add2)：fDetail.Form.RecordSource = \
第三处填写(Add3)：MsgBox “查询项目或查询内容不能为空！！！”,vbOKOnly,\注意\第四处填写(Add4)：aption = tTitle.Caption
第二十套
(5）按照以下窗体功能，补充事件代码设计。在窗体中有一个组合框控件和一个文本框控件，名称分别为“CItem”和“TxtDetail\；有两个标签控件，名称分别为“Label3”和“Ldetail”；还有三个命令按钮，名称分别为“CmdList”、“CmdRefer”和“CmdClear”。在“CItem”组合框中选择某一项目后，“Ldetail”标签控件将显示出所选项目名加上“内容：”。在“TxtDetail\文本框中输入具体项目值后，单击“CmdRefer”命令按钮，如果“CItem”和“TxtDetail\两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中不全有值，显示消息框，消息框标题为“注意”，提示文字为“查询项目和查询内容不能为空！！！”，消息框中只有一个“确定”按钮；单击“CmdList”命令按钮，在子窗体中显示“tStud\表中的全部记录；单击“CmdClear”命令按钮，将“cItem”和“TxtDetail\两个控件中的值清空。 第一处填写(Add1): Ldetail.Caption = cItem & \内容:\第二处填写(Add2): fDetail.Form.RecordSource = \
第三处填写(Add3):MsgBox \查询项目和查询内容不能为空！！！\“注意”
第二十一套
在窗体中还有\修改\和\保存\两个命令按钮，名称分别为\和\，其中\保存\命令按钮在初始状态为不可用，当单击\修改\按钮后，\保存\按钮变为可用。当单击\保存\按钮后，输入焦点移到\修改\按钮。此时，程序可以修改已有的用户相关信息，现已编写了部分VBA代码，请补充完整。 第一处填写(Add1): CmdSave.Enabled = True 第二处填写(Add2): DoCmd.GoToControl \
第二十三套
(1）打开窗体时设置窗体标题为\年信息输出\显示，其中\为系统当前年份（要求用相关函数获取），例如，2013年信
息输出。窗体\打开\事件代码已提供，请补充完整。
(4)单击窗体“报表输出”按钮（名为“bt1”），调用事件代码实现以预览方式打开报表“rEmp”；单击“退出”按钮（名为“bt2”），调用设计好的宏“mEmp”来关闭窗体。
第一处填写(Add1): Form.Caption=Year(Date()) & \年信息输出\第二处填写(Add2): DoCmd.OpenReport \
第二十四套
在窗体中有一个”退出”命令按钮,名称为”CmdQuit”,单击该按钮，弹出提示框。提示框标题为”提示”,提示框内容为”确认退出？”,并显示问号图标；提示框中有两个按钮，分别为”是”和”否”,单击”是”按钮,关闭消息框和当前窗体,单击”否”按钮，关闭消息框.请按照VBA代码中的指示将实现此功能的代码填入指定的位置中。
第一处填写(Add1): If MsgBox(\确认退出？\提示\
第二十五套
（4）在窗体加载时，\文本框的内容以密码形式显示。窗体\加载\事件代码已给出，请补充完整。
（5）按照以下窗体功能，补充事件代码设计。
在窗体中有“用户名称”和“用户密码”两个文本框，名称分别为“tUser”和“tPass”,还有“确定”和“退出”两个命令按钮，名称分别为“cmdEnter”和“cmdQuit”。在“tUser”和“tPass”两个文本框中输入用户名称和用户密码后，单击“确定”按钮，程序将判断输入的值是否正确，如果输入的用户名称为“cueb”，用户密码为“1234”，则显示正确提示框；如果输入不正确，则提示框显示内容为“密码错误！”,同时清除“tUser”和“tPass”两个文本框中的内容，并将光标置于“tUser”文本框中,当单击窗体上的“退出”按钮后，关闭当前窗体。 第一处填写(Add1):tPass.InputMask = \第二处填写(Add2):If pass=\
第三处填写(Add3):tUser.SetFocus 第四处填写(Add4):DoCmd.Close
第二十六套
（3）在窗体加载事件中，实现重置窗体标题为当前年月加标签\的标题内容，如\年06月xxxx\。其中，当前年月要求用函数获得，xxxx部分是标签\的标题内容。
（4）试根据以下窗体功能要求，对已给的事件过程进行代码补充，并运行调试。
在窗体中有一个组合框控件和一个文本框控件，名称分别为\和\；有两个标签控件，名称分别为\和\；还有三个命令按钮，名称分别为\、\和\。在\组合框中选择某一项目后，\标签控件将显示出所选项目名加上\内容：\。在\文本框中输入具体项目值后，单击\命令按钮，如果\和\两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中没有值，显示提示框，提示框标题为\注意\，提示文字为\查询项目或查询内容不能为空！！！\，提示框中只有一个\确定\按钮；单击\命令按钮，在子窗体中显示\表中的全部记录；单击\命令按钮，将清空控件\和\中值。 第一处填写(Add1)：Ldetail.Caption = cItem & \内容：\第二处填写(Add2)：fDetail.Form.RecordSource = \
第三处填写(Add3)：MsgBox \查询项目或查询内容不能为空！！！\注意\第四处填写(Add4)：Caption = Year(Date) & \年\月\
第二十七套
（4）在窗体对象”fEmp”上有”刷新”和”退出”两个命令按钮,名称分别为”bt1”和”bt2”.单击”刷新”按钮,窗体记录源改为查询对
象”qEmp”:单击”退出”按钮,关闭窗体.现已编写了部分VBA代码,请按照VBA代码中指示将代码补充完整。 第一处填写(Add1)：RecordSource=\第二处填写(Add2)：DoCmd.Close
第二十九套
（3）在窗体加载事件中实现代码重置窗体标题为标签\的标题内容。
（4）试根据以下窗体功能要求,对已给的事件过程进行代码补充,并运行调试.在\窗体上单击\输出\命令按钮（名为\）,计算满足表达式1+2+3+?+n<=30000的最大n值,并将n的值显示在窗体上名为\的文本框内并输出到外部文件保存.单击\打开表\命令按钮（名为\），代码调用宏对象\以打开数据表\。 第一处填写(Add1)：Caption = bTitle.Caption 第二处填写(Add2)：DoCmd.RunMacro \第三处填写(Program)： sum = 0 n = 0
Do While sum <= 30000 n = n + 1 sum = sum + n Loop n = n - 1
第三十套
（5）试根据以下窗体功能要求，补充已给的事件代码，并运行调试。
在\窗体的窗体页眉节区有一个文本框控件和一个命令按钮，名称分别为\和\；在主体节区有多个文本框控件，显示\表中的相关信息。在\文本框中输入具体值后，单击\命令按钮。如果\文本框中没有值，则显示提示框，提示文字为\对不起!未输入雇员姓名，请输入！\；如果\文本框中有值，则在\表中进行查找，如果找到了相应记录，则显示在主体节对应的文本框控件中，如果没有找到，则显示提示框，提示框显示标题为\查找结果\，提示文字为\对不起!没有这个雇员!\，提示框中只有一个\确定\按钮，然后清除\文本框中的内容，并将光标置于\文本框中。
第一处填写(Add1)：Set rs=New ADODB.Recordset 第二处填写(Add2)：If rs.EOF Then 第三处填写(Add3)：Me.TxtDetail = \
第三十一套
设置“fTest”窗体。打开窗体时，窗体标题显示内容为：“**月**日####样例”，请按照VBA代码中的指示将代码补充完整。 注意：①显示标题中，月和日均为本年度当月和当日，“####”为标签控件“bTitle”的内容；②显示内容中间及前后不允许出现空格；③如果月或日小于10，按实际位数显示。 要求：本年度当月和当日的时间必须使用函数获取。
Form.Caption = Trim(Str(DatePart(\月\日\样例\。
第三十二套
窗体“characterS”中有两个文本框，名称分别为“bTxt1”和“bTxt2”，还有一个命令按钮，名称为“bC”。窗体功能为：单击“bC”按钮将“bTxt1”文本框中已输入的字符串反向显示在“bTxt2”文本框中
第一处填写(Add1)：For i = Len(s1) To 1 Step -1 第二处填写(Add2)：bTxt2 = s2
第三十三套
预览报表时，报表标题显示为：“**月#######”，请按照VBA代码中的指示将代码补充完整。
注意：①显示标题中的月为本年度当月，“#######”为标签控件“bTitle”的内容；②如果月份小于10，按实际位数显示。 Report.Caption = Str(Month(Date)) & \月\员信息输出。
第三十四套
在“fStudent”窗体装载事件中，代码设置相关属性完成团员信息输出
在“fStudent”窗体打开事件中，代码设置“子对象”控件的源对象属性为“fGrade”窗体，并取消其“导航按钮”。 单击“fStudent”窗体的“退出”命令按钮（名称为bQuit），应关闭窗体。 第一处填写(Add1)：Filter = \政治面貌='团员'\第二处填写(Add2)：子对象.SourceObject = \第三处填写(Add3)：子对象.Form.NavigationButtons = False 第四处填写(Add4)：DoCmd.Close
第三十五套
在窗体“fEmp”的“加载”事件中设置标签“bTitle”以红色文本显示；单击“预览”按钮（名为“bt1”）或“打印”按钮（名为“bt2”），事件过程传递参数调用同一个用户自定义代码（mdPnt）过程，实现报表预览或打印输出；单击“退出”按钮（名为“bt3”），调用设计好的宏“mEmp”来关闭窗体。
第一处填写(Add1)：bTitle.ForeColor = 255 第二处填写(Add2)：mdPnt acPreview 第三处填写(Add3)：mdPnt acViewNormal
第三十六套
预览报表时，报表标题显示标签控件“bTitle”的内容，请按照VBA代码中的指示将代码补充完整。 报表代码 第一处填写(Add)：Caption = bTitle.Caption
第三十七套
打开窗体时，窗体标题显示内容为：“**月**日####”，请按照VBA代码中的指示将代码补充完整。
注意：①显示标题中，月和日均为本年度当月和当日，“####”为标签控件“bTitle”的内容；②显示内容中间及前后不允许出现空格；③如果月或日小于10，按实际位数显示。 要求：本年度当月和当日的时间必须使用函数获取
第一处填写(Add)：Form.Caption = Trim(Str (DatePart(\月\日\
bTitle.Caption
第三十八套
在“fEmp”窗体的左侧有一个名称为“COMBO1”的组合框和两个名称分别为“btitle1”、“btitle2”的标签。“btitle1”标签用于显示组合框左侧的标题内容，“btitle2”标签用于显示计算的平均年龄。“COMBO1”组合框中列出性别值“男”和“女”，当在组合框中选择某一性别值后，计算该性别的平均年龄，并将计算的结果显示在“btitle2”标签中，显示内容及格式如下图所示。请按照VBA代码中的指示将代码补充完整。
第一处填写(Add1)：btitle2.Caption = \性别查询结果:” & COMBO1.Value & \的平均年龄为\平均年龄\
性别='\
第二处填写(Add2)： COMBO1.RowSource = \男;女\第三处填写(Add3)：btitle2.Caption = \性别查询结果:”
第三十九套
打开窗体时，将窗体标题栏上的显示文字设为“CD明细显示”，请按照VBA代码中的指示将代码补充完整。
要求：①显示文字中的“CD明细”使用“bTitle”标签控件的内容。②将程序代码填写在“*****Add****”与“*****Add****”之间的空行内.第一处填写(Add)：Form.Caption = bTitle.Caption & \显示\
Private Sub bC_Click() ****** End Sub间写： CDID_标签.ForeColor = 255
第四十套
在相关事件代码中，依据报表“聘用时间”字段值情况，设置报表文本框“tStatus”的输出内容。具体规定是：截止2012年，聘用期在30年（含）以上的员工，输出“老员工”标示信息；否则，输出“普通员工”标示信息。