考生文件夹下存在一个数据库文件“samp3.mdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计。
在“fEmp”窗体上单击“输出”命令按钮(名为“btnP”),实现以下功能。
计算10000以内的素数个数及最大素数,将其显示在窗体上名为“tData”的文本框内并输出到外部文件保存。
单击“打开表”命令按钮(名为“btnQ”),代码调用宏对象“mEmp”以打开数据表“tEmp”。
试根据上述功能要求,对已给的命令按钮事件过程补充代码并调试运行。
注意:不允许修改数据库中的表对象“tEmp”和宏对象“mEmp”;不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性。
只允许在“*****Add*****”与“*****Add*****”之间的空行内补充语句,完成设计,不允许增删和修改其他位置已存在的语句。
参考答案:[微步骤]
步骤1:选中窗体设计视图中的“输出”按钮,右击选择“属性”命令。
步骤2:单击“事件”行对应右侧的“...”按钮。
计算10000以内的素数个数及最大素数两个值的语句为:
For i=2 To 10000
If sushu(i) Then
n=n+1
If i>mn Then
mn=i
End If
End If
Next i
步骤3:代码调用“mEmp”宏对象对应的语句为:DoCmd.RunMacro "mEmp"。
步骤4:保存并运行该窗体。
解析: 本题关键字有:窗体、报表的设计和VBA的数据库编程。