设有如下程序：
Private Sub Command1_Click( )
Dim sum As Double，a As Double
Sum=0
n=1
For i=1 To 5
a=n*i
n=n+1
sum=Sum+a
Next i
End Sub
该程序通过For循环来计算一个表达式的值，这个表达式的值是______。

一质量为20g的烟花弹以初速度为20m/s被竖直向上发射出去，升到最高点时爆炸，若忽略空气阻力，以下结论正确的是：（g取10m/s²）（）

A.上升的最大高度为40m

B.若烟花弹的质量大些，则能升的更高

C.上升的时间为4s

D.若不能爆炸则上升和下落过程的总时间为4s