num = 0
s = 0
n=inputbox（"输入n的值"）
For i = 1 To n
num = num + i
s = s + num
Next i
Print s
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim s As Integer
Dim s0 As Integer
n = Val(Text1.Text)
s = 0
For i = 1 To n
s0 = 0
For j = 1 To i
s0 = s0 + j
Next
s = s + s0
Next
Text1.Text = s
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024