求1+（1+2）+（1+2+3）+（1+2+3+…+n）+…的值.N的值由文本框输入.用vb语言

Dim i As Integer
Dim s As Integer
Dim T As Integer
Dim n As Integer
n = Val(InputBox("请输入n值；"))
s = 0
T = 0
For i = 1 To n
T = T + i
s = s + T
Next i
Print s
再问： 大神，能不能来个全部的？？
再答： ����VB���ڴ��������һ����ť��Command1 ȫ���������£� Option Explicit Private Sub Command1_Click() Dim i As Integer Dim s As Integer Dim T As Integer Dim n As Integer n = Val(InputBox("������nֵ��")) s = 0 T = 0 For i = 1 To n T = T + i s = s + T Next i Print s End Sub