用Visual Foxpro编一小程序，1-35个数选5个，和值为80的组合显示出来

CLEAR
SET SAFETY OFF
CREATE TABLE shu(t1 n(2),t2 n(2),t3 n(2),t4 n(2),t5 n(2),t6 n(9))
FOR n1=1 TO 35
FOR n2=2 TO 35
FOR n3=3 TO 35
FOR n4=4 TO 35
FOR n5=5 TO 35
IF n1+n2+n3+n4+n5=80.and.n1<>n2.and.n1<>n3.and.n1<>n4.and.n1<>n5.and.n2<>n3.and.n2<>n4.and.n2<>n5.and.n3<>n4.and.n3<>n5.and.n4<>n5
ji=n1*n2*n3*n4*n5
SELECT shu
SELECT * FROM shu INTO CURSOR temp01 WHERE t6=ji
SELECT temp01
IF RECCOUNT()=0
SELECT shu
APPEND BLANK
REPLACE t1 WITH n1,t2 WITH n2,t3 WITH n3,t4 WITH n4,t5 WITH n5,t6 WITH ji
ENDIF
ENDIF
ENDFOR
ENDFOR
ENDFOR
ENDFOR
ENDFOR
SELECT shu
BROWSE

经修改,运行时间19分钟,计算共有3375种组合