Question

用Visual Basic程序求S=1+（1+2）+（1+2+3）+（1+2+3+4）+···（1+2+3+···+1

Answer 1

这个很简单的，我把它加在了窗体的CLICK事件里了，你看下，已经测试过了，结果是正确的。希望对你有用。
Private Sub Form_click()
n = Val(InputBox("请输入项数N", "输入"))
s = 0: p = 0
For i = 1 To n
p = p + i
s = s + p
Next i
Print s
End Sub

Answer 2

Private Sub Form_Load()
'S=1+（1+2）+（1+2+3）+（1+2+3+4）+···（1+2+3+···+N
Dim i As Integer
Dim S As Double
Dim N As Integer
Dim A As Integer
N = 10
S = 0
Text1.Text = " i S A" + Chr(13) + Chr(10)
For i = 1 To N
S = S + i
A = A + S
Text1.Text = Text1.Text + " " + CStr(i) + " " + CStr(S) + " " + CStr(A) + Chr(13) + Chr(10)
Next i

End Sub