Question

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

例如数字为1.2568运算后只保留前三位及为1.256

Answer 1

这个较简单，我给你一个函数：XiaoShu(保留小数前的原始数值，保留位数）

调用方法如下：

假设你的数字存在变量A中，现在要将A中的数字保留三位小数（不四舍五入）放入B中，则

Dim A as Single, B as Single

A = 1.2568

B=XiaoShu(A,3)

Print A & "保留3位小数点的结果是（不四舍五入） " & B

从输出B的值可以看到，已经是三位数了（没有进位）。

下面的函数复制到你的vb代码的最后即可：

Function XiaoShu(ByVal a As Single, b As Long) As Single

  a = CStr(a)

  XiaoShu = Left(a, InStr(1, a, ".") + b)

End Function

Answer 2

MyStr = Format(5459.4, "#0.000")

追问

我希望数字不四舍五入怎么办？？

追答

那你就保留小数点后四位 然后再去掉最后一位

Answer 3

str（int（m*1000）/1000）