主程序：

CLS
DO
INPUT b$
INPUT n
LOOP UNTIL LEN(B$)<=2
a = n - 1: b = n + 1
PRINT TAB(n); b$
FOR i = 2 TO n
 PRINT TAB(a); b$; : PRINT TAB(b); b$
  a = a - 1: b = b + 1
  NEXT i
  a = a + 2: b = b - 2
  FOR i = 2 TO n - 1
   PRINT TAB(a); b$; : PRINT TAB(b); b$;
    a = a + 1: b = b - 1
    NEXT i
    PRINT TAB(n); b$;
    END



样例输入：? G
          ? 7

样例输出：  
      g
     g g
    g   g
   g     g
  g       g
 g         g
g           g
 g         g
  g       g
   g     g
    g   g
     g g
      g


诸如此类不再一一列举。


顺便发一下文本格式，巩固一下用法（用之前在qb7.1文件夹里建一个pp.in的in文件，pp.out就不用建了，系统在程序执行过后自动创建一个对应的out文件）：
CLS
OPEN "pp.in" FOR INPUT AS #1
OPEN "pp.out" FOR OUTPUT AS #2
INPUT #1, b$, n
a = n - 1: b = n + 1
PRINT #2, TAB(n); b$
FOR i = 2 TO n
 PRINT #2, TAB(a); b$; : PRINT #2, TAB(b); b$
   a = a - 1: b = b + 1
     NEXT i
       a = a + 2: b = b - 2
         FOR i = 2 TO n - 1
            PRINT #2, TAB(a); b$; : PRINT #2, TAB(b); b$;
                a = a + 1: b = b - 1
                    NEXT i
                        PRINT #2, TAB(n); b$;
                            END