vb中的Round函数的作用是四舍六入求偶（数），即Round(3.5)=3; Round(4.5)=4; Round(3.6)=4, 因此这个函数不适合用来求一个数的四舍五入。为了真正实现数字的四舍五入，我们可以自定义一个函数，代码如下：
Public Function MyRound(ByVal Num As Single, ByVal Wei As Long) As Single 'Num是数值，wei是要取的位数
MyRound = Int(Num * 10 ^ Wei + 0.5) / (10 ^ Wei)
End Function
用法：比如求3.56四舍五入保留1位小数，则MyRound=(3.56,1) ，所得结果应是3.7
