网友您好, 请在下方输入框内输入要搜索的题目:
( 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
参考答案