数值精确度问题

Question

Dim sum As Currency
Dim i As Currency
Dim j As Currency
i = 0.15996
j = 1.369885
sum = i + j
Text1.Text = sum运行结果：1.5299
可我要结果保留两位小数（四舍五入）,请问有什么函数吗？

Answer 1

Text1.Text = format(sum,"standard")

Answer 2

可以这样处理：
sum=int(sum *100 +0.5)/100
Text1.Text=format(sum,"0.00")
我再说明一下：int(sum *100 +0.5),就是先将它扩大100倍再加0.5，这时取整得到的就是对原来数字的小数第三为四舍五入,再将它再缩小100倍，还原到原来的数量级。
用Format函数来规定输出二位小数