Dim er(10, 10) As Integer Private Sub Command1_Click() Dim i, j As Integer er(1, 1) = 1 For i = 2 To 10 er(i, 1) = 1 er(i, i) = 1 For j = 1 To i - 1 er(i, j) = er(i - 1, j - 1) + er(i - 1, j) Next j Next i End Sub
代码如下: Option Explicit Dim a(21, 21) As Long Dim b(21) As String Dim i As Byte Dim j As Byte Private Sub Form_Load() a(0, 0) = 1 For i = 1 To 20 For j = 1 To 20 a(i, j) = a(i - 1, j - 1) + a(i - 1, j) If a(i, j) <> 0 Then b(j) = b(j - 1) & " " & a(i, j) End If Next Print b(i) Next End Sub
