visual foxpro 一道编程题

来源：百度知道 编辑：UC知道 时间：2024/05/10 02:57:33
下列程序完成求和S=1+(1+2)+(1+2+3)+......+(1+2+3+...+10).
看清楚是vf编程 不是vb哦
是填空完成程序
clear
set talk off
do while i<=10
p=__________
?i,p
s=s+p
____________
enddo
?"s=",s
请补充下下划线的内容

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

clear
set talk off
do while i<=10
p=i*(i+1)/2
?i,p
s=s+p
i=i+1
enddo
?"s=",s