第7章数组(772KB).pptVIP

【例7.7】生成杨辉三角。 　　杨辉三角的两侧全部是1，中间的每个数是其左上方和右上方两个数之和。 Option Explicit Private Sub Command1_Click() Dim n As Integer Dim i As Integer, j As Integer Dim a() As Integer 定义动态数组 n = Val(Text1.Text) ReDim a(1 To n, 1 To n) 重定义动态数组 生成杨辉三角，保存于数组中 For i = 1 To n For j = 1 To i 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 Next 显示杨辉三角 For i = 1 To n For j = 1 To n - i Print ; Next For j = 1 To i