问题 单项选择题

设有如下程序:
Private Sub Command1_ Click()
Dim sum As Double, x As Double
sum=0
n=0
For i=1 To 3
x=n/i
n=n+1
sum=sum+x
Next i
End Sub
该程序通过For循环来计算sum的值,sum值的精确结果是( )。

A.1+1/2+2/3

B.1+1/2+1/3+1

C.1/2+2/3

D.1/2+1/3

答案

参考答案:C

解析: 第一次循环时n、sum均为0,所以sum值为0,第二次循环时n为1、i为2,所以sum值为1/2,第三次循环时n为2、i为3,所以sum值为1/2+2/3。

判断题
单项选择题