单选题设有如下程序：

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

【正确答案】 C

【答案解析】[解析] 本题考查VBA中循环结构的知识。这类问题需要分析出每一次循环所做的操作。第一次循环时， i＝1,n＝0,x＝0/1，所以累加上去的是0/1；第二次循环时， i＝2,n＝1,x＝1/2，所以累加上去的是1/2；第三次循环时， i＝3,n＝2,x＝2/3，所以累加上去的是2/3；循环5次后累加的应该是0/1+1/2+2/3+374+4/5。