我想在VFP的环境中运行阶乘的结果，在循环中前20个结果能精确显示，第21个起就无法精确显示了，譬如说我想得到1-30的阶乘的精确结果显示需如何调整代码（代码如下）
Q=30
I=1
FOR P=1 TO Q
I=I*P
?I
ENDFOR
谢谢先生指教

VFP中，只能显示16位整数，包含小数点显示17位

那先生我在想能否让计算到得的结果转化成字符形式，那字符形式要想显示的话30位甚至更高位不是都可以吗？

你试试 看行不

CLEAR
nRows=1000
DIMENSION  AR1[nRows]
AR1=0
Q=30
STR1='1'
FOR P=1 TO Q
    AR1=0
    I1=0
    L1=LEN(STR1)
    FOR I2=L1 TO 1 STEP -1
        I1=I1+1
        AR1[I1]=VAL(SUBSTR(STR1,I2,1))
    ENDFOR
    RELEASE AR2
    ACOPY(AR1,AR2)
    FOR I3=1 TO P-1
        FOR I4=1 TO L1
            N=AR1[I4]+AR2[I4]
            AR1[I4]=MOD(N,10)
            AR1[I4+1]=AR1[I4+1]+INT(N/10)
        ENDFOR
    ENDFOR
    FOR I5=nRows TO 1 STEP -1
        IF AR1[I5]<>0
            EXIT
        ENDIF
    ENDFOR
    STR1=''
    FOR I6=I5 TO 1 STEP -1
        STR1=STR1+TRANSFORM(AR1[I6])
    ENDFOR
    ?STR1
ENDFOR


[ 本帖最后由 kiff 于 2015-1-29 14:55 编辑 ]

收到的鲜花

• fdxxhjc 于 2015-01-29 15:23 送鲜花  3朵   附言：我很赞同

先生您真神啊，谢谢，诚挚的感谢