| 函数名 | 功能 |
| IsNumeric(x) | 验证x是否为数值，若返回true， 是数值 |
| IsDate(x) | 验证x是否为日期值，若返回true， 是日期或可识别的有效日期 |
| IsNull(x) | 验证x是否为无效值，若返回true，是无效值 |
| IsEmpty(x) | 验证x是否已被初始化，若返回true，未被初始化 |
| IsArray(x) | 验证x是否为数组，若返回true，是数组 |
| IsError(x) | 验证x是否为一个错误值，若返回true，有错误 |
| IsObject(x) | 验证x是否为对象变量，若返回true，是对象 |
If t1 = "" Or IsNull(t1) Then
MsgBox "不能为空!", vbCritical, "提示"
ElseIf IsNumeric(t1) = False Then
MsgBox "必须是数字!", vbCritical, "提示"
Else
MsgBox "验证通过!", vbInformation, "提示"
End If
