一、使用math.round，真实结果是四舍六入五取偶，并不是真正的四舍五入
3.44 ---3.4 四舍
3.451 ---3.5 五后非零就进一
3.45 ---3.4 五后皆零看奇偶, 五前为偶应舍 去
3.75 ---3.8 五后皆零看奇偶,五前为奇要进一
3.46 ---3.5 六入
解决方案
1、2.0下使用
Dim ret2
As Double = Math.Round(
2.5, MidpointRounding.AwayFromZero)
2、重构函数
3、偷懒方法
System.Math.Round(fshuzhi + 0.00000001)
修正后 3.45 ---3.5 3.46 ---3.5 4.44 ---3.4 即为5全部进
