用VF程序写出全部四位数的回文数

CLEAR
SET TALK OFF
FOR i=1000 TO 9999
qw=INT(i/1000)
bw=INT(i%1000/100)
sw=INT(i%100/10)
gw=i%10
IF gw=qw .AND. bw=sw
?? i
ENDIF
NEXT

SET TALK on

set talk off
clear
for i=1000 to 9999
x=i
s=0
do while x>0
x=x%10
s=s*10+x
x=int(x/10)
enddo
if s=x
?i,是回文数!
enddif
endfor
程序这样写更优化一点，楼上面写的运行过慢