VB.Net的问题,输入整数n,显示具有n行的杨辉三角形.输入整数n,显示具有n行的杨辉三角形.提示：定义一个二维数组,数组大小由文本框中输入的大小n确定.对下三角各元素进行设置：第一列及对
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,使得列对齐.
参考：
以下为十行的杨辉三角输出,根据这个自己做相应修改,都做好了,那你就是伸手党了.
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dimi,jAsInteger
DimnAsInteger
n=10
Dimdete(n,n)AsInteger
DimsumAsInteger
Fori=0Ton
Forj=0Toi
Ifi=0Then
dete(i,j)=1
ElseIfj=0Then
dete(i,j)=1
ElseIfi=jThen
dete(i,j)=1
Else
dete(i,j)=dete(i-1,j-1)+dete(i-1,j)
EndIf
Next
Next
Fori=0Ton
Forj=0Toi
Debug.Write(dete(i,j)&"")
sum+=dete(i,j)
Next
Debug.WriteLine("")
Next
EndSub
EndClass