考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计: 在窗体加载事件中实现代码重置窗体标题为标签“bTitle”的标

admin2015-12-21  30

问题 考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计:
在窗体加载事件中实现代码重置窗体标题为标签“bTitle”的标题内容。
    (4)“fEmp”窗体上单击“输出”命令按钮(名为“btnP”),实现以下功能:计算10000以内的素数个数及最大素数两个值,将其显示在窗体上名为“tData”的文本框内并输出到外部文件保存。
    单击“打开表”命令按钮(名为“btnQ”),代码调用宏对象“mEmp”以打开数据表“tEmp”。
    试根据上述功能要求,对已给的命令按钮事件过程进行代码补充并调试运行。

选项

答案步骤1:单击【窗体设计工具-设计】功能区的【工具】分组中的“查看代码”按钮,打开“代码设计器”窗口。 在“*****Add1****”行之间输入代码: Caption=bTitle.Caption 在“*****Add2****”行之间输入代码: Dim iAs Integer n=0 For i=0 T0 10000 If sushu(i)=True Then n=n+1 ITln=i EndI f Next i 在“*****Add3****”行之间输入代码: DoCm&RnnMacro"mEmp" 步骤2:双击“窗体”面板中的“fEmp”窗体,运行窗体文件,然后单击窗体中的“输出”按钮,输出结果。 步骤3:单击快速访问工具栏中的“保存”按钮,关闭代码窗口。

解析
转载请注明原文地址:https://kaotiyun.com/show/6tgp777K
0

最新回复(0)