如何用VB编写 s=1+(1+2)+...+(1+2+3+...100)

楼上说得不对,应该是:
Private Sub Command1_Click()
temp = 0
s = 0
i = 1
Do
s = s + i
temp = temp + s
i = i + 1
Loop Until i > 100
End Sub

s=0
i=1
do
s=s+i
i=i+1
loop i>100
MsgBox(CStr(s))

s=0
for i=1 to 100
p=0
for j=1 to i
p=p+j
next
s=s+p
next
MsgBox(CStr(s))

vbs代码，自己换成vb，都差不多