问题 填空题

对窗体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

答案

参考答案:(14) ISNULL (15)>30

解析:
本题考查的是VBA编程基础。在本题中,通过程序给出的中文提示内容和注释,判断出每段程序的判断过程。首先,通过语句“MsgBox”年龄不能为空!”,vbcritical,”警告””可知,第一个If语句是判断文本框中的内容是否为空值,若是空值则给出提示信息“年龄不能为空!”,这里的If语句使用两种方法来判断,第一种是Me!txtAge=" ",第二种则需要使用ISNULL()函数来判断文本框内容是否为空,所以(14)空填ISNuLL。
语句“Else If IsNumeric(Me!txtAge)=False”是表示判断文本框中的数据是否为数值型,这里没有需要填写的内容。然后,通过注释“非法范围数据输入的验证”和语句“MsgBox”年龄为15-30范围数据!”,vbCritical,”警告””可知,第三个条件语句是判断该文本框中的数据是否是≥15且≤30的数值数据,由于是判断填入的数据是否为非法范围输入,就是判断数据是否<15或>30,所以用语句“Else If Me!txtAge<15 or Me!txtAge>30 Then”来实现,所以(15)空填“>30”。

单项选择题
单项选择题