请问,大家听过五舍六入吗?,大家运行下面这个语句看

Question

                MsgBox Round(0.265, 2)
                MsgBox Round(0.266, 2)

Answer 1

这个函数应该是和Cint()函数一样，当进位数为5时，奇数进位，偶数不进，即取接近于自己的偶数。
0.265前面的数是6，所以为0.26
如果是0.235 ，那么就是0.24.

Answer 2

这个函数是四舍六入五留双，要实现真正的四舍五入请看这个函数！MainNumber是要转化的数，Number要保留的位数    Function Round(MainNumber As Double, Number As Integer) As Double
    Dim C     As Double
    Dim D     As String
    C = Int((MainNumber * 10 ^ (Number + 1)))
    D = Right(CStr(C), 1)
    If CDbl(D) >= 5 Then
        C = C + 10
        C = Int(C / 10)
    Else
        C = Int(C / 10)
    End If
    Round = C / 10 ^ Number
    Exit Function
End Function

Answer 3

?FORMAT("0.264","#0.##")
0.26
?FORMAT("0.265","#0.##")
0.27
?FORMAT("0.266","#0.##")
0.27

Answer 4

round是美国银行家用的 。

Answer 5

关于这个问题，CSDN里讨论过多次了