第2个回答 2012-02-02
Private Sub Command1_Click()
Cls
a = 5: b = -1
For i = 1 To 4
a = a - 1: b = b + 2
Print Space(a);
For j = 1 To 7
If j > b Then Exit For
Print "*";
Next j
Print vbCrLf
Next i
For i = 3 To 1 Step -1
a = a + 1: b = b - 2
Print Space(a);
For j = 1 To 7
If j > b Then Exit For
Print "*";
Next j
Print vbCrLf
Next i
End Sub