7,762
社区成员
发帖
与我相关
我的任务
分享我想把浮点数保留4位小数
1、我想把浮点数保留4位小数
如：-246*2/32767 结果保留4位小数
我是用的format函数
可是结果如果小于1，怎么整数部分没有0呀，只是显示如：“0.1234”显示“.1234”
怎么让它显示为“0.1234”呀
２、我用一个text控件来显示通过串口传过来的报文，十六进制的，怎么使滚动条永远在最下边
谢谢了
...全文
请发表友善的回复…
发表回复
rainstormmaster 2003-12-04
- 打赏
- 举报
用math.round
northwolves 2003-12-04
- 打赏
- 举报
1.
Private Sub Command1_Click()
Dim x As String
x = ".1234"
'x = "-.1234"
'x = "12.1234"
'x = "-12.1234"
MsgBox IIf(Left(x, 1) = ".", "0" & x, IIf(Left(x, 2) = "-.", "-0" & Right(x, Len(x) - 1), x))
End Sub
2.TEXT1.SELTEXT=LEN(TEXT1.TEXT)
Private Sub Command1_Click()
Dim x As String
x = ".1234"
'x = "-.1234"
'x = "12.1234"
'x = "-12.1234"
MsgBox IIf(Left(x, 1) = ".", "0" & x, IIf(Left(x, 2) = "-.", "-0" & Right(x, Len(x) - 1), x))
End Sub
2.TEXT1.SELTEXT=LEN(TEXT1.TEXT)
饮水需思源 2003-12-04
- 打赏
- 举报
1. text1.text=format(-246*2/32767),"######0.0000")
victorycyz 2003-12-04
- 打赏
- 举报
1. format(-246*2/32767,"0.0000")
