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