VFP編程：求四位數中各個位數上的數字的立方和為168的奇數之和

CLEAR

lnt=0

lnc=0

lnq=0

FOR i=1 TO 9

FOR j=0 TO 9

FOR k=0 TO 9

FOR l=0 TO 9

lnt=i^3+j^3+k^3+l^3

IF lnt=168

lnc=lnc+1

?'立方和168:'+TRANSFORM(i)+TRANSFORM(j)+TRANSFORM(k)+TRANSFORM(l)

lnq=lnq+IIF(i%2=1,i,0)+IIF(j%2=1,j,0)+;

IIF(k%2=1,k,0)+IIF(l%2=1,l,0)

*?'本數字奇數和為:'+TRANSFORM(IIF(i%2==1,i,0)+IIF(j%2=1,j,0)+;

IIF(k%2=1,k,0)+IIF(l%2=1,l,0))

ENDIF

ENDFOR

IF lnc<1

'無匹配數字！'

ELSE

'符合的數字有'+TRANSFORM(lnc)+'種'

'奇數之和為：'+TRANSFORM(lnq)

ENDIF