打印一个杨辉三角

Private Sub Form_Load()
Me.AutoRedraw = True
Dim N As Integer, I As Integer, J As Integer
N = 8

Dim SS() As Integer
ReDim SS(1 To N, 1 To N)

For I = 1 To N
SS(I, 1) = 1
SS(I, I) = 1
Next

For I = 3 To N
For J = 2 To I - 1
SS(I, J) = SS(I - 1, J - 1) + SS(I - 1, J)
Next
Next

For I = 1 To N
For J = 1 To I
Print SS(I, J) & vbTab;
Next
Print
Next
End Sub