帮写段简单的vfp程序要求：程序名称为program42.prg,放在d:\exam4目录下,并将程序运行结果填到下面空格处.计算1+(1+2)+(1+2+3)+(1+2+3+4)+……+(1+2+3+4+…+20)之和.

帮写段简单的vfp程序
要求：程序名称为program42.prg,放在d:\exam4目录下,并将程序运行结果填到下面空格处.
计算1+(1+2)+(1+2+3)+(1+2+3+4)+……+(1+2+3+4+…+20)之和.

居然还有人要学VFP?

set defa to d:\exam4
modi comm program42

在里面写上
local lnResult, lnCount
lnResult = 0
for lnCount = 1 to 20
lnResult = lnResult + (20 - lnCount + 1 )*lnCount
endfor
messagebox(str(lnResult))
return

运行得出结果.
楼下VB的,结果是1540