用line画线命令就可以了
（应该是吧？不过我QB貌似不能画图，所以没实践过……）

建议楼主 用VB实现 

CLS
INPUT n: PRINT TAB(n * 2 - 1); "*"
FOR i = 2 TO n
   PRINT TAB(n * 2 - i); "*"; STRING$(i * 2 - 3, " "); "*"
NEXT i
FOR i = n - 1 TO 2 STEP -1
   PRINT TAB(n * 2 - i); "*"; STRING$(i * 2 - 3, " "); "*"
NEXT i
PRINT TAB(n * 2 - 1); "*"
END


输入5
输出：
    *
   * *
*   *
*     *
*       *
*     *
*   *
   * *
    *

              *
             * *
             *   *
           *     *
          *       *
           *     *
            *   *
             * *
              *

*
              * *
             *    *
            *      *
           *        *
            *      *
             *    *
              * *
               *


              *
              * *
             *    *
            *      *
           *        *
            *      *
             *    *
              * *
               *
2010-11-17 18:06 回复  


怎么老不对？！

CLS
INPUT n
FOR i = 1 TO n
IF i = 1 THEN PRINT SPC(n - i); "*"
IF i > 1 THEN PRINT SPC(n - i); "*"; SPC(i * 2 - 3); "*"
NEXT i
FOR j = n - 1 TO 1 STEP -1
IF j = 1 THEN PRINT SPC(n - j); "*": END
IF j > 1 THEN PRINT SPC(n - j); "*"; SPC(j * 2 - 3); "*"
NEXT
END


Cls
Input n
Print Spc(n); "*"
For i = -n + 1 To n - 1
   Print Spc(Abs(i)); "*"; Spc((n - Abs(i)) * 2 - 1); "*"
Next i
Print Spc(n); "*"
End

画图的方式：
SCREEN 12
INPUT n: CLS
LINE (n * 10, 1)-(1, n * 15)
LINE (n * 10, 1)-(n * 20, n * 15)
LINE (1, n * 15)-(n * 10, n * 30)
LINE (n * 20, n * 15)-(n * 10, n * 30)
END

这题，输入“1”的正确输出方式是什么？