应该用循环
再用IF语句
最后用特殊输出

幽灵密码也问了
无效！！！！

发广告的
滚蛋
滚滚滚滚滚

用if+for

啊

应该用for/next语句吧！

CLS
DIM s(28), m(7)
s = TIMER
FOR a = 1 TO 22
  FOR b = a + 1 TO 23
    FOR c = b + 1 TO 24
      FOR d = c + 1 TO 25
        FOR e = d + 1 TO 26
          FOR f = e + 1 TO 27
            FOR g = f + 1 TO 28
              n = 1
              m(1) = a
              m(2) = b: m(3) = c: m(4) = d: m(5) = e: m(6) = f: m(7) = g
              FOR j = 7 TO 1 STEP -1
                s(29 - m(j)) = 1
                FOR k = j - 1 TO 1 STEP -1
                  s(m(j) - m(k)) = 1
              NEXT k, j
              s(a) = 1
              s(b) = 1: s(c) = 1: s(d) = 1: s(e) = 1: s(f) = 1: s(g) = 1
              FOR i = 1 TO 28
                IF s(i) = 0 THEN n = 0: EXIT FOR
              NEXT i
              IF n <> 0 THEN PRINT a; b; c; d; e; f; g
              FOR i = 1 TO 28
                s(i) = 0
              NEXT i
NEXT g, f, e, d, c, b, a
PRINT "Use time"; TIMER - s; "seconds"
END

卡死我的电脑了！建议用线性代数的方法去解决！

线性？Qbasic好像没有指针变量吧？