input "输入一个数：" to srsrc=ALLTRIM(STR(sr))lensr=LEN(src)yxsr=""FOR i=1 TO lensr yxsr=yxsr+SUBSTR(src,lensr-i+1,1)endf?"输入数据的逆序数为：",yxsr
