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

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

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

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

[评析] 本题考查循环语句，其过程如下： i=1时，x=0/1=0，n=0+1=1，sum=0+0； i=2时，x=1/2，n=1+1=2，sum=0+1/2； i=3时，x=2/3，n=2+1=3，sum=0+1/2+2/3； i=4时，x=3/4，n=3+1=4，sum=0+1/2+2/3+3/4； i=5时，x=4/5，n=4+1=5，sum=0+1/2+2/3+3/4+4/5。