Question

VB中如何判断一个字符串是否为纯数字

Answer 1

用下面函数即可判断
=IsNumeric(需要判断的字符串)

关于此例中IsNumeric的相关知识：
IsNumeric 函数 返回 Boolean 值，指出表达式的运算结果是否为数。语法IsNumeric(expression)
必要的 expression 参数是一个 Variant，包含数值表达式或字符串表达式。说明如果整个 expression 的运算结果为数字，则 IsNumeric 返回 True；否则返回 False。如果 expression 是日期表达式，则 IsNumeric 返回 False。
使用该函数时候应该注意这样一些问题：
举例：
"123"
"123.1"
"123,,,,111.222,,,333"
"123，，，1.22，，，3"
"123e+9"
"123d-8"
以上返回的都是True
第1、2条很正常，
第三条有西文的","，可以理解：外国人习惯把数字隔3个加个逗号。
第四条中文的"，"也可以，可要注意：
cint("12,,3")可以得到123
cint("12，，3")就出错了
第四第五条，里面有"e","d","+","-",应该不是数字，但是这里是科学计数法。所以当是数字。

Answer 2

如果允许小数点或科学记数法的话,可以用IsNumeric()函数来判断,如果只能是数字的话,可以用如下语句:
str = "123.123"
t = str & vbCr
For i = 0 to 9
t = Replace(t, CStr(i), "")
Next
If t = vbCr Then
'是纯数字字符串
Else
'不是纯数字字符串
End If
追加vbCr是为了防止将空字符串也认为是纯数字字符串.
如果还有问题欢迎追问,问题解决请及时选为满意回答,谢谢.

Answer 3

dim a as stringa=inputbox("输入字符串")if isnumberic(a) then msgbox "a是纯数字"

Answer 4

Private Sub Command1_Click()
a = InputBox("")
For i = 1 To Len(a)
If Mid(a, i, 1) < "0" Or Mid(a, i, 1) > "9" Then Exit For
Next
If i > Len(a) Then
MsgBox a & "是纯数字"
Else
MsgBox a & "不是纯数字"
End If
End Sub

Answer 5

if IsNumeric(str) then '是数字