上面几位的方法要么不现实
CLS
INPUT m
?"0";
FOR i = -m TO m: q = ABS(i)
PRINT TAB(q + 1);
FOR j = -(m - q) TO m - q
IF q < (m + 1) \ 2 AND ABS(j) < (m + 1) \ 2 THEN PRINT " ";  ELSE PRINT "*";
NEXT j: PRINT
NEXT i
END

我是GGbond的好友,为什么不给他这么好的方法加分!!!

2楼的，你不觉的你的方法很那个吗？