急 3*4.8-14.4=-1.77635683940025E-15

Question

请教为什么:
Private Sub Form_Load()
  Text1 = 3 * 4.8 - 14.4
End Sub等于"-1.77635683940025E-15"
谢谢!

Answer 1

Private Sub Form_Load() 
    Text1 = 3 * 4.8 - 14.4 
    text1.text=format(text1.text,"##0.00")
End   Sub 

Answer 2

浮点数的小数是 2 进制表示的，与 10 进制小数存在误差。你可以使用 Currency 类型，它是定点类型：Private Sub Form_Load()
    Text1 = CCur(3 * 4.8 - 14.4) '类型转换函数，转成 Currency 类型
End Sub 

Answer 3

楼上正解,可以这样Private Sub Form_Load()
    Dim c@
    c = 3 * 4.8 - 14.4
    Text1 = c
End Sub

Answer 4

到俺机器上又是另一幅景像。format吧。