Question

VB问题：打印如下所示的杨辉三角形

打印如下所示的杨辉三角形（杨辉三角形为一个下三角矩阵，每一行第一个元素和主对角线上元素都为1，其余每一个数正好等于它上面一行的同一列与前一列数之和）
例：
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
1 6 15 20 15 6 1
1 7 21 35 35 21 7 1

一定要可以运行的程序 要完整的

Answer 1

下面有杨辉三角20行的代码,你可修改后用:
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