Option Base 1
Private Sub Command1_Click()
Dim a(), b(), i, j, k As Integer
i = Val(Text1)
ReDim Preserve a(1)
ReDim Preserve b(1)
a(1) = 1
b(1) = 1
If i = 1 Then
Print 1
Else
For j = 1 To i
a = b
ReDim Preserve a(j)
ReDim Preserve b(j)
Print b(1);
For k = 2 To j
b(k) = a(k - 1) + a(k)
Print b(k);
Next k
Print
Next j
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024