比较优化的程序：
CLS
PRINT " A B C D E F "
FOR a = 1 TO 6
    FOR c = 1 TO 6
        FOR e = 1 TO 6
            FOR b = 1 TO 6
                s = a + b + c: d = s - c - e: f = s - a - e
                IF a * b * c * d * e * f = 720 AND a + b + c + d + e + f = 21 THEN
                   PRINT a; b; c; d; e; f
                END IF
            NEXT b
        NEXT e
    NEXT c
NEXT a
END

你们可以加我为好友吗