在vb中如何实现数字的运算后保留三位小数,但不要求数据四舍五入.

这个较简单,我给你一个函数：XiaoShu(保留小数前的原始数值,保留位数）调用方法如下：假设你的数字存在变量A中,现在要将A中的数字保留三位小数（不四舍五入）放入B中,则Dim A as Single, B as SingleA = 1.2568B=XiaoShu(A,3)Print A "保留3位小数点的结果是（不四舍五入） " B从输出B的值可以看到,已经是三位数了（没有进位）.下面的函数复制到你的vb代码的最后即可：Function XiaoShu(ByVal a As Single, b As Long) As Singlea = CStr(a)XiaoShu = Left(a, InStr(1, a, ".") + b)End Function