比如————
输入：AB
       5
输出（每输出一个超大字母按一次空格）：
            A
           A A
          AAAAA
         A      A
        A        A
        BBBBB
        B     B
        BBBBB
        B     B
        BBBBB
输入：AB
       7
输出：
           A
          A A
          A    A
        AAAAAAA
       A        A
      A          A
     A            A
     BBBBBBB
     B       B
     B       B
     BBBBBBB
     B       B
     B       B
     BBBBBBB
万一输错了就输出“DATA ERROR！”，然后重新输
程序如下：
CLS
0 INPUT a$
DO
   INPUT n
LOOP UNTIL n > 4
FOR q = 1 TO LEN(a$)
   n$ = MID$(a$, q, 1)
   GOSUB Zh
   SLEEP
NEXT q
END
Zh:
SELECT CASE n$
   CASE "A"
     PRINT TAB(n); "A"
     FOR i = 2 TO n
       PRINT TAB(n + 1 - i);
       IF i <> FIX(n / 2 + .5) THEN
         PRINT "A"; SPC((i - 1) * 2 - 1); "A"
       ELSE
         PRINT STRING$((i - 1) * 2 + 1, "A")
       END IF
     NEXT i
   CASE "B"
     FOR i = 1 TO 2
       PRINT STRING$(n, "B")
       x = n
       FOR j = 1 TO (n - 3) \ 2
         IF ((n - 3) \ 2) MOD 2 = 0 AND j = (n - 3) \ 2 \ 2 + 1 THEN 1
         IF j > (n - 3) \ 2 \ 2 + 1 THEN x = x - 1 ELSE x = x + 1


1        PRINT "B"; TAB(x); "B"
       NEXT j
     NEXT i
     PRINT STRING$(n, "B")
   CASE "C"
     PRINT SPC(FIX(n / 2 - .5)); STRING$(n, "C")
     x = FIX(n / 2 + .5)
     FOR i = 2 TO n - 1
       IF i > FIX(n / 2 + .5) THEN x = x + 1 ELSE x = x - 1
       PRINT TAB(x); "C"
     NEXT i
     PRINT TAB(FIX(n / 2 + .5)); STRING$(n, "C")
   CASE "D"
     PRINT STRING$(n, "D")
     x = n
     FOR i = 2 TO n - 1
       PRINT "D";
       IF i > FIX(n / 2 + .5) THEN x = x - 1 ELSE x = x + 1
       PRINT TAB(x); "D"
     NEXT i
     PRINT STRING$(n, "D")
   CASE "E"
     FOR i = 1 TO 2
       PRINT STRING$(n, "E")
       FOR j = 1 TO FIX(n / 2 - 1.5)
         PRINT "E"
     NEXT j, i
     PRINT STRING$(n, "E")
   CASE "F"
     FOR i = 1 TO 2
       PRINT STRING$(n + 1, "F")
       FOR j = 1 TO FIX(n / 2 - 1.5)
         PRINT "F"
     NEXT j, i
     PRINT "F"
   CASE "G"
     PRINT SPC(FIX(n / 2 - .5)); STRING$(n, "G")
     x = FIX(n / 2 + .5)
     FOR i = 2 TO FIX(n / 2 - .5)
       x = x - 1
       PRINT TAB(x); "G"
     NEXT i
     PRINT "G"; TAB(n); STRING$(FIX(n / 2 + .5), "G")
     FOR i = FIX(n / 2 + 1.5) TO n - 1
       x = x + 1
       PRINT TAB(x - 1); "G"; TAB(n + FIX(n / 2 - .5)); "G"
     NEXT i
     PRINT SPC(FIX(n / 2 - .5)); STRING$(n, "G")
   CASE "H"
     FOR i = 1 TO n
       IF i <> FIX(n / 2 + .5) THEN
         PRINT "H"; TAB(n); "H"
       ELSE
         PRINT STRING$(n, "H")
       END IF
     NEXT i
   CASE "I"
     PRINT STRING$(n, "I")
     FOR i = 2 TO n - 1
       PRINT TAB(FIX(n / 2 + .5)); "I"


     NEXT i
     PRINT STRING$(n, "I")
   CASE "J"
     PRINT STRING$(n, "J")
     FOR i = 1 TO FIX(n / 2 - .5)
       PRINT TAB(FIX(n / 2 + .5)); "J"
     NEXT i
     FOR i = 1 TO n \ 2 - ABS((n \ 2) MOD 2 = 1)
       PRINT "J"; TAB(FIX(n / 2 + .5)); "J"
     NEXT i
     PRINT " " + STRING$(FIX(n / 2 - 1.5), "J")
   CASE "K"
     x = n - (n \ 2 - 2)
     FOR i = 1 TO n
       IF i > FIX(n / 2 + .5) THEN x = x + 1 ELSE x = x - 1
       PRINT "K"; TAB(x); "KK"
     NEXT i
   CASE "L"
     FOR i = 1 TO n - 1
       PRINT "L"
     NEXT i
     PRINT STRING$(n, "L")
   CASE "M"
     PRINT "M"; TAB(n * 2 - 1); "M"
     x = 1
     FOR i = 2 TO n - 1
       x = x + 1
       PRINT "M"; TAB(x); "M"; TAB(n * 2 - x); "M";
       PRINT TAB(n * 2 - 1); "M"
     NEXT i
     PRINT "M"; TAB(FIX((n * 2 - 1) / 2 + .5)); "M"; TAB(n * 2 - 1); "M";
   CASE "N"
     PRINT "N"; TAB(n); "N"
     x = 1
     FOR i = 2 TO n - 1
       x = x + 1
       PRINT "N"; TAB(x); "N"; TAB(n); "N"
     NEXT i
     PRINT "N"; TAB(n); "N"
   CASE "O"
     x = FIX(n / 2 + .5)
     PRINT TAB(x); STRING$(n - 1, "O")
     y = x + n - 2
     IF n MOD 2 = 0 THEN z = n - 2 ELSE z = n - 1
     FOR i = 2 TO z
       IF i > FIX(n / 2 + .5) THEN
         x = x + 1: y = y - 1
       ELSE
         x = x - 1: y = y + 1
       END IF
       PRINT TAB(x); "O"; TAB(y); "O"
     NEXT i
     PRINT TAB(FIX(n / 2 + .5)); STRING$(n - 1, "O")
   CASE "P"
     PRINT STRING$(n, "P")
     x = n
     FOR i = 1 TO (n - 3) \ 2
       IF (n - 3) \ 2 MOD 2 = 0 AND i = (n - 3) \ 2 \ 2 + 1 THEN 2
       IF i > (n - 3) \ 2 \ 2 + 1 THEN x = x - 1 ELSE x = x + 1


