求用VB打星号，急！！！

Private Sub Command1_Click()

Dim n,i,j

n = 4 '你悔派想要几行就几行

For i = 1 To n

For j = 1 To n - Abs(i - 2) - 2

Print Space(1)

Next

Print "闭丛*"碧态贺

For j = 1 To 2 * Abs(i - 2) - 1

Print Space(1)

Next

If i <>2 Then Print "*"

Print

Next

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer

For i = 1 To 10

For j = 1 To i

Print "*"

Next

Print

Next

End Sub

---