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

A、 5
B、 25
C、 50
D、 55

【正确答案】 D

【答案解析】[解析] 当i=1时，sum=0+1*1；当i=2时，sum=0+1*1+2*2：当i=3时，sum=0+1*1+2*2+3*3；当i=4时，sum=0+1*1+2*2+3*3+4*4；当i=5时，sum=0+1*1+2*2+3*3+4*4+5*5，所以其值为55。