帮我写下这个代码吧，我想了好久都没有想出来啊，所以想到了编程论坛
S=1+(1+2)+(1+2+3)+(1+2+3+4)+…+(1+2+3+…+n)的值。
要求：用Label1_Label2分别显示“输入N值：”“S=”，Text1_Text2分别用来接收N的输入
显示S的结果值，Command1用来执行计算功能。

dim i as integer
dim x as integer
for i=1 to 5
x=x+i
next
debug.print x;

Private Sub Form_Click()
Dim i As Integer
Dim x As Integer
Dim n As Integer
n = InputBox("请输入N的大小")
For i = 1 To n
x = x + i
Next
Debug.Print x;
End Sub

Private Sub Form_Click()
Dim i As Integer
Dim x As Integer
Dim n As Integer
n = InputBox("请输入N的大小")
For i = 1 To n
x = x + i
Next
Debug.Print x;
End Sub

这个结果也不对吧？这个是他的第N个括号里的结果吧？

Private Sub Form_Click()
Dim i%, x%, n%, s&
n = InputBox("请输入N的大小")
For i = 1 To n
x = x + i
s = s + x
Next
Print s;
End Sub

那得问问楼主了,我的理解就是这样的,不知有理解错不!

这是明显的作业帖，大家还真有心情去一句一句的写。

呵呵,我是看这句才动之以情的:我想了好久都没有想出来啊

楼主想让人死机，我以前就这么害人的，就算量大点

谁叫你测试时用这么大的数