正三角形输出(VB实现)

解决了半天了...做出来的是怪台的..我要求图形输出如下:
111*
11*1*
1*1*1*
*1*1*1*
……………
等.....要求不用数据..最好2个FOR语句OK(嵌套)...谢谢咯!为防止空格删除请大家把1看做空格..谢谢
我要输出这个效果的代码...

Dim i As Integer, j As Integer

For i = 1 To 4

Print Space(4 - i); '前导空白

'主体部分
For j = 1 To i

Print "* ";

Next

Print '换行

Next

这段本质是每行都会多一个空格，可以改成如下版本：

Dim i As Integer, j As Integer

For i = 1 To 4

Print Space(4 - i); '前导空白

'主体部分
For j = 1 To i

Print IIf(j = i, "*", "* ");

Next

Print '换行

Next

Private Sub Form_Load()
Me.AutoRedraw = True
Me.WindowState = 2
PrintStar 50'想输出多少行就改成多少
End Sub

Sub PrintStar(n)
For i = 1 To n
Print Space(n - i);
For j = 1 To i
Print "* ";
Next j
Print