请教关于数据处理问题

Question

随机产生的一系列数据，我只需要小数点之后3位数字。例如3.12500125  希望得到3.125
                                               3.120052 希望得到3.120
例如某一时刻的数据付给一变量 num
先后尝试了用format(num,"0.000")
这一格式化语句对 例如上例的3.12500125  能够得到3.125
但是对于3.120052 却只能得到3.12。不是希望的结果，
请问这个应该怎么处理呢？？？

Answer 1

Private Sub Command1_Click()
a = Format(3.12000125, "#.##0")
MsgBox a
End Sub

Answer 2

Private Sub CommandButton1_Click()
  Dim num As Double
  num = 3.120052
  MsgBox Format(num, "0.000")
End Sub'以上代码在试验中能显示 3.120

Answer 3

楼主又在问这个问题？？？这个贴子中不是已经给你说了解决方法了吗！
http://topic.csdn.net/u/20090530/11/f4c47157-6ccd-460d-afeb-4b20fe40a287.html真是无语了~~~~~~~
Option ExplicitPrivate Sub Command1_Click()    Dim strNumOut$
    strNumOut = Format$(3.12500125, "0.000")
    MsgBox strNumOut, 64, "格式化数据"
    strNumOut = Format$(3.120052, "0.000")
    MsgBox strNumOut, 64, "格式化数据"End Sub