visual foxpro 6.0编程问题

来源：百度知道 编辑：UC知道 时间：2024/06/20 12:55:09
set talk off
clear
s=0
i=1
input "请输入N值：” to N
do while s<=N
s=s+i
i=i+1
enddo
?s
set talk on
return

这个程序是计算什么的？？？？？
好像不是求和的
这样吧当N=3，6，10时，运行结果是多少
看清楚再说 那是do while s<=N
不是do while i<=N
你们试了这个程序了吗？？？？？
回答都不对，我其实知道运行结果，但不知道怎么描述这个程序的功能，比如有的是求1-100的和，而这个是干嘛的？？？

这个程序是计算 1以后的数的和，此为s,且要求s要小于等于你自己定义的范围N时才会执行累加。
N=3，S=1+2+3=6,
N=6，S=1+2+3+4=10
N=10,S=1+2+3+4+5=15.
对于N=3，
执行第一次循环:
当i=1时，S=1

执行第二次循环:
i=2时，S=1+2=3，
此时 S=3仍然满足S<=N(N=3)的条件，所以继续执行累加，

执行第三次循环:
i=3时，S=1+2+3=6，S>N(6>3),不满足循环条件，所以不执行，退出，
最后的运行结果为S=6。

N=6，10其实也是跟这样类似的。。。

有没有想过，可能是谁编的错误程序啊，原本是打算计算连加和的，结果编错了，呵呵。
set talk off
clear
s=0
i=1
*input "请输入N值：" to N

for n=1 to 100

do while s<=N
s=s+i
i=i+1
enddo
?n ,s
s=0
i=1
endfor

set talk on
return
结果都能显示出来，也不是一点规律没有，暂时没搞懂。呵呵