Dim j為Long，t為String，s為String，k為Long，n為Long，s1為String
我。Cls
對於j = 1到3
t =空間(13 - j)
s = " "
n = j + (j - 1)
對於k = 1到n
s =標準普爾。"*"
然後
s1 = " "
對於k = 1到n
如果k = 1或k = n，則
s1 = s1。"*"
其他
s1 = s1。" "
如果…就會結束
然後
t = t & amp標準普爾。空間(15 - n)s1
打印t
然後
對於j = 2到1步進-1
t =空間(13 - j)
s = " "
n = j + (j - 1)
對於k = 1到n
s =標準普爾。"*"
然後
s1 = " "
對於k = 1到n
如果k = 1或k = n，則
s1 = s1。"*"
其他
s1 = s1。" "
如果…就會結束
然後
t = t & amp標準普爾。空間(15 - n)s1
打印t
然後
末端接頭