输入整数n,显示出具有n行的杨辉三角形要求：输出的杨辉三角是正三角形

Question

输入整数n,显示出具有n行的杨辉三角形
要求：输出的杨辉三角是正三角形

Answer 1

Dim arrYangHui%(10, 10)
Dim i, j%
For i = 1 To 10
arrYangHui(i, 1) = 1
arrYangHui(i, i) = 1
Next
For i = 2 To 10
For j = 2 To i - 1
arrYangHui(i, j) = arrYangHui(i - 1, j - 1) + arrYangHui(i - 1, j)
Next
Next
Dim MyGraphics As Graphics
' 声明图形变量
MyGraphics = Me.CreateGraphics()
' 将当前窗体设置为图形对象
Dim MyFont As New Font("隶书", 14, FontStyle.Regular, GraphicsUnit.Point)
' 声明字体对象
Dim MyBrush As New SolidBrush(Color.Black)
' 声明黑色的刷子对象
Dim MyPos As New PointF(0, 0)
' 声明一个点对象
Dim strChars$, intLen%
For i = 1 To arrYangHui.GetUpperBound(0)
MyPos.X = 0
For j = 1 To i
strChars = Trim(Str(arrYangHui(i, j)))
intLen = Len(strChars)
strChars = Space(8 - intLen) & strChars
MyGraphics.DrawString(strChars, MyFont, MyBrush, MyPos)
MyPos.X += 8 * MyFont.Size * 2 / 3
' 字体的全身大小的2/3
Next
MyPos.Y += MyFont.GetHeight()
' 字体的行距
Next