2      PRINT "P"; TAB(x); "P"
     NEXT i
     PRINT STRING$(n, "P")
     FOR i = 1 TO FIX(n / 2 - .5)
       PRINT "P"
     NEXT i
   CASE "Q"
     x = FIX(n / 2 + .5)
     PRINT TAB(x); STRING$(n - 1, "Q")
     y = x + n - 2
     IF n MOD 2 = 0 THEN z = n - 2 ELSE z = n - 1
     FOR i = 2 TO z - 1
       IF i > FIX(n / 2 + .5) THEN
         x = x + 1: y = y - 1
       ELSE
         x = x - 1: y = y + 1
       END IF
       PRINT TAB(x); "Q"; TAB(y); "Q"
     NEXT i
     PRINT TAB(x + 1); "Q"; TAB(y - 2); "QQ"
     PRINT TAB(FIX(n / 2 + .5)); STRING$(n, "Q")
     x = n + FIX(n / 2 - .5)
     FOR i = 1 TO FIX(n / 2 - 1.5)
       x = x + 1
       PRINT TAB(x); "Q"
     NEXT i
   CASE "R"
     PRINT STRING$(n, "R")
     x = n
     FOR i = 1 TO (n - 3) \ 2
       IF (n - 3) \ 2 MOD 2 = 0 AND i = (n - 3) \ 2 \ 2 + 1 THEN 3
       IF i > (n - 3) \ 2 \ 2 + 1 THEN x = x - 1 ELSE x = x + 1
3      PRINT "R"; TAB(x); "R"
     NEXT i
     PRINT STRING$(n, "R"): x = 3
     FOR i = 1 TO FIX(n / 2 - .5)
       PRINT "R"; TAB(x); STRING$(n - 3, "R")
       x = x + 1
     NEXT i
   CASE "S"
     PRINT TAB(FIX(n / 2 - .5)); STRING$(n, "S")
     x = FIX(n / 2 - .5)
     FOR i = 1 TO (n - 3) \ 2
       IF (n - 3) \ 2 MOD 2 = 0 AND i = (n - 3) \ 2 \ 2 + 1 THEN 4
       IF i > (n - 3) \ 2 \ 2 + 1 THEN x = x + 1 ELSE x = x - 1
