怎么用VFP解决以下问题：
P=1*2*3+4*5*6+7*8*9+。。。。+19*20*21

是按这种格式求值，还是按这种格式显示

clear
LOCAL NI1,NI2,NI3,CNAME,NUM
STORE 0 TO NI1,NI2,NI3
CNAME=""
NUM=21
FOR I=1 TO NUM
    DO CASE
       CASE MOD(I,3)=0
            NI3=TRANSFORM(I)
       CASE MOD(I,3)=1
            NI1=TRANSFORM(I)
       CASE MOD(I,3)=2
            NI2=TRANSFORM(I)
    ENDCASE
    IF MOD(I,3)=0
       CNAME=CNAME+NI1+"*"+NI2+"*"+NI3+IIF(I<NUM,"+","")
       STORE 0 TO NI1,NI2,NI3
    ENDIF
ENDFOR
? CNAME

p=0
for n=1 to 21 step 3
    p=p+n*(n+1)*(n+2)
endfo
?p



[ 本帖最后由 qingfameng 于 2012-2-14 20:29 编辑 ]

如果是求值，你这是最佳答案

[ 本帖最后由 sdta 于 2012-2-14 20:43 编辑 ]

谢谢楼上！我看你求字符串搞的不错，就来个求值补充吧。

谢谢朋友了，有QQ吗，我QQ261647352

QQ 号：1003715343 但是很抱歉！因为没时间，我不是经常开的，有信息可以发离线。

CLEAR
nItems = 7
nLength = 3
nSum = 0
FOR I = 1 TO nItems * nLength STEP nLength
    nTotal = 1
    FOR J = I TO I + 2
        ?? TRANSFORM(J)
        IF J < I + 2
            ?? "*"
        ENDIF
        nTotal = nTotal * J
    NEXT
    nSum = nSum + nTotal
    IF I < (nItems - 1) * nLength
        ?? " + "
    ENDIF
NEXT
? "結果 = " + TRANSFORM(nSum)

 
for ii=1 to 21
    lsv =iif(ii=1,"",lsv+iif(ii%3=1,"+","*")) +tran(ii)
endfor
?"P=",lsv, "=",&lsv