四舍五入如何实现???

Question

Round函数
      描述返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果。语法Round(expression [,numdecimalplaces])Round函数语法有如下几部分：部分 描述 
expression 必需的。要进行四舍五入运算的数值表达式。 
numdecimalplaces 可选的。数字值，表示进行四舍五入运算时，小数点右边应保留的位数。如果忽略，则Round函数返回整数。 

Answer 1

Private Sub Form_Load()
    Dim i As Double
    i = 2 / 3
    MsgBox Format(i, "#0.0")
End Sub