4      PRINT TAB(x); "S"
     NEXT i
     PRINT TAB(FIX(n / 2 - .5)); STRING$(n, "S")
     x = n + FIX(n / 2 - 1.5)
     FOR i = 1 TO (n - 3) \ 2
       IF (n - 3) \ 2 MOD 2 = 0 AND i = (n - 3) \ 2 \ 2 + 1 THEN 5
       IF i > (n - 3) \ 2 \ 2 + 1 THEN x = x - 1 ELSE x = x + 1
5      PRINT TAB(x); "S"
     NEXT i
     PRINT STRING$(n + FIX(n / 2 - 1.5), "S")


   CASE "T"
     PRINT STRING$(n, "T")
       FOR i = 2 TO n
         PRINT TAB(FIX(n / 2 + .5)); "T"
       NEXT i
   CASE "U"
     FOR i = 1 TO n - 1
       PRINT "U"; TAB(n); "U"
     NEXT i
     PRINT TAB(2); STRING$(n - 2, "U")
   CASE "V"
     FOR i = 1 TO n - FIX(n / 2 - .5)
       PRINT "V"; TAB(n); "V"
     NEXT i
     x = 1
     FOR i = n - FIX(n / 2 - .5) TO n - 2
       x = x + 1
       PRINT TAB(x); "V"; TAB(n + 1 - x); "V"
     NEXT i
     IF n MOD 2 = 1 THEN
       PRINT TAB(n \ 2 + 1); "V"
     ELSE
       PRINT TAB(n / 2); "VV"
     END IF
   CASE "W"
     FOR i = 1 TO n - FIX(n / 2 - .5)
       PRINT "W"; TAB(n); "W"; TAB(n + n - 1); "W"
     NEXT i
     x = 1: y = n
     FOR i = n - FIX(n / 2 - .5) TO n - 2
       x = x + 1
       y = y + 1
       PRINT TAB(x); "W"; TAB(n + 1 - x); "W";
       PRINT TAB(y); "W"; TAB(n * 2 - (y - n) - 1); "W"
     NEXT i
     IF n MOD 2 = 1 THEN
       PRINT TAB(n \ 2 + 1); "W"; TAB(n + n \ 2); "W"
     ELSE
       PRINT TAB(n / 2); "WW"; TAB(n + n / 2 - 1); "WW"
     END IF
   CASE "X"
     FOR i = 1 TO FIX(n / 2 - .5)
       x = x + 1
       PRINT TAB(x); "X"; TAB(n + 1 - x); "X"
     NEXT i
     IF n MOD 2 = 0 THEN
       PRINT TAB(n / 2); "XX"
       PRINT TAB(n / 2); "XX"
     ELSE
       PRINT TAB(n \ 2 + 1); "X"
     END IF
     x = FIX(n / 2 + .5)
     IF n MOD 2 = 0 THEN p = n - 1 ELSE p = n
     FOR i = FIX(n / 2 + 1.5) TO p
       x = x - 1
       PRINT TAB(x); "X"; TAB(n + 1 - x); "X"
     NEXT i
   CASE "Y"
     FOR i = 1 TO FIX(n / 2 - .5)
       x = x + 1
       IF n MOD 2 = 1 THEN PRINT TAB(x); "Y"; TAB(n + 1 - x); "Y"
       IF n MOD 2 = 0 THEN PRINT TAB(x); "YY"; TAB(n + 1 - x); "YY"
     NEXT i
     IF n MOD 2 = 0 THEN PRINT TAB(n / 2); "YY" ELSE PRINT TAB(n \ 2 + 1); "Y"
       FOR i = FIX(n / 2 + 1.5) TO n
         IF n MOD 2 = 1 THEN PRINT TAB(n \ 2 + 1); "Y"
         IF n MOD 2 = 0 THEN PRINT TAB(n / 2); "YY"
       NEXT i
   CASE "Z"
     PRINT STRING$(n, "Z")
     FOR i = 2 TO n - 1
       PRINT TAB(n + 1 - i); "Z"
     NEXT i
     PRINT STRING$(n, "Z")
   CASE ELSE
     PRINT "DATA ERROR!": SLEEP: CLS : GOTO 0
END SELECT
RETURN


楼主，说真的，你的程序实在是太长了.

不长怎么行啊，26个英文字母还要输入大小，一共26个规律！！！怎么可能不长！！！

楼主 六楼说的没错，你的程序太长了，好久没来QBASIC吧了，，，， 找一个点阵字库 然后把以字符来填充点阵。这是比较常规的办法，楼主你这些不是写程序，而是用代码在一行一行的输出格式，没有逻辑判断可言啊

支持楼上

太长

厉害