富阳东吴医院简介:还是关于Microsoft Visual FoxPro6.0编程的问题.

来源:百度文库 编辑:中科新闻网 时间:2024/04/30 18:41:55
运行环境:Microsoft Visual FoxPro6.0
题目:计算从0开始的奇数和,使奇数和小于500的最大数.

用do while…enddo可以编,但是我想用其他方法,有吗?请给出答案(给出的希望是经过验证有效的).
还有啊,奇数和要小于500啊!以下两位虽然得到了最大数,但是显示sum时是529,正确的应该是484,好像多加了一次45哈,不过谢谢你们的回答,希望能改进改进。

谢谢提醒,回去运行了一下确实是529,我第一次编的有逻辑错误,不过现在改过来了,请多指教。

clear
sum=0
for i=1 to 500 step 2
if sum<=500
sum=sum+i
endif
endfor
?sum
说明:用步进为2可以保证每次i都为奇数,而不必用判断语句

i = 0
sum = 0
for i = 1 to 500
if i%2 = 1
sum = sum + i
if sum >= 500
exit for
endif
endif
endfor

? i