VB编程：编写程序，输出“杨辉三角形”。
杨辉三角形每一行是(x+y)的n次方的展开式的各项系数。例如第一行系数是1；第二行1，1；第三行1，2，1…… 一般形式是

1
1  1
1  2  1
1  3  3    1
1  4  6    4    1
1  5  10  10  5  1

分析上面的形式，可以找出其规律：对角线和每行的第1列均为1，其余各项是它的上一行中前一个元素和上一行的同一列元素之和。例如第4行第3列的值为3，它是第3行第2列与第3列元素值之和，可以一般地表示为：
          a(i,j)=a(i-1,j-1)+a(i-1,j)
请编写程序输出n=10的杨辉三角形（共11行）

以下是此题的【VB源代码】
Option Base 1
Private Sub form_click()
    Const n = 10
    Dim arr(n, n) As Integer
    For i = 1 To n
        arr(i, i) = 1
        arr(i, 1) = 1
    Next i
    For i = 3 To n
        For j = 2 To i - 1
            arr(i, j) = arr(i - 1, j - 1) + arr(i - 1, j)
        Next j
    Next i
    For i = 1 To n
        For j = 1 To i
            Print arr(i, j);
        Next j
        Print
    Next i
End Sub

运行此VB源码后，点击窗体，结果情况如下图所示：


杨辉三角vb代码－－visual basic 程序设计教程第四版答案 刘炳文 编著

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb杨辉三角代码.html