一个关于截断小数的奇怪问题

Question

三个textbox,一个button。text1.text=4.8
运行下面程序后会发现text2.text=4.79而text3.text=4.8这是怎么回事呢？
请指教。
谢谢Private Sub Command1_Click()    Dim a As Double    a = CDbl(Text1.Text) * 100        Text2.Text = Fix(a) / (10 ^ 2)    Text3.Text = Fix(4080) / (10 ^ 2)End Sub

Answer 1

这是浮点数本身的原因，但两位数一般不会出现误差的。