vfp运行表单，1+2+3+4+。。。+n的代码！

1.新建一个表单，放置两个文本框 text1（用于输入累加的最大数） 和text2（用于存放累加和） ，一个命令按钮 command1
2.输入commnand1的click事件代码：
s=0
i=1
do while i<=val(thisform.text1.value)
s=s+i
i=i+1
enddo
thisform.text2.value=s
3. 保存运行

input "输入需要累加的最大数：" to n
s=0
i=1
do while i<=n
s=s+i
i=i+1
enddo
? '累加结果',s