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

问题描述:

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

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