石家庄市四十二中学:vfp的问题

来源:百度文库 编辑:中科新闻网 时间:2024/05/05 01:23:51
计算从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
为什么运行不了
运行了不行

VP我已经多年不用了,所以语法也忘得差不多了,好象是因为你的DO WHILE后面应该加上条件判断语句吧.
其实在这个问题中,你用不着使用DO CASE的结构,用IF语句其实更简单.
X=0
Y=0
do while x+y>=500
if mod(x/2)<>0
y=x+y
endif
x=x+1
enddo
?"x=",x,,"y=",y

语法问题,请不要细究,因为我确实基本把VP已经忘得一干二净了,希望我的回答能使你满意