有FOXBASE程序如下:
SET TALK OFF
CLEAR
STORE 1 TO X
STORE2001 TO Y
DO WHILE X<Y
IF .NOT.(INT(X/2)=X/2)
X=X^2+1
Y=Y+1
ELSE
X=X+1
ENDIF
ENDDO
?X
?Y 本人菜鸟 你能说多简单就说多简单 就当给一点不会的讲