回复 9楼 吹水佬
哦先生,我这个提问的原委是出于这样一个实际问题:要想从1—208这共208个数中不重复随意的取8个数,使得取得的这8个数的和均为836,这个问题如果在同一台电脑中运行,我已运行了2、3天了,看上去机器已经运转不了了
请教.zip
(1.94 KB)
T1=Seconds() Create Cursor T1 (X N(3)) For lnI=1 To 208 Insert Into T1 Values (lnI) EndFor Select A.X A1,B.X A2,C.X A3,D.X A4,E.X A5,F.X A6,G.X A7,H.X A8,A.X+B.X+C.X+D.X+E.X+F.X+G.X+H.X 合计 From T1 A ; Inner Join T1 B On A.X<B.X ; Inner Join T1 C On B.X<C.X ; Inner Join T1 D On C.X<D.X ; Inner Join T1 E On D.X<E.X ; Inner Join T1 F On E.X<F.X ; Inner Join T1 G On F.X<G.X ; Inner Join T1 H On G.X<H.X where A.X+B.X+C.X+D.X+E.X+F.X+G.X+H.X=836 Into Cursor Temp MessageBox("共运行 "+Transform(Seconds()-T1)+" 秒") Browse