杨辉三角vb代码.doc

Option ExplicitPrivate Sub Command1_Click() Dim a() As Integer, b() As Integer, i As Integer, j As Integer ReDim b(1) b(1) = 1 For i = 1 To 6 ReDim a(i) ReDim Preserve b(i) Print Space(7 - i); For j = 1 To i a(j) = b(j - 1) + b(j) Print a(j); Next j For j = 1 To i b(j) = a(j) Next j Print Next iEnd SubPrivate Sub Command2_Click() Dim a() As Integer, i As Integer, j As Integer For i = 1 To 6 ReDim Preserve a(i) a(1) = 1 a(i) = 1 For j = i - 1 To 2 Step -1 a(j) = a(j - 1) + a(j) Next j Print Space(7 - i); For j = 1 To i Print a(j); Next j Print Next iEnd SubPrivate Sub Command3_Click() Dim a(6, 6) As Integer, i As Integer, j As Integer For i = 1 To 6 Print Space(7 - i); For j = 1 To i If i = j Or j = 1 Then a(i, j) = 1 Else a(i, j) = a(i - 1, j - 1) + a(i - 1, j) End If Print a(i, j); Next j Print Next iEnd SubPrivate Sub Command4_Click() Dim a(1 To 6, 1 To 13) As Integer, i As Integer, j As Integer a(1, 7) = 1 For i = 2 To 6 For j = 2 To 12 a(i, j) = a(i - 1, j - 1) + a(i - 1, j + 1) Next j Next i For i = 1 To 6 For j = 1 To 12 If a(i, j) = 0 Then Print ; Else Print a(i, j); End If Next j Print Next iEnd SubPrivate Sub Command5_Click() Dim i As Integer, j As Integer, c As Integer For i = 0 To 5 c = 1 Print Space(7 - i); c; For j = 1 To i c = c * (i - j + 1) j Print c; Next j Print Next iEnd SubPrivate Sub Command6_Click() Dim a() As Integer, i As Integer, j As Integer For i = 1 To 6 ReDim Preserve a(i) a(1) = 1 For j = i To 2 Step -1 a(j) = a(j - 1) + a(j) Ne