Question

编写一个程序输出n阶杨辉三角

编写一个程序输出n阶杨辉三角

Answer 1

Sub s()
    n = Val(InputBox("input n:"))
    For i = 1 To n
        Debug.Print Space((n - i) * 2);
        For j = 1 To i
            Debug.Print y(i, j);
        Next
        Debug.Print
    Next
End Sub
Function y(n, i)
    If i = 1 Or i = n Then
        y = 1
    Else
        y = y(n - 1, i - 1) + y(n - 1, i)
    End If
End Function