vb编程：计算1＋（1＋2）＋（1＋2＋3）＋...＋（1＋2＋3＋...＋n）

怎么都用两重循环啊?
Private Sub Form_Click()
Dim I as Integer, S as Long, Sum as Long
N=10
For i=1 to N
S=S+I
Sum=Sum+S
Next
Print Sum 'N=10的结果
End Sub

dim 括号的和
dim 总和
dim 项数

for 项数=1 to n
括号的和=括号的和+项数
总和=总和+括号的和
next 项数
print 总和

先给n赋值

Private Sub Form_Load()
s = 0
n = ?
For i = 1 To n Step 1
For j = 1 To i
s = s + j
Next j
Next i
Debug.Print s
End Sub

Private Sub Form_Load()
Dim i As Long, s As Long, n As Long, p As Long
n = InputBox("n=?")
For i = 1 To n
s = s + i * (n - i + 1)
Next i
MsgBox s
End Sub

'代码解释:
'1+(1+2)+(1+2+3)..+(1+2+3..+n)
'=1+1+1...+1+2+2+...+2+.....+n
'=1*n+2*(n-1)+3*(n-2)+....+n*1

Private Sub Form_Click()
Dim s As Integer
Dim n As Integer
n = InputBox("请输入数据总数：")
s = 0