vb杨辉三角代码编写_杨辉三角vb代码

Option Explicit

Private 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 i

End Sub

Private 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 i

End Sub

Private 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)