电流通过导体产生的热量Q，公式表示不正确的是（）。

A.Q=IUt

B.Q=IRt

C.Q=I2Rt

D.Q=U2t/R

设有如下程序： Private Sub Form_Click() Dim a As Integer，s As Integer n=8：s=0 Do s=s+n：n=n-1 Loop While n＞0 Print s End Sub 以上程序的功能是计算1-8的和。程序运行后，单击窗体，输出结果为______。