vb循环语句的问题

Private Sub Command1_Click()

For i = -3 To 3
Print Tab(Abs(i) + 1); '这句也可以不加,加上后会有自动对齐效果更好,若不加就是你要的图案.
For j = 1 To 7 - Abs(i) * 2
Print "*";
Next j
Print
Next i
End Sub

Private Sub Form_Click()
Const N = 10
Dim a(N, N) As Integer
Dim i, j As Integer
a(0, 0) = 1
a(1, 0) = 1
a(1, 1) = 1
For i = 2 To N - 1
a(i, 0) = 1
a(i, i) = 1
For j = 1 To i - 1
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Next j, i

For i = 0 To N - 1
For j = 0 To i
Print a(i, j);

Next j

Print

Next i

End Sub

VB杨辉三角程序

Dim i As Integer
Dim j As Integer
For i = 0 To 7

If i > 3 Then
For j = 0 To 6 - i
Print "*";
Next
Else
For j = 0 To i
Print "*";