设有如下程序： 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值的精确结果是( )。

A、 1+1/2+2/3
B、 1+1/2+1/3+1
C、 1/2+2/3
D、 1/2+1/3

【正确答案】 C

【答案解析】解析：第一次循环时n、sum均为0，所以sum值为0，第二次循环时n为1、i为2，所以sum值为1/2，第三次循环时n为2、i为3，所以sum值为1/2+2/3。