（ 13 ） 对窗体 test 上文本框控件 txtAge 中输入的学生年龄数据进行验证 。 要求 ： 该文本框中只接受大于等于 15 且小于等于 3 。的数值数据，若输入超出范围则给出提示信息。该文本控件的 BeforeUpdate 事件过程代码如下，请在空白处填入适当的语句，使程序可以完成指定的功能。Private Sub txtAge_ BeforeUpdate （ Cancel As Integer ）If Me!txtAge= “” Or 【 14 】（ Me!txtAge ） Then’ 数据

（ 13 ） 对窗体 test 上文本框控件 txtAge 中输入的学生年龄数据进行验证 。 要求 ： 该文本框中只接受大于等于 15 且小于等于 3 。的数值数据，若输入超出范围则给出提示信息。该文本控件的 BeforeUpdate 事件过程代码如下，请在空白处填入适当的语句，使程序可以完成指定的功能。

Private Sub txtAge_ BeforeUpdate （ Cancel As Integer ）

If Me!txtAge= “” Or 【 14 】（ Me!txtAge ） Then

’ 数据为空时的验证

MsgBox “ 年龄不能为空！ ” ， vbCritical ， “ 警告 ”

Cancel=True ’ 取消 BeforeUpdate 事件

ElseIf IsNumeric （ Me!txtAge ） =False Then

’ 非数值数据输入的验证

MsgBox “ 年龄必须输入数值数据！ ” vbCritical, “ 警告 ”

Cancel=True ‘ 取消 BeforeUpdate 事件

ElseIf Me!txtAge<15 Or Me!txtAge 【 15 】 Then

’ 非法范围数据输入的验证

MsgBox “ 年龄为 15 一 30 范围数据！ ” ， vbCritical, “ 警告 ”

Cancel= True ’ 取消 BeforeUpdate 事件

Else ’ 数据验证通过

MsgBox “ 数据验证 .K! ” ， vbInformation, “ 通告 ”

End If

End Sub