Question

VB编程打印输出杨辉三角?

打印效果如图: 1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
我明明是输入的三角形的杨辉三角,怎么变成那个样子啊,请大家请谅
等边三角形的杨辉三角哟.

Answer 1

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