全排列的问题 网上很多代码   我也写了一个 有点问题 
我写的是C++ 还在修改 写好了再想办法给你改成QBasic

太谢谢你了！这个论坛高手很多啊。以后我就不用发愁了：）呵呵~~

我已经做出来，欢迎您批评指正：
CLS
INPUT m
FOR i = 1 TO m
p(i) = i
NEXT i
DO
  FOR i = 1 TO m
   PRINT CHR$(p(i) + 64);
     NEXT i
       PRINT " ";
       i = m
       DO
        IF i = 0 THEN END
         p(i) = p(i) + 1: f = -1
           IF p(i) > m THEN p(i) = 1: i = i - 1: f = 0
            IF f THEN
             FOR j = 1 TO m - 1
              FOR k = j + 1 TO m
               IF p(j) = p(k) THEN i = m: f = 0
               NEXT k
              NEXT j
             END IF
        LOOP UNTIL f
   LOOP
 END