回文数怎么编啊,急急急,繁请高手指教一二
输入正整数,判断是否是回文数,要求用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
