怎样用VB编☆号

要求:
☆
☆☆☆
☆☆☆☆☆
☆☆☆
☆
麻烦写多几种编法给我
谢谢!!
在上面两行和最下面的两行前面都是有空格的,形状类似一个金字塔

前面是有空格的!!!
前面是有空格的!!!
前面是有空格的!!!
前面是有空格的!!!

方法一：1个循环体
For i = 1 To 5
If i < 4 Then k = 2 Else k = -2
a = a + k
Me.Print String((5 - a + 1) / 2, " ") & String(a - 1, "☆")
Next

方法二：1个循环体
a = 3
b = -1
For i = 1 To 5
If i < 4 Then k = 1 Else k = -1
a = a - k
b = b + k * 2
Me.Print String(a, " ") & String(b, "☆")
Next

因为百度，String(a, " ")中的引号被换成半角空格了。 具体操作时请换成全角空格。

原理：abk每次循环的变化如下
abk
212
131
050
131
212

笨方法就是这样：
Print "☆"
Print "☆☆☆ "
Print "☆☆☆☆☆"
Print "☆☆☆"
Print "☆"

稍微好点的：
Dim i%
For i = 1 To 5
If i < 3 Then
Print String(2 * i - 1, "☆")
Else
Print String(11 - 2 * i, "☆")
End If
Next

还有：
Dim i%
For i = 5 To 1 Step -1
If i < 3 Then