填空题
对窗体test上文本框控件txtAge中输入的学生年龄数据进行验证。要求：该文本框中只接受大于等于15且小于等于30的数值数据，若输入超出范围则给出提示信息。该文本控件的BeforeUpdate事件过程代码如下，请在空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub txtAge_BeforeUpdate(Cancel As Integer)
IfMe!txtAge=""or{{U}} 【14】 {{/U}} (Me!txtAge)Then
'数据为空时的验证
MsgBox"年龄不能为空!",vbCritical,"警告"
Cancel=Tree '取消BeforeUbdate事件
ElseIf IsNumeric(Me!txtAge)=False Then
'非数值数据输入的验证
MsgBox"年龄必须输入数值数据!", vbCritical,"警告"
Cancel=True '取消BeforeUpdate事件
ElseIf Me!txtAge＜15 Or Me!txtAge{{U}} 【15】 {{/U}}Then
'非法范围数据输入的验证
MsgBox"年龄为15-30范围数据!",vbCriticat,"警告"
Cancel=True '取消BeforeUpdate事件
Else '数据验证通过
MsgBox"数据验证OK!",vbInformation,"通告"
End If
End Sub
1、
【正确答案】
1、[14]ISNULL
【答案解析】[15]＞30
[知识点] VBA程序设计基础
[评析] 在本题中，我们可以通过程序给出的中文提示内容和注释判断出每段程序的判断过程，下面就来分析一下该程序。首先，通过语句“MsgBox"年龄不能为空!"，vbCritical，"警告"”可知，第一个If语句是判断文本框中的内容是否为空值，若是空值则给出提示信息“年龄不能为空!”，这里的If语句使用两种方法来判断，第一种是“Me!txtAge=""”，第二种则需要使用“ISNULL”函数来判断文本框内容是否为空，所以第14空填“ISNULL”。语句“ElseIf IsNumeric(Me!txtAge)=False”是表示判断文本框中的数据是否为数值型，这里没有需要填写的内容。然后，通过注释“'非法范围数据输入的验证”和语句“MsgBox"年龄为15-30范围数据!"，vbCritical，"警告"”可知，第三个条件语句是判断该文本框中的数据是否是大于等于15且小于等于30的数值数据，由于是判断填入的数据是否为非法范围输入，就是判断数据是否小于15或大于30，所以用语句“ElseIf Me!txtAge＜15 or Me!txtAge＞30 Then”来实现，所以第15空填“＞30”。