单项选择题

设有如下程序：
Private Sub Command1_ Click()
Dim sum As Double, x As Double
sum=0
n=0
For i=1 To 3
x=n/i
n=n+1
sum=sum+x
Next i
End Sub
该程序通过For循环来计算sum的值，sum值的精确结果是( )。