Me!用户名_1 & \
DoCmd.RunSQL (\口令='\口令_1 & \用户名='\用户名_1 & \
DoCmd.RunSQL (\备注='\备注_1 & \用户名='\用户名_1 & \
Forms!fEdit.Refresh
DoCmd.GoToControl \ CmdSave.Enabled = False Me!用户名_1 = Me!用户名 Me!口令_1 = Me!口令 Me!备注_1 = Me!备注 Me!tEnter = \
Me!用户名_1.Enabled = False Me!口令_1.Visible = False Me!备注_1.Visible = False Me!tEnter.Visible = False Me!Lremark.Visible = False Else
'*************************Add*************************'
MsgBox “请重新输入口令！” 消息框（MsgBox）的固定格式：MsgBox “要提示的消息内容” '*************************Add*************************'注意：提示的内容中有标点符号一定要打 End If 上，而且是在输入法状态输入。MsgBox End Sub 后边接的是双引号“” Private Sub Form_Load() Me!用户名_1 = Me!用户名 Me!口令_1 = Me!口令 Me!备注_1 = Me!备注 End Sub
31.3 .（4）试根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善。在\窗体上单击\输出\命令按钮（名为\），弹出一输入对话框，其提示文本为\请输入大于0的整数值\。 输入 1 时，相关代码关闭窗体（或程序）；
输入 2 时，相关代码实现预览输出报表对象\；
输入 >=3 时，相关代码调用宏对象\以打开数据表\。 注意：不允许修改数据库中的宏对象\；不允许修改窗体对象\和报表对象\中未涉及的控件和属性；不允许修改表对象\中未涉及的字段和属性；已给事件过程，只允许在\与\之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。 本题相关知识点：DoCmd.OpenReport 打开报表 ；InputBox 输入框 Private Sub btnP_Click() Dim k As String '*****Add1*****
K=InputBox(“请输入大于0的整数值” ) 输入框（InputBox）的固定格式：要输入的内容=inputbox(“提 '*****Add1***** 示内容”)注意：提示的内容中有标点符号一定要打上，而且是 If k = \在输入法状态输入。InputBox后边接的是小括号里包含双引 Select Case Val(k) 号。（“”） Case Is >= 3
DoCmd.RunMacro \ Case 2
'*****Add2*****
DoCmd.OpenReport “rEmp”,acViewPreview DoCmd.对象 （DoCmd .）打开报表（OpenReport）
'*****Add2***** 报表名称必须加双引号（“rEmp”） ，并以预 Case 1 览（acViewPreview）方式输出。 DoCmd.Close End Select End Sub
32.3.（4）试根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善。在\窗体上单击\输出\命令按钮（名为\），弹出一输入对话框，其提示文本为\请输入大于0的整数值\。 输入 1 时，相关代码关闭窗体（或程序）；
输入 2 时，相关代码实现预览输出报表对象\；
输入 >=3 时，相关代码调用宏对象\以打开数据表\。 注意：不允许修改数据库中的宏对象\；不允许修改窗体对象\和报表对象\中未涉及的控件和属性；不允许修改表对象\中未涉及的字段和属性；已给事件过程，只允许在\与\之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。 本题相关知识点：Case语句是依次测试的，并执行第一个符合Case条件的相关的程序代码后，即使再有其他符合条件的分支也不会再执行，然后程序继续向下执行，即从接在End Select终止语句的下一行程序继续执行下去。；ADOrs .EOF=False 记录集没有结束的表达式 Private Sub btnP_Click() Dim k As String
k = InputBox(\请输入大于0的整数值\If k = \Select Case Val(k) '*****Add1*****
Case Is >=3 如果输入的整数值满足于>=3这个条件 执行下边语句。 '*****Add1*****
DoCmd.RunMacro \ Case 2
'*****Add2*****
DoCmd.OpenReport “rEmp”,acViewPreview DoCmd.对象 （DoCmd .）打开报表
'*****Add2***** 报表名称必须加双引号（“rEmp”） ，并以预 Case 1 览（acViewPreview）方式输出。 DoCmd.Close End Select End Sub
33.3 .（4）按照以下窗体功能，补充事件代码设计。
在窗体的四个文本框内输入合法的职工信息后，单击\追加\按钮（名为bt1），程序首先判断职工编号是否重复，如果不重复则向表对象\中添加职工纪录，否则出现提示；当点击窗体上的\退出\按钮（名为bt2）时，关闭当前窗体。 注意：不允许修改表对象\中未涉及的结构和数据；不允许修改窗体对象\中未涉及的控件和属性；代码设计只允许在\与\之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。
本题相关知识点：ADOrs .EOF=False 记录集没有结束的表达式 Private Sub bt1_Click()
Dim ADOcn As New ADODB.Connection Dim ADOrs As New ADODB.Recordset Dim strDB As String '建立连接
Set ADOcn = CurrentProject.Connection ADOrs.ActiveConnection = ADOcn
ADOrs.Open \编号 From tEmp Where 编号='\adLockReadOnly
'*****Add1*****
If ADOrs .EOF=False Then 如果（If）记录集（ADOrs .）文件结束（EOF）=没有结束 '*****Add1***** （False） 那么（Then） 执行下列的语句 MsgBox \该编号已存在，不能追加！\ Else
strSQL = \编号,姓名,性别,年龄)\
strSQL = strSQL + \ ADOcn.Execute strSQL
MsgBox \添加成功，请继续！\ End If
ADOrs.Close ADOcn.Close
Set ADOrs = Nothing Set ADOcn = Nothing End Sub
Private Sub bt2_Click() '*****Add2*****
DoCmd .Close 关闭窗体（DoCmd .Close） '*****Add2***** End Sub 35.3 .（4）\窗体上单击\输出\命令按钮（名为\），实现以下功能：计算Fibonacci数列第19项的值，将结果显示在窗体上名为\的文本框内并输出到外部文件保存；单击\打开表\命令按钮（名为\），调用宏对象\以打开数据表\。 Fibonacci数列：
调试完毕，必须点击\输出\命令按钮生成外部文件，才能得分。
试根据上述功能要求，对已给的命令按钮事件过程进行补充和完善。 注意：不允许修改数据库中的宏对象\；不允许修改窗体对象\和报表对象\中未涉及的控件和属性；不允许修改表对象\中未涉及的字段和属性；已给事件过程，只允许在\与\之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。 本题相关知识点：Dim f(19) As Integer 定义数列的第十九项值是整型 Private Sub btnP_Click() Dim i As Integer Dim s As Integer '*****Add1*****
Dim f(19) As Integer 定义（（Dim ）数列第十九项的数值（ f(19)） 是（ As） 整型 （Integer） '*****Add1***** f(1) = 1: f(2) = 1 For i = 3 To 19
'*****Add2*****
f(i) = f(i-1) + f(i-2)） 按题中的公式Fn=Fn-1+Fn-2得出：（ f(i) = f(i-1) + f(i-2)）） '*****Add2***** Next i
'数据输出到文本框内 '*****Add3*****
tData = f(19) 文本框（tData）里显示的值 = 数列第19项的值（f(19)） '*****Add3***** '以下是文件操作
If Dir(CurrentProject.Path & \ Kill CurrentProject.Path & \ End If
Open CurrentProject.Path & \ Print #1, Me!tData Close #1 End Sub
36.3.（5）窗体加载时设置窗体标题属性为系统当前日期。窗体\加载\事件代码已提供，请补充完整。 注意：不允许修改窗体对象\中未涉及的控件和属性；不允许修改表对象\、\和\及查询对象\；不允许修改报表对象\的控件和属性。程序代码只允许在\与\之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。
本题相关知识点： 在VBA代码编程里，Date()后面的()会自动省略，变成Date 也是系统当前日期的意思 Private Sub Form_Load() '设置窗体标题为当前日期 '*****Add*****
Caption=Date 窗体的标题显示（Caption）=当前系统日期（Date） '*****Add***** End Sub 37.3.（3）在窗体\的\加载\事件中设置标签\以红色文本显示；单击\预览\按钮（名为\）或\打印\按钮（名为\），事件过程传递参数调用同一个用户自定义代码（mdPnt）过程，实现报表预览或打印输出；单击\退出\按钮（名为\），调用设计好的宏\来关闭窗体。
注意：不允许修改数据库中的表对象\和宏对象\；不允许修改窗体对象\和报表对象\中未涉及的控件和属性。程序代码只允许在\与\之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。 本题相关知识点：mdPnt是题中给出的用户自定义代码 Private Sub Form_Load()
'设置bTitle标签为红色文本显示 '*****Add1*****\
bTitle.ForeColor = 255 标签（bTitle）. 文字的显示前景颜色（ForeColor） = 红色代 '*****Add1*****\ 码（255） End Sub '预览输出
Private Sub bt1_Click() '*****Add2*****\
mdPnt ,acViewPreview 用户自定义代码（mdPnt）.并以预览（mdPnt acViewPreview） '*****Add2*****\ 形式输出 End Sub '打印输出
Private Sub bt2_Click() mdPnt acViewNormal End Sub '输出过程
Private Sub mdPnt(flag As Integer) '按照参数条件输出
DoCmd.OpenReport \End Sub
38.3.（4）单击\刷新\按钮（名为\），事件过程动态设置窗体记录源为查询对象\，实现窗体数据按性别条件动态显示退休职工的信息；单击\退出\按钮（名为\），调用设计好的宏\来关闭窗体。 注意：不允许修改数据库中的表对象\和宏对象\；不允许修改查询对象\中未涉及的属性和内容；不允许修改窗体对象\中未涉及的控件和属性。程序代码只允许在\与\之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。 本题相关知识点： RecordSource 记录源 Private Sub bt1_Click()
'动态设置窗体记录源属性 '*****
RecordSource = “qEmp” 记录源（RecordSource）来自于=查询对象名称（注意必须加 '***** 双引号）（“qEmp”） '刷新窗体 Me.Requery End Sub
40.3.（5）在\窗体页眉\中距左边0.5厘米，上边0.3厘米处添加一个标签控件，控件名称为\，标题为\系统日期\。窗体加载时，将添加标签标题设置为系统当前日期。窗体\加载\事件已提供，请补充完整。 注意：不允许修改窗体对象\中未涉及的控件和属性；不允许修改表对象\和宏对象\。程序代码只允许在\与\之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。
本题相关知识点：Caption 显示标题 ； DoCmd.RunMacro “m1” 运行名字为m1的宏 Private Sub 命令17_Click()
On Error GoTo Err_命令17_Click
Screen.PreviousControl.SetFocus DoCmd.FindNext Exit_命令17_Click: Exit Sub
Err_命令17_Click:
MsgBox Err.Description Resume Exit_命令17_Click End Sub
Private Sub bList_Click() '设置代码执行宏 '*****Add2*****
DoCmd.RunMacro “m1” 调用已经设计好的宏命令：DoCmd.对象（DoCmd .）调用宏命令 '*****Add2***** （RunMacro）宏名必须加双引号（ “m1”）） End Sub
Private Sub Form_Load() '设置标签标题为系统日期 '*****Add1*****
Tda.Caption = Date 标签（Tda）. 显示标题（Caption） = 当前系统日期（Date） '*****Add1***** End Sub
41.3.（4）窗体加载时将考生文件夹下的图片文件\设置为窗体\的背景。窗体\加载\事件代码已提供，请补充完整。要求背景图像文件当前路径必须用CurrentProject.Path获得。