三个数取中间数的方法(VFP)

PARAMETER CSTR
CLEAR
NLEN=LEN(CSTR)
LOCAL CARRAY(NLEN)
FOR I=1 TO NLEN
    CSTR1=SUBSTR(CSTR,I,1)
    CARRAY(I)=(CSTR1)
ENDFOR
ASORT(CARRAY)
NLEN=INT(NLEN/2)+IIF(MOD(NLEN,2)=1,1,0)
RETURN CARRAY(NLEN)