主题：急
天天好运爱QB
[专家分：0] 发布于 2008-10-29 20:32:00
求１００００以内所有回文数
回复列表 （共3个回复）
沙发
神倪在世 [专家分：30] 发布于 2008-10-29 20:37:00
CLS
FOR I=1 TO 10000
A=I MOD 10
B=I \ 10 MOD 10
C=I \100 MOD 10
D= I\1000 MOD 10
E=I\10000
IF A=E THEN PRINT I;
NEXT I
END
3 楼
hxy_anhui [专家分：320] 发布于 2009-01-29 16:05:00
CLS
FOR I = 1 TO 10000
FOR J = 1 TO LEN(LTRIM$(STR$(I))) \ 2
IF MID$(LTRIM$(STR$(I)), J, 1) <> MID$(LTRIM$(STR$(I)), LEN(LTRIM$(STR$(I))) + 1 - J, 1) THEN GOTO 10
NEXT J
PRINT I;
10 NEXT I
END
合肥小学四年级一学生，请楼主加分！
我来回复
您所在位置：