1+(1+2)+(1+2+3)+(1+2+3+4)+(1+2+3+4+5)+···+（1+2+3+4+···+99）=？

一共有99个1，98个2，。。1个99所以
1*99+2*98+3*97...+98*2+99*1=1*(100-1)+2*(100-2)+..99*(100-1)=1*100-1*1+2*100-2*2+3*100-3*3+...99*100-99*99=100(1+2+3..+99)-(1*1+2*2..99*99)=100*5050-(2*99+1)(99+1)99*(1/6) =505000-328350=176650
不知这么算对不。

Const MAX = 5

Private Sub Command1_Click()
Dim n As Long, m As Long
Dim s As String
Dim k As Long
m = 0
For n = 1 To MAX
If n <> 1 Then
s = s & "("
End If
For k = 1 To n
If k <> n Then
s = s & Trim(Str(k)) & "+"
Else
If k = 1 Then