1+2+3+4+5+6+......100Visual FoxPro用for endfor语句编程
追问:能不能告诉我整体的程序吗 我有很多都不懂能说说为什么这么做吗能说说为什么这么做吗
追问:能不能告诉我整体的程序吗 我有很多都不懂能说说为什么这么做吗能说说为什么这么做吗
答案:i=1
j=0
for i= 1 to 100
j=j+i
next
其他:clear
s=0
for i=1 to 100
s=s+i
endfor
?"1+2+3+4+5+6+......100=",s 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 注解一下 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 && 返回调用处
这样说明能理解吗?
上一个:visual foxpro程序里输入 ?vartype(计算机) 输出U是为什么? 为什么不输出C?
下一个:关于Visual foxpro程序设计