VB判断是否为数字
这个代码怎么写if(a不为数字)thenMsgBox"该数不为数字",,"友情提示"endif括号里面代码怎么写?那不为整数呢?...
这个代码怎么写
if (a 不为数字) then
MsgBox "该数不为数字", , "友情提示"
end if
括号里面代码怎么写?
那不为整数呢? 展开
if (a 不为数字) then
MsgBox "该数不为数字", , "友情提示"
end if
括号里面代码怎么写?
那不为整数呢? 展开
4个回答
展开全部
这个题问的不完全。首先应做这样的声明,若a是数字,那么它必是一个一位数(即只能取0-9),否则你的这个题没法解。
若a的ASCII值不在48-57间,则认为不是数字
if (Asc(a) < 48 Or Asc(a)>57) then
MsgBox "该数不为数字", , "友情提示"
end if
若判断a是否为数字:
Dim a As Object
a = 1
If (Abs(Fix(a)) < Abs(a)) Then
MsgBox(Str(a) & "不是整数")
Else
MsgBox(Str(a) & "是整数")
End If
注意的是:在使用绝对值函数abs前,要在类的前面加上这一句:
Imports System.Math
若a的ASCII值不在48-57间,则认为不是数字
if (Asc(a) < 48 Or Asc(a)>57) then
MsgBox "该数不为数字", , "友情提示"
end if
若判断a是否为数字:
Dim a As Object
a = 1
If (Abs(Fix(a)) < Abs(a)) Then
MsgBox(Str(a) & "不是整数")
Else
MsgBox(Str(a) & "是整数")
End If
注意的是:在使用绝对值函数abs前,要在类的前面加上这一句:
Imports System.Math
展开全部
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 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
忘记什么样的叫整数了!~
没有小数点的都叫整数吗?
如果可以拿小数点判断就用instr(a,",")>0 就是有小数点
MsgBox "该数不为数字", , "友情提示"
end if
忘记什么样的叫整数了!~
没有小数点的都叫整数吗?
如果可以拿小数点判断就用instr(a,",")>0 就是有小数点
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
IsNumeric 函数示例
本示例使用 IsNumeric 函数判断变量的值是否可为数值。
Dim MyVar, MyCheck
MyVar = "53" ' 指定值。
MyCheck = IsNumeric(MyVar) ' 返回 True。
MyVar = "459.95" ' 指定值。
MyCheck = IsNumeric(MyVar) ' 返回 True。
MyVar = "45 Help" ' 指定值。
MyCheck = IsNumeric(MyVar) ' 返回 False。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询