单项选择题

设有如下程序 Private Sub Command1_Click() Dim sum As Double,X As Double sum=0 n=0 For i=1 To 5 X=n/i n=n+1 sum=sum+x Next i End Sub 该程序通过For循环来计算一个表达式的值,这个表达式是_____。

A.1+1/2+2/3+3/4+4/5
B.1+1/2+1/3+1/4+1/5
C.1/2+2/3+3/4+4/5
D.1/2+1/3+1/4+1/5