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

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

admin2019-01-09  15
问题 考生文件夹下存在一个数据库文件“samp3．accdb“，里面已经设计了表对象“tEmp"、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计：
在窗体加载事件中实现代码重置窗体标题为标签“bTit1e”的标题内容。
“fEmp”窗体上单击“输出”命令按钮（名为“btnP”），实现以下功能：计算10000以内的素数个数及最大素数两个值，将其显示在窗体上名为“tData”的文本框内并输出到外部文件保存。
    单击“打开表”命令按钮（名为“btnQ”），代码调用宏对象“mEmp”以打开数据表“tEmp”。
    试根据上述功能要求，对已给的命令按钮事件过程进行代码补充并调试运行。
    注意：不允许修改数据库中的表对象“tEmp”和宏对象“mEmp”；不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性；只允许在“*****Add*****”与“****Add******”之间的空行内补充语句、完成设计，不允许增删和修改其他位置已存在的语句。
选项
答案步骤1：单击【窗体设计工具一设计】功能区的【工具】分组中的“查看代码”按钮，打开“代码设计器”窗口， 在“*****Add1*****”行之间输入代码： Caption=bTit1e．Caption 在“*****Add2****”行之间输入代码： Dim i As Integer n=0 For i=0 TO 10000 If sushu(i)=True Then n=n+1 mn=i End If Next i 在“*****Add3****”行之间输入代码： DoCmd．RunMacro"mEmp" 步骤2：双击“窗体”面板中的“fEmp”窗体，运行窗体文件，然后单击窗体中的“输出”按钮，输出结果。 步骤3：单击快速访问工具栏中的“保存”按钮，关闭代码窗口。
解析 报表字段排序、组页眉设置、标签控件属性的设置；窗体中命令按钮控件属性的设置；VBA编程。
转载请注明原文地址:https://www.kaotiyun.com/show/ClMp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)