2016代码.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的文本框内并输出