ACCES充实S代码.docVIP

第1套: 试根据以下窗体功能要求，对已给的事件过程进行代码补充，并运行调试。在“fEmp”窗体上单击“输出”命令按钮（名为“btnP”），计算满足表达式1+2+3+…+n=30000的最大n值，并将n的值显示在窗体上名为“tData”的文本框内并输出到外部文件保存 点击查看代码按钮 1.Me.caption = bTitle.Caption 2.DoCmd.RunMacro mEmp 3.n=244 注意：关闭代码窗口，切换到“窗体视图”，点击“输出”按钮。最后保存并关闭该窗体。 第2套: fEmp窗体上单击输出命令按钮（名为btnP），实现以下功能：计算Fibonacci数列第19项的值，将结果显示在窗体上名为tData的文本框内并输出到外部文件保存； Fibonacci数列： 调试完毕，必须点击输出命令按钮生成外部文件，才能得分。 点击查看代码按钮 1.Dim f(19) As Integer 2.f(i)=f(i-1)+f(i-2) 3.tData=f(19) 注意：保存窗体，切换到”窗体视图”,点击窗体上”输出”命令按钮。关闭窗体。 第3套: （3）在窗体加载事件中实现代码重置窗体标题为标签bTitle的标题内容。 （4）fEmp窗体上单击输出命令按钮（名为btnP），实现以下功能：计算10000以内的素数个数及最大素数两个值，将其显示在窗体上名为tData的文本框内并输出到外部文件保存。 点击”查看代码”按钮 2. n = 1229 mn = 9973 3.DoCmd.RunMacro mEmp 1.Me.Caption = bTitle.Caption 注意：关闭代码窗口，保存窗体，切换到”窗体视图”，点击”输出”按钮，关闭 第4套: 在窗体加载事件中，实现重置窗体标题为当前年月加标签“tTitle”的标题内容，如“2013年06月xxxx”。其中，当前年月要求用函数获得，xxxx部分是标签“tTitle”的标题内容。 在窗体中有一个组合框控件和一个文本框控件，名称分别为“CItem”和“TxtDetail”；有两个标签控件，名称分别为“Label3”和“Ldetail”；还有三个命令按钮，名称分别为“CmdList”、“CmdRefer”和“CmdClear”。在“CItem”组合框中选择某一项目后，“Ldetail”标签控件将显示出所选项目名加上“内容：”。在“TxtDetail”文本框中输入具体项目值后，单击“CmdRefer”命令按钮，如果“CItem”和“TxtDetail”两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中没有值，显示提示框，提示框标题为“注意”，提示文字为“查询项目或查询内容不能为空！！！”，提示框中只有一个“确定”按钮；单击“CmdList”命令按钮，在子窗体中显示“tStud”表中的全部记录；单击“CmdClear”命令按钮，将清空控件“cItem”和“TxtDetail”中的值。 点击”查看代码”按钮，打开代码窗口： 1.Ldetail.Caption = CItem ”内容：” 2.fDetail.Form.RecordSource = tStud 3.MsgBox 查询项目或查询内容不能为空！！！, vbOKOnly, 注意 4.Caption=Year(Date)年Month(Date)月 tTitle.Caption 第5套: 在窗体加载时，“tPass”文本框的内容以密码形式显示。 在窗体中有“用户名称”和“用户密码”两个文本框，名称分别为“tUser”和“tPass”，还有“确定”和“退出”两个命令按钮，名称分别为“cmdEnter”和“cmdQuit”。在“tUser”和“tPass”两个文本框中输入用户名称和用户密码后，单击“确定”按钮，程序将判断输入的值是否正确，如果输入的用户名称为“cueb”，用户密码为“1234”，则显示正确提示框；如果输入不正确，则提示框显示内容为“密码错误！”，同时清除“tUser”和“tPass”两个文本框中的内容，并将光标置于“tUser”文本框中。当单击窗体上的“退出”按钮后，关闭当前窗体。 2.If pass=1234 And name=cueb Then 3.tUser.SetFocus 4.DoCmd.Close 1.tPass.InputMask = PassWord 第6套: 在窗体中有一个“退出”命令按钮，名称为“CmdQuit”，单击该按钮，弹出提示框。提示框标题为“提示”，提示框内容为“确认退出？”，并显示问号图标；提示框中有两个按钮，分别为“是”和“否”，单击“是”按钮，关闭消息框和当前窗体，单击“否”按钮，关闭消息框。 点击查看代码按钮 If MsgBox(确认退出？,v