用B语言 用过程、递归函数编写：打印杨辉三角（打印7行）

建Command1.代码如下。其中7是行数，可修改。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Option Explicit
Sub YHTriangle(n As Integer)
Dim i As Integer, j As Integer
ReDim a(1 To n, 1 To n) As Integer
For i = 1 To n
If i = 1 Then
a(i, 1) = 1
Else
For j = 1 To i
If j = 1 Then
a(i, j) = 1
ElseIf j = i Then
a(i, j) = 1
Else
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
End If
Next
End If
Next
For i = 1 To n
For j = 1 To i
Print a(i, j),
Next
Print
Next
End Sub

Private Sub Command1_Click()
YHTriangle (7)
End Sub