单项选择题

设有如下程序:

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
题目列表

你可能感兴趣的试题

微信扫码免费搜题