set talk off
clear
store 0 to x,y,s1,s2,s3
do while x<10
x=x+1
do case
case int(x/2)=x/2
s1=s1+x/2
case mod(x,3)=0
s2=s2+x/3
case int(x/2)<>x/2
s3=s3+1
endcase
enddo
?s1,s2,s3
set talk to
reture
答案是15,4,3 还是10,4,3
clear
store 0 to x,y,s1,s2,s3
do while x<10
x=x+1
do case
case int(x/2)=x/2
s1=s1+x/2
case mod(x,3)=0
s2=s2+x/3
case int(x/2)<>x/2
s3=s3+1
endcase
enddo
?s1,s2,s3
set talk to
reture
答案是15,4,3 还是10,4,3
你在FOX环境下运行一下不就行了?(FoxBASE、VFP都行)另外
倒数第二句应该写成
set talk on