VISUAL FOXPRO 求X的小数部分；(写出表达式) 求自然数m=3445的反序数.(用多条指令实现)

求自然数m=3445的反序数的程序：
m=3445
s=ALLTRIM(STR(m))
s1=""
FOR i=LEN(s) TO 1 step -1
s1=s1+SUBSTR(s,i,1)
NEXT
? "m=",m,"的反序数是",round(val(s1),0)

x的小数部分：x-int(x)
求自然数m=3445的反序数的程序：
m=3445
s=ALLTRIM(STR(m))
s1=""
FOR i=1 TO LEN(s)
s1=s1+SUBSTR(s,LEN(s)-i+1,1)
NEXT
ReverseM=VAL(s1)
"m=",m,"的反序数是",ReverseM