先生，不好意思，我又作了修改，附件请以这个为准

有点深，还是没看懂在算什么。
但每层循环初值是上层计数器的值+1，终值都是hs8，而只是在最内层才取运算结果，这样会出现好多次循环是“白跑”了。
情况好象：（不知有无理解错）
hs = 3
FOR i = 1 TO hs
    ?i
    FOR j = i+1 TO hs
        ?i,j
        FOR k = j+1 TO hs
            ? "运算", i, j, k
        ENDFOR
    ENDFOR
ENDFOR
实际上i,j,k在最内层运算只有一次，而第1层和第2层有好多次是“白跑”的。
效果等同：
hs = 3
FOR i = 1 TO hs - 2
    ?i
    FOR j = i+1 TO hs - 1
        ?i,j
        FOR k = j+1 TO hs
            ? "运算", i, j, k
        ENDFOR
    ENDFOR
ENDFOR

[ 本帖最后由 吹水佬 于 2015-4-2 21:32 编辑 ]

算法看象在自然数列中任取n个数的所有组合。

是的，谢谢先生，像您指点的确实可以“少白跑”好多，谢谢了

也可用递归调用，代码可以精简些。
如从m个自然数列中取出n个数的组合：

CREATE CURSOR dd (ff C(100))
_f(5, 3)    && m=5, n=3
GO TOP 
BROWSE
RETURN

FUNCTION _f(m, n)
    LOCAL i, aa[m]
    FOR i = 1 TO m
        aa[i] = i
    ENDFOR
    IF n > 1
        _ff(@aa, n)
    ELSE
        FOR i = 1 TO ALEN(aa)
            INSERT INTO dd VALUES (TRANSFORM(aa[i]))
        ENDFOR
    ENDIF
ENDFUNC

FUNCTION _ff(aa, n)
    IF ALEN(aa) < n
        RETURN
    ENDIF
    
    LOCAL i, ss, aa2[1]
    ACOPY(aa, aa2)
    
    DO WHILE ALEN(aa2) >= n
        LOCAL aa3[1]
        ACOPY(aa2, aa3)
        
        DO WHILE ALEN(aa3) >= n
            ss = TRANSFORM(aa3[1])
            FOR i = 2 TO n
                ss = ss + "," + TRANSFORM(aa3[i])
            ENDFOR
            INSERT INTO dd VALUES (ss)
            
            ADEL(aa3, n)
            DIMENSION aa3[ALEN(aa3)-1]
        ENDDO
        IF n < 3
            EXIT
        ENDIF
        ADEL(aa2, 2)
        DIMENSION aa2[ALEN(aa2)-1]
    ENDDO
    
    ADEL(aa, 1)
    DIMENSION aa[ALEN(aa)-1]
    _ff(@aa, n)
ENDFUNC

[ 本帖最后由 吹水佬 于 2015-4-4 07:13 编辑 ]