你把贴结掉了，别人就没有办法回复了。

你的程序基本上实现了排列的功能，
暂不考究太多，只从语句的简洁实用方便略作修改。
仔细看看被修改过的地方，你会有很多新发现。
要想看排列的相关代码，可以旧贴中搜索一下。


CLS

INPUT m

FOR i = 1 TO m
p(i) = i
NEXT i

DO
  FOR i = 1 TO m-1
   PRINT CHR$(p(i) + 64);
  NEXT
   PRINT CHR$(p(i) + 64),

   DO
      p(i) = p(i) + 1
      IF p(i) > m THEN 
         p(i) = 1
         i = i - 1
         k=0
      else 
         FOR j = 1 TO m - 1
             FOR k = j + 1 TO m
                 IF p(j) = p(k) THEN
                    j = m
                    exit for
                 endif
             NEXT k
         NEXT j
      END IF
   LOOP UNTIL k>m
LOOP until i=0
END