求助一条VB题目,很简单的呐!

n = 10
Sum = 1
s = 1
For i = 2 To n
Sum = Sum + i
s = Sum + s
Next
Print s

'设计程序,求S=1+(1+2)+(1+2+3)+…+(1+2+3+…+n)的值.

n=10'n值随意改

s=0
for i=1 to n
s=s+i*(i+1)/2
next
print s

dim i as long,j as long,sum as long,n as long

n = 10

for i = 1 to n
for j = 1 to i
sum = sum + j
next j
next i

Dim i,s,Sum

For i = 1 To n
s = s + i
Sum = Sum + s
Next

MsgBox Sum

S=1+(1+2)+(1+2+3)+…+(1+2+3+…+n)
S=1×n＋2×（n-1）＋3×（n-2）......n×1

这个你应该会写吧^_^

这样行不^_^

都正确