怎样统计一个浮点数的有效位数和小数点的位置？

[achilleshan]

怎样统计一个浮点数的有效位数和小数点的位置？谢谢大虾指教，刚开始学vb。

[silverblade]

Private Sub Command1_Click()
Dim sng As Single
sng = 1.23456
MsgBox "小数点位于第" & InStr(sng, ".") & "位"
MsgBox "有效位为" & Len(CStr(sng)) - InStr(sng, ".") & "位"

End Sub

[achilleshan]

如果输入0.012345答案就不对了;(

[rainstormmaster]

Dim sng As string
sng = "1.23456"
MsgBox "小数点位于第" & InStr(sng, ".") & "位"
MsgBox "有效位为" & Len(sng- InStr(sng, ".") & "位"