VB编程:编写程序,输出“杨辉三角形”。
杨辉三角形每一行是(x+y)的n次方的展开式的各项系数。例如第一行系数是1;第二行1,1;第三行1,2,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 程序设计教程第四版答案 刘炳文 编著