VB的另一个问题

'第一种方法
Private Sub Command1_Click()
For i = 1 To 3
Print Tab(4 - i);
For j = 1 To 2 * i - 1
Print "*";
Next
Print
Next
For k = 2 To 1 Step -1
Print Tab(4 - k);
For l = 1 To 2 * k - 1
Print "*";
Next
Print
Next
End Sub
'第二种方法
Private Sub Command2_Click()
For i = -2 To 2
Print Tab(Abs(i) + 1);
For j = 1 To 5 - Abs(i) * 2
Print "*";
Next
Print
Next
End Sub

for i=-2 to 2
print space(abs(i)) & string(5-2*abs(i),"*") & space(abs(i))
next i