初学者问题！

Question

又是这个 
aa="" 
for i=1 to 5 
 for t=1 to  i*2+1
   aa=aa & "*" next 
aa=aa & vbcrlf 
next 
msgbox aa

Answer 1

to: _1_(杂牌军营jinesc.6600.org) 
你的方法是错误的，不能得出想要结果，不过还是感谢你的思路，给了我一定的指导。正确的方法如下：For i = 1 To 5
        'Print "i=" & i
        a = ""
        For j = 5 - i To 1 Step -1
            a = a & " "
            'Print "j=" & j
        Next
        For z = 1 To 2 * i - 1
            a = a & "*"
        Next
        Print a & vbCrLf
    Next

Answer 2

to: _1_(杂牌军营jinesc.6600.org) 
你的方法是错误，不能得出所要结果。不过还是要谢谢你的思路，给我起了指导作用。正确方法如下：Private Sub Command1_Click()
    For i = 1 To 5
        'Print "i=" & i
        a = ""
        For j = 5 - i To 1 Step -1
            a = a & " "
            'Print "j=" & j
        Next
        For z = 1 To 2 * i - 1
            a = a & "*"
        Next
        Print a & vbCrLf
    Next
End Sub