vb中有没有计算有效数字的个数的函数啊，好像没有啊。请大侠帮忙解决一下，返回一个数字的有效数字个数。

Answer 1

Private Sub Command1_Click()
Dim k As String, Ws As Integer, Sz As String
k = InputBox("要计算那个数的有效数字？")
If k > 0 Then
Yxsz k, Ws, Sz
Print k & "的有效数字包括为：" & Sz & "，共" & Ws & "位。"
End If
End Sub

Private Sub Yxsz(Ys As String, Yxszws As Integer, Yxszzf As String)
Dim IntWs As Integer, I As Integer, J As Integer
IntWs = Len(Ys)
For I = 1 To IntWs
If Mid(Ys, I, 1) <> "0" And Mid(Ys, I, 1) <> "." Then
Yxszws = IntWs - I + 1
Yxszzf = Mid(Ys, I)
Exit For
End If
Next I
J = InStr(I, Ys, ".")
If J > 0 Then
Yxszws = Yxszws - 1
Yxszzf = Mid(Ys, I, J + I - 2) & Mid(Ys, I + J)
End If
End Sub

Answer 2

msgbox IsNumeric(0.15)

IsNumeric 函数

返回 Boolean 值，指出表达式的运算结果是否为数。

语法

IsNumeric(expression)

必要的 expression 参数是一个 Variant，包含数值表达式或字符串表达式。

说明

如果整个 expression 的运算结果为数字，则 IsNumeric 返回 True；否则返回 False。

如果 expression 是日期表达式，则 IsNumeric 返回 False。

Answer 3

我用的是.net语法不一样.就给你个思路
数字有效位数就是从左边第一个不是0的数字起,到最后一位(包括小数后的0)的个数
所以可以把数字转字符串,for each每个字符chr
if 字符不等于0也不等于点,则开始计数,统计后边不等于点的字符数即可.

Answer 4

假设求A1单元格数值的有效数字个数，则：
=LEN(--SUBSTITUTE(A1,".",))

Answer 5

给我一个有效数字的例子