Question

VB判断是否为数字

这个代码怎么写

if (a 不为数字) then
MsgBox "该数不为数字", , "友情提示"
end if

括号里面代码怎么写?
那不为整数呢?

Answer 1

这个题问的不完全。首先应做这样的声明，若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

Answer 2

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

Answer 3

if isnumeric(a)=false then
MsgBox "该数不为数字", , "友情提示"
end if

忘记什么样的叫整数了！~

没有小数点的都叫整数吗？

如果可以拿小数点判断就用instr(a,",")>0 就是有小数点

Answer 4

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。