设有如下程序: Private Sub Command1_ Click() Di
问题:
设有如下程序: 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