求用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

---