用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种组合

可以用PageFrame实现，将PageFrame的属性Tabs设为false，将页标题隐藏。然后添加用于导航功能的按钮，在按钮事件中执行thisform.pageframe1.pages(要显示的页号).Zorder，就可以实现指定页面的显示。

二者都是数据库管理软件，都可以进行数据库开发，软件开发，作用差不多，文件种类也差不多，但Microsoft access偏 *** 作，Visual Foxpro偏编程。相比较Visual Foxpro可能难一点。

---