请在空白处填入适当的语句，使程序可以完成指定的功能。 Private Sub tx

问题：

请在空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub txtAge_BeforeUpdate(Cancel As Integer)
If Me!txtAge="" or (12) (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 (13) Then
’非法范围数据输入的验证
MsgBox"年龄为15-30范围数据!"，vbCritical，"警告"
Cancel=True ’取消BeforeUpdate事件
Else ’数据验证通过
MsgBox"数据验证OK!"，vbInformation，"通告"
End If
End Sub