Question

用vb打印三角形

用For循环打印一个等腰三角形，效果如下
*
***
*****，
我编写的是;
for i=1 to 3
for j = 1 to 2*i -1
print "*";
next j
print
next i
想请改进一下达到上面的目的

Answer 1

加一行就行。加完代拆散枝码是：
＝＝＝＝＝＝＝＝＝＝旅敏＝掘败＝
Private Sub Command1_Click()
For i = 1 To 3
Print Space(3 - i); '加这一行
For j = 1 To 2 * i - 1
Print "*";
Next j
Print
Next i
End Sub