UC知道VB数组 杨辉三角形
来源：百度知道 编辑：UC知道 时间：2024/06/18 05:20:25
要求 用二维数组编杨辉三角形 a(10,10) 用双重FOR循环 每行中的第一个和最后一个数都为1 其余的自动算 然后再用一维数组编一个
Private Sub Form_Click()
Dim i As Integer, j As Integer, m As Integer
m = InputBox("请输入数组的行、列数")
ReDim a(m, m) As Integer
Call P(a, m)
For i = 1 To m
For j = 1 To i
Print Tab(j * 3); a(i, j);
Next j
Print
Next i
End Sub
Private Sub P(b() As Integer, n As Integer)
Dim i As Integer, j As Integer
For i = 1 To n
b(i, 1) = 1: b(i, i) = 1
Next i
For i = 3 To n
For j = 2 To i - 1
b(i, j) = b(i - 1, j - 1) + b(i - 1, j)
Next j, i
End Sub