题目内容:
对窗体test上文本框控件txtAge中输入的学生年龄数据进行验证。要求:该文本框中只接受大于等于15小于等于30的数值数据,若输入超出范围则给出提示信息。该文本控件的BeforeUpdate事件过程代码如下,请在空白处填入适当语句,使程序可以完成指定的功能。PrivateSubtxtAge_BeforeUpdateCancelAsInteger)
IfMe!txtAge=""Or__【14】___Me!txtAge)Then
'数据为空时的验证
MsgBox"年龄不能为空!",vbCritical,"警告"
Cancel=True’取消BeforeUpdate事件
ElseIfIsNumericMe!txtAge)=FalseThen
’非数值数据输入的验证
MsgBox"年龄必须输入数值数据!",vbCritical,"警告"
Cancel=True’取消BeforeUpdate事件
ElseIfMe!txtAge<15OrMe!txtAge__【15】__Then
’非法范围数据输入的验证
MsgBox"年龄为15-30范围数据!",vbCritical,"警告"
Cancel=True’取消BeforeUpdate事件
Else’数据验证通过
MsgBox"数据验证OK!",vbInformation,"通告"
EndIf
EndSub
参考答案:
答案解析: