求一个VB编写菱形的代码

Private Sub Command1_Click()
For i = -8 To 8 Step 2
Print Space(Abs(i) / 2 + 2) & String(9 - Abs(i), "*")
Next i
End Sub

Private Sub Form_Click()
Dim i As Integer
Me.Cls
For i = 1 To 9
If i <= 5 Then
Print String(5 - i, " ") & String(2 * i - 1, "*")
Else
Print String(i - 5, " ") & String(19 - 2 * i, "*")
End If
Next
End Sub

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim m As Integer
m = 9'm是行数
k = 1
For i = 0 To m \ 2 - 1
Print Space$(m \ 2 - i);
For j = 1 To k
Print "*";
Next j
Print
k = k + 2
Next i
If m Mod 2 = 0 Then k = k - 2
For i = m \ 2 To m - 1
Print Space$(i - m \ 2);
For j = 1 To k
Print "*";
Next j
Print
k = k - 2
Next i