输入正整数,判断是否是回文数,要求用for循环,循环变量用i,如果是回文数,结果为.t.,不是结果为.f.,判断结果保存在变量s中

Input '请输入一个正整数' To n
If Type('n')='N' And n>0 And Int(n)=n
  c=Transform(n)
  s=.T.
  For i=1 To Len(c)
    If Substr(c,i,1)#Substr(c,Len(c)-i+1,1)
      s=.F.
      Exit
    EndIf
  EndFor
  ?s
Else
  ?'输入数据错误'
EndIf