VBA代码2015年3月

第二套fEmp窗体上单击输出命令按钮（名为btnP），实现以下功能：计算Fibonacci数列第19项的值，将结果显示在窗体上名为tData的文本框内并输出到外部文件保存；单击打开表命令按钮（名为btnQ），调用宏对象mEmp以打开数据表tEmp。第一空(Add1)：Dimf(19)AsInteger第二空(Add2)：f(i)=f(i-1)+f(i-2)第三空(Add3)：tData=f(19)第三套窗体标题属性为系统当前日期第一空(Add):Caption=Date()第四套第一空(Add)语句写在它下面（设置窗体bTitle标签为红色文本显示）bTitle.ForeColor=255第二空(Add)语句写在它下面（预览输出）mdPntacViewPreview第五套单击刷新按钮（名为bt1），事件过程动态设置窗体记录源为查询对象qEmp，实现窗体数据按性别条件动态显示退休职工的信息；单击退出按钮（名为bt2），调用设计好的宏mEmp来关闭窗体。第一空(Add):RecordSource=qEmp第七套窗体图片文件test.bmp设置为窗体fEmp的背景。要求背景图像文件当前路径必须用CurrentProject.Path获得。第一空(Add):Picture=CurrentProject.Path+\test.bmp第八套窗体标题属性****年职工信息输出,其中****为系统当前年第一空(Add):Caption=Year(Date)&年职工信息输出第一空(Add):IfMsgBox(报表预览,vbYesNo+vbQuestion,确认)=vbYesThen第十套窗体运行后，在窗体右侧显示可以修改的用户名、密码等内容的列表，同时在窗体左侧显示列表中所指用户的信息。另外，在窗体中还有修改、保存和退出三个命令按钮，名称分别为CmdEdit、CmdSave和cmdquit。当单击修改按钮后，在窗体左侧显示出该窗体右侧光标所指用户的口令信息，同时保存按钮变为可用；在口令和确认口令文本框中输入口令信息后，单击保存按钮，若在两个文本框中输入的信息相同，则保存修改后的信息，并先将保存命令按钮变为不可用，再将除用户名外的其他文本框控件和标签控件全部隐藏，最后将用户名以只读方式显示；若在两个文本框中输入的信息不同，则显示提示框，显示内容为请重新输入口令！，提示框中只有一个确定按钮。单击窗体上的退出按钮，关闭当前窗体。第一空(Add1):CmdSave.Enabled=False第二空(Add2):tUser_1.Enabled=False第三空(Add3):MsgBox请重新输入口令！,vbOKquit第四空(Add4):DoCmd.Close关闭窗体DoCmd.Close第十二套（4）窗体中报表输出和退出按钮的功能是单击报表输出按钮（名为bt1）后，首先将退出按钮标题变为红色，然后以预览方式打开报表rEmp；单击退出按钮（名为bt2）调用宏mEmp。第一空(Add1):Caption=Year(Date)&年度报表输出字体变红:bt2控件名.ForeColor=255打开报表:DoCmd.OpenReportrEmp,acViewPreview错误处理:ErrHanle:第十三套（4）单击报表输出按钮（名为bt1），调用事件代码先设置退出按钮标题为粗体显示，然后以预览方式打开报表rEmp；单击退出按钮（名为bt2），调用设计好的宏mEmp来关闭窗体。要求窗体的系统年要两个位数的:Caption=Format(Date(),yy)&年度报表输出字体变粗:bt2.FontBold=True第十四套（4）fEmp窗体上单击输出命令按钮（名为btnP），实现以下功能：计算10000以内的素数个数及最大素数两个值，将其显示在窗体上名为tData文本框内并输出到外部文件保存。单击打开表命令按钮（名为btnQ），代码调用宏对象mEmp以打开数据表tEmp。窗体标题为标签bTitle的标题:Caption=bTitle.Caption第二空(Add2):Fori=1To10000Ifsushu(i)Thenn=n+1IfimnThenmn=iEndIfEndIfNexti代码调用宏对象mEmp以打开数据表tEmp：DoCmd.RunMacromEmp第十五套（4）在fEmp窗体上单击男性最大年龄命令按钮（名为btnP），实现以下功能。查找表对象tEmp中男性员工的最大年龄，将其输出显示在控件tData内；统计年龄在30以下（不含30）男性员工的人数，将其值写入外部文件out.dat中。单击打开员工报表命令按钮（名为btnQ），通过代码调用宏对象mEmp以打开报表rEmp。第一空(Add1):Caption=bTitle.Caption第二空(Add2):MAgeMax=rs.Fields(年龄)第三空(Add3):rs.MoveNext第四空(Add4):DoCmd.RunMacromEmp第十七套单击命令按钮bList，要求运行宏对象m1；单击事件代码已提供，请补充完整。窗体加载时，将“Tda”标签标题设置为“YYYY年雇员信息”，其中“YYYY”为系统当前年份（要求使用相关函数获取）YYYY年雇员信息:Tda.Caption=Year(Date)&年雇员信息运行宏对象m1:DoCmd.RunMacrom1第十八套（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=tStud第三处填写(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=tStud第三处填写(Add3):MsgBox查询项目和查询内容不能为空！！！,vbOKOnly,“注意”第二十一套在窗体中还有修改和保存两个命令按钮，名称分别为CmdEdit和CmdSave，其中保存命令按钮在初始状态为不可用，当单击修改按钮后，保存按钮变为可用。当单击保存按钮后，输入焦点移到修改按钮。此时，程序可以修改已有的用户相关信息，现已编写了部分VBA代码，请补充完整。第一处填写(Add1):CmdSave.Enabled=True第二处填写(Add2):DoCmd.GoToControlcmdedit第二十三套(1）打开窗体时设置窗体标题为XXXX年信息输出显示，其中XXXX为系统当前年份（要求用相关函数获取），例如，2013年信息输出。窗体打开事件代码已提供，请补充完整。(4)单击窗体“报表输出”按钮（名为“bt1”），调用事件代码实现以预览方式打开报表“rEmp”；单击“退出”按钮（名为“bt2”），调用设计好的宏“mEmp”来关闭窗体。第一处填写(Add1):Form.Caption=Year(Date())&年信息输出第二处填写(Add2):DoCmd.OpenReportrEmp,acViewPreview第二十四套在窗体中有一个”退出”命令按钮,名称为”CmdQuit”,单击该按钮，弹出提示框。提示框标题为”提示”,提示框内容为”确认退出？”,并显示问号图标；提示框中有两个按钮，分别为”是”和”否”,单击”是”按钮,关闭消息框和当前窗体,单击”否”按钮，关闭消息框.请按照VBA代码中的指示将实现此功能的代码填入指定的位置中。第一处填写(Add1):IfMsgBox(确认退出？,vbYesNo+vbQuestion,提示)=vbYesThen第二十五套（4）在窗体加载时，tPass文本框的内容以密码形式显示。窗体加载事件代码已给出，请补充完整。（5）按照以下窗体功能，补充事件代码设计。在窗体中有“用户名称”和“用户密码”两个文本框，名称分别为“tUser”和“tPass”,还有“确定”和“退出”两个命令按钮，名称分别为“cmdEnter”和“cmdQuit”。在“tUser”和“tPass”两个文本框中输入用户名称和用户密码后，单击“确定”按钮，程序将判断输入的值是否正确，如果输入的用户名称为“cueb”，用户密码为“1234”，则显示正确提示框；如果输入不正确，则提示框显示内容为“密码错误！”,同时清除“tUser”和“tPass”两个文本框中的内容，并将光标置于“tUser”文本框中,当单击窗体上的“退出”按钮后，关闭当前窗体。第一处填写(Add1):tPass.InputMask=PassWord第二处填写(Add2):Ifpass=1234Andname=cuebThen第三处填写(Add3):tUser.SetFocus第四处填写(Add4):DoCmd.Close第二十六套（3）在窗体加载事件中，实现重置窗体标题为当前年月加标签tTitle的标题内容，如2013年06月xxxx。其中，当前年月要求用函数获得，xxxx部分是标签tTitle的标题内容。（4）试根据以下窗体功能要求，对已给的事件过程进行代码补充，并运行调试。在窗体中有一个组合框控件和一个文本框控件，名称分别为CItem和TxtDetail；有两个标签控件，名称分别为Label3和Ldetail；还有三个命令按钮，名称分别为CmdList、CmdRefer和CmdClear。在CItem组合框中选择某一项目后，Ldetail标签控件将显示出所选项目名加上内容：。在TxtDetail文本框中输入具体项目值后，单击CmdRefer命令按钮，如果CItem和TxtDetail两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中没有值，显示提示框，提示框标