回复 9楼 吹水佬
哦先生,我这个提问的原委是出于这样一个实际问题:要想从1—208这共208个数中不重复随意的取8个数,使得取得的这8个数的和均为836,这个问题如果在同一台电脑中运行,我已运行了2、3天了,看上去机器已经运转不了了
表及代码在“请教”中,谢谢
程序代码: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
