visual foxpro 一道编程题
下列程序完成求和S=1+(1+2)+(1+2+3)+......+(1+2+3+...+10).
看清楚是vf编程 不是vb哦
参考答案:set talk off
S=0
For i=1 to 10
For j=1 to i
s=s+j
endfor
endfor
? s
_________________________________
按你补充的要求程序如下：
clear
set talk off
do while i<=10
p=0.5*i*(i+1) && 对括号内一组数据求和
?i,p
s=s+p && 累加
i=i+1
enddo
?"s=",s
return