设有如下程序 Private Sub Command1_Click( ) Dim sum As Double,x As Double sum = 0 n = 0 Fori=1To5 x = n / i n = n + 1 sum = sum + x Nexti 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