Option Explicit
Dim A() As Integer
Dim n As Integer, i, j%
Private Sub Command1_Click()
n = InputBox("请输入杨辉三角的个数", "输入n的植")
Picture1.Print "排列前的杨辉三角："
ReDim A(n, n)
 For i = 1 To n
   For j = 1 To j
    If j = 1 Or j = i Then
      A(i, j) = 1
    Else
      A(i, j) = A(i - 1, j - 1) + A(i - 1, j)
    End If
   Next j, i
 For i = 1 To n
   For j = 1 To i - 1
     Picture1.Print A(i, j);
   Next j
     Picture1.Print
  Next i
 
End Sub

Private Sub Command2_Click()
Picture2.Print "排列后的杨辉三角："
 For i = 1 To n
   For j = 1 To i - 1
     Picture2.Print Tab(50 - i * 3 + j * 6); A(i, j); Spc(1);
   Next j
     Picture2.Print
 Next i
End Sub