小弟跪求:VB 星号排列代码问题 哪位高手能解答啊

我做出来了,这是代码,看看吧
Private Sub Form_Click()
Dim i, j, a, b As Integer
For i = 5 To 1 Step -1
For j = i To 1 Step -1
Print "*";
Next j
Print
Next i

For a = 1 To 5
For b = 1 To a
Print "*";
Next b
Print
Next a
End Sub
这是我的原创

具体什么意思？
还没有看明白呢
是不是分别打印两个三角？？

Private Sub Command2_Click()
Dim I As Long, J As Long
Me.AutoRedraw = True
For I = 0 To 3
J = 4 - Abs(I - 4)
Print Tab(5 - J); String(1 + J * 2, "*")
Next
End Sub

Private Sub Command1_Click()
Dim I As Long, J As Long
Me.AutoRedraw = True
For I = 5 To 8
J = 4 - Abs(I - 4)
Print Tab(5 - J); String(1 + J * 2, "*")
Next
End Sub

<%
for i=1 to 7 a=a & "※"
response.write(a)
response.write("<br>")
%>

很简单，用FOR循环外层控制行数，内层控制每行的*号个数。

看不懂