用VB按金字塔形状打印杨辉三角形要求打印前8行,

Private Sub Form_Load()
Me.AutoRedraw = True
Dim a(1 To 8,1 To 8) As Integer
For i = 1 To 8
a(i,i) = 1:a(1,i) = 1
Next i
For j = 3 To 8
For i = 2 To j - 1
a(i,j) = a(i - 1,j - 1) + a(i,j - 1)
Next i,j
For j = 1 To 8
For i = 1 To j
Print Tab(20 - 2 * j + 4 * i); a(i,j);
Next i
Print
Next j
End Su