Private Sub Command1_Click()
Dim i As Currency

i = 1
i = i * (0.3)
Print i
End Sub

为什么i显示出来的是.3而不是0.3?

Private Sub Command1_Click()
Dim i As Currency
i = 1
i = i * (0.3)
Print Format(i, "0.0")
End Sub

楼上的，如果是未知的0.000×，位数不知道怎么解决

Print Format(i, "0.0000")