Question

VB运行时单击窗体,用Inputbox函数输入行数,根据行数打印杨辉三角

VB程序设计教程第三版中练习7-11编程序实现：运行时单击窗体，用Inputbox函数输入行数，然后根据该行数在窗体上打印杨辉三角
1
1 1
1 2
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
共10行呢

Answer 1

Private Sub Form_Click()
Dim n As Integer, a() As Integer, i As Integer, j As Integer
n = Val(InputBox("请输入行数"))
ReDim a(1 To n, 1 To n)
For i = 1 To n
    For j = 1 To i
        If j = 1 Or j = i Then
            a(i, j) = 1
        Else
            a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
        End If
        Print a(i, j);
    Next
    Print
Next
End Sub

追问

首先感谢您的回答，不过我还想问一下如果杨辉三角行数不限制那么程序应该如何修改呢？

追答

不限制？那总得有个限制吧？比如说20行：
n = 20