VB.Net的问题,输入整数n,显示具有n行的杨辉三角形.输入整数n,显示具有n行的杨辉三角形.提示：定义一个二维数组,数组大小由文本框中输入的大小n确定.对下三角各元素进行设置：第一列及对

Question

VB.Net的问题,输入整数n,显示具有n行的杨辉三角形.
输入整数n,显示具有n行的杨辉三角形.
提示：
定义一个二维数组,数组大小由文本框中输入的大小n确定.
对下三角各元素进行设置：第一列及对角线上均为1；其余每一元素正好等于它上面一行的同一列和前一列的两个元素之和.即a(i,j)=a(i-1,j-1)+a(i-1,j).
利用Space(4-Len(Trim(a(i,j))))函数设置每列输出宽度为4,使得列对齐.

Answer 1

参考：
以下为十行的杨辉三角输出,根据这个自己做相应修改,都做好了,那你就是伸手党了.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, j As Integer
Dim n As Integer
n = 10
Dim dete(n, n) As Integer
Dim sum As Integer
For i = 0 To n
For j = 0 To i
If i = 0 Then
dete(i, j) = 1
ElseIf j = 0 Then
dete(i, j) = 1
ElseIf i = j Then
dete(i, j) = 1
Else
dete(i, j) = dete(i - 1, j - 1) + dete(i - 1, j)
End If
Next
Next
For i = 0 To n
For j = 0 To i
Debug.Write(dete(i, j) & " ")
sum += dete(i, j)
Next
Debug.WriteLine(" ")
Next
End Sub
End Class