设有如下程序：
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

流行病学诊断的任务是（）

A.回答该健康问题在空间、时间上有什么规律

B.回答目标人群中因该健康问题而受累的是哪些人

C.回答威胁目标人群的主要健康问题是什么

D.确定影响生活质量的健康问题及其分布

E.对哪个或哪些健康问题进行干预效果可能最好