Question

1+2+3+4+5+6+......100Visual FoxPro用for endfor语句编程

初学求详解

Answer 1

注解一下 syht2000 朋友的程序：

SET TALK OFF
CLEAR
S=0 && 设置S初值
M=0 && 设置S初值 **此变量可省**
FOR J=1 TO 100 && 循环开始 j从1开始，每次加1，直到100
S=S+J && 循环体， 第一次循环 0+1 赋值给S，S的值为1，第二次循环 1+2再 赋值给S，S的值为3 。
ENDFOR && 循环结束
@ 10,10 SAY "1到100之和为："+LTRIM(STR(S)) &&在屏幕的 第10行，每10列显示 1到100之和为：5050 （LTRIM(STR(S)) 将S转化为字符并删除前导空格）
RETURN && 返回调用处

这样说明能理解吗？

Answer 2

clear
s=0
for i=1 to 100
s=s+i
endfor
?"1+2+3+4+5+6+......100=",s

追问

能说说为什么这么做吗

追答

for是循环，步长为1，就是每次增加1，s为累加器，从1循环到100，就是求1加到100的和。

Answer 3

SET TALK OFF
CLEAR
S=0
M=0
FOR J=1 TO 100
S=S+J
ENDFOR
@ 10,10 SAY "1到100之和为："+LTRIM(STR(S))
RETURN

追问

能说说为什么这么做吗

Answer 4

i=1
j=0
for i= 1 to 100
j=j+i
next

追问

能不能告诉我整体的程序吗 我有很多都不懂

追答

j=0 '设定初始值j=0
for i= 1 to 100 '设定For循环　i的值从1 到１００　，也就是１００次
j=j+i '计算１加１００的将值赋给J
next
print j '忘了不知道FOXPRO支不支持界面输出。