VFP程序设计,输入十个非零整数，统计能被3整除的整数个数

s=0
FOR ii=1 to 10 &&输入10个数
DO while .t. &&输入一个数，为整数则退出输入，否则提示继续输入
input "第"+STR(ii,2)+"个数：" to n
IF INT(n)=n
EXIT
ENDIF
ENDDO
IF INT(n/3)=n/3 &&判断是否可以被3整除，这里也可以使用mod(n,3)=0作为被3整除的条件
s=s+1
ENDIF
ENDFOR
? "能被3整除的整数个数",s

CLEA
COU=0
FOR i=1 to 10
DO while .t.
input "第"+STR(i,2)+"个数：" to n
if n=0
??"不能为0,重新输入.."
ENDIF
IF INT(n)=n AND N<>0
EXIT
ENDIF
ENDDO
IF N%3=0
COU=COU+1
ENDIF
ENDFOR
?"能被3整除的整数个数",COU