if (a 不为数字) then
应该为
If Not IsNumeric(a) Then
或
If IsNumeric(a) = False Then
判断a是否为整数
If Int(a) <> a Then
MsgBox Str(a) & "不是整数"
Else
MsgBox Str(a) & "是整数"
End If
if isnumeric(a)=false then
MsgBox "该数不为数字", , "友情提示"
end if
忘记什么样的叫整数了！~
没有小数点的都叫整数吗?
0 就是有小数点
If IsNumeric(Text1.Text) = True Then
MsgBox "纯数字"
MsgBox "非纯数字"
IsNumeric 函数示例
本示例使用 IsNumeric 函数判断变量的值是否可为数值。
Dim MyVar, MyCheck
MyVar = "53" ' 指定值。
MyCheck = IsNumeric(MyVar) ' 返回 True。
MyVar = "459.95" ' 指定值。
MyVar = "45 Help" ' 指定值。
MyCheck = IsNumeric(MyVar) ' 返回 False。
If IsNumeric(Text1.Text) = True Then MsgBox "纯数字"Else MsgBox "非纯数字"End If。
以上就是土嘎嘎小编大虾米为大家整理的vb判断是否为数字_VB怎么判断一个数是否是整数相关主题介绍,如果您觉得小编更新的文章对您有所帮助，不要忘记讲本站分享给您身边的朋友哦！！