Question

vb 做出菱形来

如图
*
***
*****
***
*

Answer 1

Private Sub command1_click()
Dim i%, j%
For i = 1 To 5
Print Space(Abs(i - 3));
For j = 1 To 5 - 2 * Abs(i - 3)
Print "*";
Next j
Print
Next i
End Sub

追问

print space (abs(i-3)) 是什么意思？