用vfp 编写程序 s=1+(1+2)+(1+2+3)+…+(1+2+3+…+10) ?

在表单中新建命令按钮Command1和文本框Text1

在Command1_Click

代码：
n=1
m=1
s=1
do while n<10

n=n+1
m=m+n
s=s+m

enddo
thisform.text1.value=s
运行，在文本框得出结果