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

achilleshan 2003-11-23 10:10:45
怎样统计一个浮点数的有效位数和小数点的位置?谢谢大虾指教,刚开始学vb。
...全文
96 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
rainstormmaster 2003-11-23
  • 打赏
  • 举报
回复
Dim sng As string
sng = "1.23456"
MsgBox "小数点位于第" & InStr(sng, ".") & "位"
MsgBox "有效位为" & Len(sng- InStr(sng, ".") & "位"
achilleshan 2003-11-23
  • 打赏
  • 举报
回复
如果输入0.012345答案就不对了;(
silverblade 2003-11-23
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
Dim sng As Single
sng = 1.23456
MsgBox "小数点位于第" & InStr(sng, ".") & "位"
MsgBox "有效位为" & Len(CStr(sng)) - InStr(sng, ".") & "位"

End Sub

7,766

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