使用VFP编程输出如下*星形图案。如何编写？？？？

使用VFP编程输出如下*星形图案。如何编写？？？？

CLEAR
g=-1
gkz=2
FOR i=1 TO 7
IF i<=4
gkz=2
ELSE
gkz=-2
ENDIF
g=g+gkz
? REPLICATE("* ", g) at 10-g
ENDFOR追问图形出来了，很符合题意，这个好复杂，没看懂。能不能加些注释。谢谢了。追答CLEAR
g=-1 && *号个数
gkz=2 && 每行增加（减少）数
FOR i=1 TO 7 && 行数控制
IF i<=4 && 4行（包括4行）之前
gkz=2 && 每行增加2个
ELSE && 大于5行
gkz=-2 && 每行减少2个
ENDIF
g=g+gkz && 求*号个数
? REPLICATE("* ", g) at 10-g && 显示个数及位置
ENDFOR

最简单最笨的办法：
设置一个循环，例如M值从（-7）到（7）步长为2的循环，
(M）的绝对值为：7，5，3，1，+1，+3，+5，+7
则（8-（M）的绝对值）分别为：
1，3，5，7，7，5，3，1
依此循环打印为：
*
***
*****
*******
*******
*****
***
*
此时又多了一个7，那么，加个判断去掉一个7就行了
这时还需要定位，加空格，
还要再加一个循环。