模拟操作题之第八章模块

模拟操作题之第八章模块
1．关闭“fStudent”窗体（第五套）
DoCmd.Close
2．补充窗体“fTest”上“test1”按钮（名为“bt1”）的单击事件代码，实现以下功能：打开窗体，在文本框“tText”中输入一段文字，然后单击窗体“fTest”上“test1”按钮（名为“bt1”），补充代码设置窗体上标签“bTitle”的标题为文本框“tText”输入内容与文本串“等级考试测试”的连接并消除连接串的前导和尾随空白字符。

（6套2.3）
bTitle.Caption=Trim(me!tText+"等级考试测试")
注意：1.me表示当前窗体，2. Trim是字符函数
3．补充窗体“fTest”上“test1”按钮（名为“bt1”）的单击事件代码，实现以下功能：
打开窗体，在文本框“tText”中输入一段文字，然后单击窗体“fTest”上“test1”按钮（名为“bt1”），程序实现将文本框内容作为窗体上的标签“bTitle”的标题显示。

（31套2.3）
bTitle.Caption＝tText
4．在“fEmp”窗体上单击“输出”命令按钮（名为“btnP”），实现以下功能:计算Fibonacci数列第19项的值，将结果显示在窗体上名为“tData”的文本框内并输出到外部文件保存；单击“打开表”命令按钮（名为“btnQ”），调用宏对象“mEmp”以打开数据表“tEmp”。

Fibonacci数列：
调试完毕，必须单击“输出”命令按钮生成外部文件，才能得分。

（8套3.4）
*****Add1*****
Dim f(19) As Integer
*****Add1*****
*****Add2*****
f(i)=f(i-1)+f(i-2)
*****Add2*****
*****Add3*****
tData=f(19)
*****Add3*****
5．试根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善。

在“fEmp”窗体上单击“输出”命令按钮（名为“btnP”）,弹出一输入对话框，其提示文本为“请输入大于0的整数值”。

输入1时，相关代码关闭窗体（或程序）；
输入2时，相关代码实现预览输出报表对象“rEmp”；
输入>=3时，相关代码调用宏对象“mEmp”以打开数据表“tEmp”。

（10套3.4）
*****Add1*****
k=InputBox（"请输入大于0的整数"）
*****Add1*****
*****Add2*****
DoCmd.OpenReport "rEmp",acViewPreview
*****Add2*****
6．试根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善。

在“fEmp”窗体上单击“输出”命令按钮（名为“btnP”），弹出一输入对话框，其提示文本为“请输入大于0的整数值”。

输入1时，相关代码关闭窗体（或程序）；
输入2时，相关代码实现预览输出报表对象“rEmp”；
输入>=3时，相关代码调用宏对象“mEmp”以打开数据表“tEmp”。

*****Add1*****
Case Is>=3
*****Add1*****
*****Add2*****
DoCmd.OpenReport "rEmp",acViewPreview
*****Add2*****
注意：和10套是同一题的不同部分。

7．在窗体中还有“修改”和“保存”两个命令按钮，名称分别为“CmdEdit”和“CmdSave”，其中“保存”命令按钮在初始状态为不可用，当单击“修改”按钮后，“保存”按钮变为可用。

现已编写了部分VBA代码，请按照上述功能要求将VBA代码补充完整。

（13套3.5）
CmdSave.Enabled=True
8．单击“刷新”按钮（名为“bt1”），在事件过程中补充语句，动态设置窗体记录源为查询对象“qEmp”，实现窗体数据按性别条件动态显示退休职工的信息；单击“退出”按钮（名为“bt2”），调用设计好的宏“mEmp”来关闭窗体。

（21套3.4）
Form.RecordSource＝"qEmp"
9．在窗体对象“fEmp”上有“刷新”和“退出”两个命令按钮，名称分别为“bt1”和“bt2”。

单击“刷新”按钮，窗体记录源改为查询对象“qEmp”；单击“退出”按钮，关闭窗体。

现已编写了部分VBA代码，请按VBA代码中的指示将代码补充完整。

（41套3.4）
步骤1：右键单击命令按钮“刷新”选择【事件生成器】，在空行内输入代码：
*****Add1*****
Form.RecordSource="qEmp"
*****Add1*****
步骤2：关闭界面。

步骤3：右键单击命令按钮“退出”选择【事件生成器】，在空行内输入代码
*****Add2*****
DoCmd.Close
*****Add2*****
步骤4：关闭界面。

单击工具栏中“保存”按钮，关闭设计视图。

10．在窗体中有一个“显示全部记录”命令按钮（名称为bList），单击该按钮后，应实现将“tStudent”表中的全部记录显示出来的功能。

现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。

要求：修改后运行该窗体，并查看修改结果。

（29套3.5）
步骤1：右键单击“显示全部记录”命令按钮选择【事件生成器】。

步骤2：在空行内输入代码：
***请在下面双引号内添入适当的SELECT语句***
BBB.Form.RecordSource＝"select * from tStudent"
*******************
步骤3：关闭界面。

步骤4：单击工具栏中“保存”按钮，关闭设计视图。

步骤5：双击窗体“fQuery”,单击“显示全部记录”按钮，查看该窗体运行结果。

11．在窗体的四个文本框内输入合法的职工信息后，单击“追加”按钮（名为bt1），程序首先判断职工编号是否重复，如果不重复则向表对象“tEmp”中添加职工纪录，否则出现提示；当单击窗体上的“退出”按钮（名为bt2）时，关闭当前窗体。

（22套3.4）
步骤1：右键单击命令按钮“追加”选择【事件生成器】，在空行输入代码：
*****Add1*****
If Not ADOrs.EOF Then
*****Add1*****
步骤2：关闭界面。

步骤3：右键单击命令按钮“退出”选择【事件生成器】，在空行输入代码：
*****Add2*****
DoCmd.Close
*****Add2*****
步骤4：关闭界面。

单击工具栏中“保存”按钮，关闭设计视图。

12．在窗体中还有“修改”和“保存”两个命令按钮，名称分别为“CmdEdit”和“CmdSave”，其中“保存”命令按钮在初始状态为不可用，当单击“修改”按钮后，“保存”按钮变为可用，同时在窗体的左侧显示出相应的信息和可修改的信息。

如果在“口令”文本框中输入的内容与在“确认口令”文本框中输入的内容不相符，当单击“保存”按钮后，屏幕上应弹出如下图所示的提示框。

现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。

（30套3.5）
MsgBox“请重新输入口令！”,vbOKquit
注意：英文标点符号
13．按照以下窗体功能，补充事件代码设计。

窗体功能：打开窗体、单击“计算”按钮（名为bt），事件过程使用ADO数据库技术计算出表对象“tEmp”中党员职工的平均年龄，然后将结果显示在窗体的文本框“tAge”内并写入外部文件中。

（36套3.4）步骤1：选中“窗体”对象，右键单击“fEmp”选择【设计视图】。

步骤2：右键单击命令按钮“计算”选择【事件生成器】，在空行内输入代码：
*****Add1******
If rs.Eof Then
*****Add1******
*****Add2******
tAge=sage
*****Add2******
步骤3：关闭界面，单击工具栏中“保存”按钮。

步骤4：单击菜单栏【视图】|【窗体视图】，单击“计算”命令按钮，生成外部文件。

14．窗体加载时将考生文件夹下的图片文件“test.bmp”设置为窗体“fEmp”的背景。

窗体“加载”事件的部分代码已提供，请补充完整,要求背景图片文件当前路径必须用CurrentProject.Path获得。

（50套3.4）Form.Picture＝CurrentProject.Path&“\\test.bmp”。