题目：输入一个正整数，判别是否回文数。
（回文数：从左至右与从右至左读起来都是一样的数字，如：121是一个回文数。）
要求：用for循环实现，循环变量用i，如果是回文数，结果为.T.；不是，结果为.F.。将判断结果存放在变量S中，且红字部分不能改。


我的答案（有误）：
set talk off
input "数字:" to m
n=str(m)
L=len(n)
for i=1 to L
 if subs(n,i,1)=subs(n,L-i+1,1)
   s=".T."
 else
   s=".F."
 endif
endfor
?s
set talk on

答案做出来都是.F.！
各位大师！！拜托帮我看看哪里不对需要改下！！！小女子这厢谢过先！！！！

[[it] 本帖最后由 zzyymxt 于 2008-6-11 23:53 编辑 [/it]]

set talk off
input "数字:" to m
if type('m')='N' and int(m)=m and m>=0
  n=alltrim(str(m))
  L=len(n)
  s=.T.
  for i=1 to L
    if subs(n,i,1)#subs(n,L-i+1,1)
      s=.F.
      exit
    endif
  endfor
else
  s=.F.
endif
?s
set talk on

谢大师！貌似给动大手术拉！呵呵～～
我自己试了下
发现其实只要把n=str(m)改成n=alltrim(str(m))就可以了
不过还是非常感谢那！！！

“貌似给动大手术拉！呵呵～～”就是要给你的程序动手术，你还别不服气，你的程序是有问题的。
你自己测试一下，你输入1221和1231看看结果

还有，你还可以自己测试一下，你输入 "abc" 【引号、a、b、c、引号】，看看结果

嗯嗯。。有道理！
果然有问题！
但是它显示的提示信息很明确的说是“输入数字”了呀，所以我想字符问题应该不用考虑了吧。。。
但前面一个问题，即1221，1231的问题出在哪里呢？
还有那个#是什么意思？
望解答！谢谢！


还有，补充一下，我可米有不服气的意思。。我是很虚心滴向大师求教哒！

我知道怎么做了。。谢谢！