对窗体Test上文本框控件txtAge中输人的学生年龄数据进行验证。要求:该文本框中只接受大于等于15且小于等于30的数值数据,若输入超出范围则给出提示信息。该文本控件的BeforeUpdate事件过程代码如下,请在空白处填入适当的语句,使程序可以完成指定的功能。 Private Sub txtAge_BeforeUpdate(Cancel As Integer) If Me!txtAge=" "Or (14) (Me!txtAge)Then ’数据为空时的验证 MegBox"年龄不能为空!",vbCritical,"警告" Cancel=Ture ’取消BeforeUpdate事件 Else If IsNumeric(Me!txtAge)=False Then ’非数值数据输入的验证 MsgBox"年龄必须输入数值数据!",vbCritical,"警告" Cancel=True ’取消BeforeUpdate事件 Else If Me!txtAge<15 Or Me! txtAge (15) Then ’非法范围数据输入的验证 MsgBox"年龄为15-30范围数据!",vbCritical,"警告" Cancel=True Else MsgBox"数据验证OK!",vblnformation,"通告" End If End Sub