[单项选择题] 设有如下程序： Private Sub Command1_Click() Dim sum As Double, k As Double

[单项选择题] 设有如下程序：

Private Sub Command1_Click()

Dim sum As Double, k As Double

sum=0

n=0

For i=1 To 5

k=n/i

n=n+1

sum=sum+k

Next

End Sub

该程序通过For循环计算一个表达式的值，这个表达式是______。

A．1+1/2+2/3+3/4+4/5

B．1+1/2+2/3+3/4

C．1/2+2/3+3/4+4/5

D．1+1/2+1/3+1/4+1/5

C解析：[分析]： 此题关键是变量n的初值问题。因为n的初值为0，所以在第一次循环时“n/i”的计算结果为0，从第二次循环开始，n的变化值是从1至4。