lol电影天堂官网电脑:关于Microsoft Visual FoxPro6.0编程的问题.

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/30 06:44:23
运行环境:Microsoft Visual FoxPro6.0
题目:计算从0开始的奇数和,使奇数和小于500的最大数.

用do while…enddo可以编,但是我想用其他方法,有吗?请给出答案.
i = 0
sum = 0
for i = 1 to 500
if i mod 2 <> 0
sum = sum + i
if sum >= 500
endfor
endif
endif
endfor
? i

"if i mod 2 <> 0"
读不出来啊 !!
好像多了一个"endfor"

i = 0
sum = 0
for i = 1 to 500
if i mod 2 <> 0
sum = sum + i
if sum >= 500
endfor
endif
endif
endfor
? i