设置屏幕模式为图形模式
计算六个角的坐标
依次画线

应该就是这样吧？

如果用星号的话会不很“正”。

print "     *****"
print "    *     *"
print "   *       *"
print "    *     *"
print "     *****"
end

这应该就是一个吧？

SCREEN 12
LINE (150, 10)-(250, 10)
LINE (150, 10)-(120, 60)
LINE (250, 10)-(275, 60)
LINE (120, 60)-(120, 100)
LINE (275, 60)-(275, 100)
LINE (120, 100)-(150, 150)
LINE (275, 100)-(250, 150)
LINE (150, 150)-(250, 150)

一个是原样输出，一个是图形模式看不清楚，看我的。
CLS
INPUT N
PRINT TAB(N); STRING$(N * 2 - 1, "*")
FOR I = 2 TO N
  PRINT TAB(N + 1 - I); "*"; SPC((I + 1) * 2 - 1); "*"
NEXT I
FOR I = N - 1 TO 2 STEP -1
  PRINT TAB(N + 1 - I); "*"; SPC((I + 1) * 2 - 1); "*"
NEXT I
PRINT TAB(N); STRING$(N * 2 - 1, "*")
END