如何对数值数据进行四舍五入

Question

如何对数值数据进行四舍五入

Answer 1

dim i as double
dim tmp as double
dim  j as double
i = 50.0036
tmp = round(i)
j = tmp
j = 50

Answer 2

四舍五入 用 Cint()
取整用 Int()

Answer 3

如对数x=123.45789取两位有效数字
则为 int[(x+0.005)*100]/100
或
四舍五入 用 Cint

Answer 4

我的四舍五入是这样的：
i = 小数
j = Math.Round(i+0.5)
结果为整数。
如果对小数为四舍五入就举一反三得了。

Answer 5

只能对小数点后第二位进行判断，自己处理。
vb中的函数只能实现四舍六入五成双Round函数
      描述返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果。语法Round(expression [,numdecimalplaces])Round函数语法有如下几部分：部分 描述 
expression 必需的。要进行四舍五入运算的数值表达式。 
numdecimalplaces 可选的。数字值，表示进行四舍五入运算时，小数点右边应保留的位数。如果忽略，则Round函数返回整数。
用format也可以Private Sub Form_Load()
    Dim i As Double
    i = 2 / 3
    MsgBox Format(i, "#0.0")
End Sub

Answer 6

'//////////////n为保留的小数位数j=(int(i+0.5)*10^n)/10^n