临汾58:vfp的问题

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/06 03:49:53
计算从0开始的奇数和,求使奇数和小于500的最大数
一下是我写的
x=0
y=0
do while
x=x+1
do case
case int(x/2)=x/2
loop
case
x+y>500
exit
otherwise
y=x+y
endcase
enddo
?"x=",x,,"y=",y