是这个吧？
*
***
*****
Dim a(2, 4) As String, i, j As Integer
Label1.Text = ""
For i = 0 To 2
For j = 0 To 4
If i * 2 >= j Then
a(i, j) = "*"
Else : a(i, j) = " "
End If
Label1.Text &= a(i, j)
Next
Label1.Text &= vbCrLf
Next
是***
**
***
323
我不知道
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024