设有如下程序：
Private Sub Cimmand1_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+l/4+1/5

已知使36g焦炭发生不完全燃烧，所得气体中CO占1/3体积，CO₂占2/3体积，已知：

C（s）＋1/2O₂（g）＝ CO（g）  △H ＝－Q1kJ/mol

CO（g）＋1/2O₂（g）＝ CO₂（g）△H ＝－Q2kJ/mol

与这些焦炭完全燃烧相比较，损失的热量正确的是           [ ]

A．Q2 kJ 

B．Q2 kJ

C．Q1 kJ       

D．（Q1+Q2） kJ