End If \）提示内容（,） 并且只保留确定按钮（vbOKOnly） End Sub （,）消息框标题栏提示（ \注意\）信息
52.3（3）窗体加载事件实现的功能是显示窗体标题，显示内容为\年度报表输出\，其中四位****为系统当前年份，请补充加载事件代码，要求使用相关函数获取当前年份。
（4）窗体中\报表输出\和\退出\按钮的功能是单击\报表输出\按钮（名为\）后，首先将\退出\按钮标题变为红色（255），然后以预览方式打开报表\；单击\退出\按钮（名为\）调用宏\。 按照以上功能描述补充相关事件代码，要求考虑错误处理。 Private Sub Form_Load() '设置窗体标题
'***** Add1 *****
Caption = Year(Date) & \年度报表输出\窗体标题显示（Caption）来自（=）系统当前 '***** Add1 ***** 年份（year(date())）与(&)(“年度报表输出”)文本串连接 End Sub
Private Sub bt1_Click() On Error GoTo ErrHanle
'设置窗体\退出\命令按钮标题为红色显示 '***** Add2 *****
bt2.ForeColor =255 命令按钮（bt2）的（.）前景颜色（ForeColor）应该是（ =）红色（255） '***** Add2 ***** '预览方式输出报表rEmp '***** Add3 *****
DoCmd.OpenReport \ DoCmd . 打开报表（OpenReport） 报表 '***** Add3 ***** 的名称必须加双引号（“rEmp”）,并以预览形 '正常结束 式输出（ acViewPreview） Exit Sub '错误处理
'***** Add4 *****
ErrHanle: 错误标号（ErrHanle:）的截止位置在这里 '***** Add4 *****
MsgBox Err.Description, vbCritical + vbOKOnly, \End Sub
53套 （3）在窗体加载事件中实现代码重置窗体标题为\年度报表输出\显示，其中**为两位的当前年
显示，要求用相关函数获取。
（4）单击\报表输出\按钮（名为\），调用事件代码先设置\退出\按钮标题为粗体显示，然后以预览方式打开报表\；单击\退出\按钮（名为\），调用设计好的宏\来关闭窗体。
注意：不允许修改数据库中的表对象\和宏对象\；不允许修改窗体对象\和报表对象\中未涉及的控件和属性；已给事件过程，只允许在\与\之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。 Option Compare Database Private Sub bt2_Click() End Sub
Private Sub Form_Load() '设置窗体标题
'***** Add1 *****
Caption = Format(Date, \年度报表输出\ '***** Add1 ***** End Sub
Private Sub bt1_Click() On Error GoTo ErrHanle
'设置窗体\退出\命令按钮标题为粗体显示 '***** Add2 ***** bt2.FontBold = True '***** Add2 ***** '预览方式输出报表rEmp '***** Add3 *****
DoCmd.OpenReport \ '***** Add3 ***** '正常结束 Exit Sub
'错误处理
'***** Add4 ***** ErrHanle:
'***** Add4 *****
MsgBox Err.Description, vbCritical + vbOKOnly, \ End Sub
54套（3）在窗体加载事件中实现代码重置窗体标题为标签\的标题内容。 （4）\窗体上单击\输出\命令按钮（名为\），实现以下功能： 计算10000以内的素数个数及最大素数两个值，将其显示在窗体上名为\的文本框内并输出到外部文件保存。
单击\打开表\命令按钮（名为\），代码调用宏对象\以打开数据表\。 试根据上述功能要求，对已给的命令按钮事件过程进行代码补充并调试运行。
注意：不允许修改数据库中的表对象\和宏对象\；不允许修改窗体对象\和报表对象\中未涉及的控件和属性；只允许在\与\之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。 Option Compare Database Private Sub btnP_Click() Dim n As Integer Dim mn As Integer
'计算10000以内的素数数量，将其存放在变量n内；10000以内的最大素数，将其存放在变量mn内 '提示：可以调用下面提供的素数判断函数 '***** Add2 ***** For i = 1 To 10000 If sushu(i) Then n = n + 1
If i > mn Then mn = i End If End If Next i
'***** Add2 *****
'将素数数量及最大素数的值显示在文本框\内 Me!tData = \数量:\最大值:\ '以下是文件操作
If Dir(CurrentProject.Path & \ Kill CurrentProject.Path & \ End If
Open CurrentProject.Path & \
Print #1, n & \ Close #1 End Sub
Private Sub btnQ_Click() '代码调用宏对象\ '***** Add3 *****
DoCmd.RunMacro \ '***** Add3 ***** End Sub
Private Sub Form_Load()
'设置窗体标题为标签\的标题内容 '***** Add1 *****
Caption = bTitle.Caption '***** Add1 ***** End Sub
'判断n是否为素数的函数
Private Function sushu(ByVal n As Long) As Boolean Dim i As Long
sushu = False
For i = 2 To n - 1
If (n Mod i) = 0 Then Exit For Next i
If i = n Then sushu = True End Function
55套（3）在窗体加载事件中实现代码重置窗体标题为标签\的标题内容。 （4）\窗体上单击\输出\命令按钮（名为\），实现以下功能： 计算满足表达式1+2+3+?+n<=30000的最大n值，将n的值显示在窗体上名为\的文本框内并输出到外部文件保存。
单击\打开表\命令按钮（名为\），代码调用宏对象\以打开数据表\。 试根据上述功能要求，对已给的命令按钮事件过程进行代码补充并调试运行。
注意：不允许修改数据库中的表对象\和宏对象\；不允许修改窗体对象\和报表对象\中未涉及的控件和属性；只允许在\与\之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。 Option Compare Database Private Sub btnP_Click() Dim n As Integer
'计算1+2+3+?+n<=30000的最大n值 '***** Add2 ***** sum = 0 n = 0
Do While sum <= 30000 n = n + 1
sum = sum + n Loop
n = n - 1
'***** Add2 *****
'将n的值显示在文本框\内 Me!tData = n
'以下是文件操作
If Dir(CurrentProject.Path & \ Kill CurrentProject.Path & \ End If
Open CurrentProject.Path & \ Print #1, Me!tData Close #1
End Sub
Private Sub btnQ_Click() '代码调用宏对象\ '***** Add3 *****
DoCmd.RunMacro \ '***** Add3 ***** End Sub
Private Sub Form_Load()
'设置窗体标题为标签\的标题内容 '***** Add1 *****
Caption = bTitle. Caption '***** Add1 ***** End Sub
56套（3）在窗体加载事件中，实现重置窗体标题为标签\的标题内容。
（4）在\窗体上单击\男性最大年龄\命令按钮（名为\），实现以下功能。
查找表对象\中男性员工的最大年龄，将其输出显示在控件tData内；统计年龄在30以下（不含30）男性员工的人数，将其值写入外部文件\中。
单击\打开员工报表\命令按钮（名为\），通过代码调用宏对象\以打开报表\。 试根据上述功能要求，对已给的命令按钮事件过程进行补充和完善。
注意：不允许修改数据库中的表对象\和宏对象\；不允许修改窗体对象\和报表对象\中未涉及的控件和属性；只允许在
\与\之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。
Option Compare Database Private Sub btnP_Click() Dim k As Integer
Dim MAgeMax As Integer
Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim strSQL As String
Set cn = CurrentProject.Connection
strSQL = \性别,年龄 from tEmp where 性别='男'\
rs.Open strSQL, cn, adOpenDynamic, adLockOptimistic
MAgeMax = 0: k = 0
'查找tEmp表中男性员工的年龄最大值并统计年龄在30以下的男员工人数 Do While Not rs.EOF
If rs.Fields(\年龄\ '*****Add2*****
MAgeMax = rs.Fields(\年龄\ '*****Add2***** End If
'统计30岁以下男员工人数
If rs.Fields(\年龄\ k = k + 1 End If
'记录集遍历
'*****Add3***** rs.MoveNext
'*****Add3***** Loop
rs.Close
Set rs = Nothing
'将男性员工最大年龄值显示在文本框\内 Me!tData = \最大年龄:\ '以下是文件操作保存n值
If Dir(CurrentProject.Path & \ Kill CurrentProject.Path & \ End If
Open CurrentProject.Path & \ Print #1, k Close #1 End Sub
Private Sub btnQ_Click() '代码调用宏对象\ '*****Add4*****
DoCmd.RunMacro \ '*****Add4***** End Sub
Private Sub Form_Load()
'设置窗体标题为标签\的标题内容 '*****Add1*****
Caption = bTitle.Caption '*****Add1***** End Sub
57套（3）在窗体加载事件中，实现重置窗体标题为标签\的标题内容。 （4）试根据以下窗体功能要求，对已给的事件过程进行代码补充，并运行调试。
在窗体中有一个组合框控件和一个文本框控件，名称分别为\和\；有两个标签控件，名称分别为\和\；还有三个命令按钮，名称分别为\、\和\。
在\组合框中选择某一项目后，\标签控件将显示出所选项目名加上\内容：\。在
\文本框中输入具体项目值后，单击\命令按钮，如果\和\两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中没有值，显示提示框，提示框标题为\注意\，提示文字为\查询项目或查询内容不能为空！！！\，提示框中只有一个\确定\按钮；单击\命令按钮，在子窗体中显示\表中的全部记录；单击\命令按钮，将清空控件\和\中的值。
注意：不允许修改窗体对象\和子窗体对象\中未涉及的控件、属性和任何VBA代码；不允许修改报表对象\中已有的控件和属性；不允许修改表对象\和查询对象\。只允许在\与\之间的空行内补充一条代码语句、完成设计，不允许增删和修改其它位置已存在的语句。
Option Compare Database
Private Sub cItem_AfterUpdate()
'将标签显示内容设置为所选项目名加上\内容:\
'************************* Add1 ************************* Ldetail.Caption = CItem & \内容:\
'************************* Add1 ************************* Me.Refresh End Sub Private Sub CmdClear_Click() [TxtDetail] = \ [CItem] = \End Sub
Private Sub CmdList_Click() '显示全部记录
'************************* Add2 ************************* fDetail.Form.RecordSource = \
'************************* Add2 ************************* End Sub
Private Sub CmdRefer_Click()
If Trim(Me![TxtDetail]) <> \
fDetail.Form.RecordSource = \& Me![TxtDetail] & \ Else
'设置提示框
'************************* Add3 *************************
MsgBox \查询项目或查询内容不能为空！！！\注意\'************************* Add3 ************************* End If End Sub
Private Sub Form_Load() '设置窗体标题
'************************* Add4 ************************ Caption = tTitle.Caption
'************************* Add4 ************************ End Sub
Private Sub 主体_Click() End Sub