用format就好了。或者你重写round2方法,在全局代码写
Public Function Round2(val As Double, num As Integer) As Double Return Format(val, "#." & "00000000000".Substring(0,num))End Function