以下是引用月沐庭轩在2012-12-9 09:06:59的发言：
第二问：
FUNCTION 数字号码(原数字)
返回=""
FOR i=1 TO 10
IF !TRANSFORM(i)$原数字
返回=返回+!TRANSFORM(i)
ENDIF
ENDFOR
RETURN 返回
ENDFUNC
返回=返回+!TRANSFORM(i)？？？
第二问：
FUNCTION 数字号码(原数字)
返回=""
FOR i=1 TO 10
IF !TRANSFORM(i)$原数字
返回=返回+!TRANSFORM(i)
ENDIF
ENDFOR
RETURN 返回
ENDFUNC
坚守VFP最后的阵地
