先生您好,我有这样一个问题:在32行4列的表中,选出16行,再求出这被选中的16行按列求和(和分别为lh1、lh2、lh3、lh4),并当lh1=lh2且lh3+7864320=lh4时才算符合要求，我编了段代码，虽可运行，但总是找不到符合要求的结果，请先生指点，谢谢（代码如下）

CLEAR
CLOSE  all
SET SAFETY OFF
USE 新表
ZAP
input '        请输入想搜索的循环次数！：' to 循环次数
*-------------以下一行是最外层循环开始
FOR JJJ=1 TO 循环次数
USE 原表
RAND(-1)
FOR i=1 TO 32
REPLACE 随机数  WITH  RAND()*VAL(SYS(2))*0.000357913
SKIP
ENDFOR
sort to 排序 ON 随机数/A
USE 排序
copy to 排序后 FIELDS 列1,列2,列3,列4
USE  排序后
 Dimension sb(16,4)
select * from 排序后 into array sb
lh1=0
lh2=0
lh3=0
lh4=0
 FOR n=1 TO 16
    lh1=lh1+sb(n,1)
    lh2=lh2+sb(n,2)
    lh3=lh3+sb(n,3)
    lh4=lh4+sb(n,4)
 ENDFOR
 IF lh1=lh2 AND lh3+7864320=lh4                                 
     SELECT  2
    USE 新表
        FOR i=1 TO 16
              APPEND BLANK                                               
              REPLACE  列1 WITH  sb(i,1)
              REPLACE  列2 WITH  sb(i,2)   
              REPLACE  列3 WITH  sb(i,3)   
              REPLACE  列4 WITH  sb(i,4)   
         ENDFOR                                          
     ELSE     
     LOOP      
 ENDIF
 *-------------以下是最外层循环结尾
CLOSE  all
ENDFOR
 MESSAGEBOX('本 次 运 行 结 束 ！！',64,'信息提示')
 DELETE FILE *.BAK
QUIT


[ 本帖最后由 fdxxhjc 于 2015-9-12 09:48 编辑 ]

选中的16行是什么意思，是随机编号为1-16所在行的记录吗

32条记录任选16条记录的组合？

如果求32中16的组合，数值太大了，无法运行，故想碰运气随机取出16行进行搜索，谢谢

先生是的，谢谢

有无符合条件的记录组合？
试了一下，记录号从7开头之后的还没找到符合条件的组合，不知算法对否。
记录号1--4开头的可能要慢慢试，PC机+VFP32位数据处理规模很有限。

终于在记录号5开头的找到符合条件的一组记录：

验证：

USE 原表
SUM 列1,列2,列3,列4 FOR INLIST(RECNO(),5,7,8,9,14,15,18,20,21,23,24,25,26,28,30,31) TO n列1,n列2,n列3,n列4 
? n列1,n列2,(n列3 + 7864320),n列4

是你的原始数据有问题，你的原始数据里，没有符合你所给出的条件lh1=lh2且lh3+7864320=lh4这样的数据项，所以程序虽可运行，但是找不到符合要求的结果！

我刚找到有一组符合条件的哦？
继续......难度越来越大，不知能否完成。

有三组记录符合条件