php显示n行的杨辉三角,VB程序题：输入整数n，显示出具有n行的杨辉三角形。图E.5 显示 n=8 的效果。 VB源码 Visual Basic程序设计教程(第3版) 龚沛曾...

VB程序题：输入整数n，显示出具有n行的杨辉三角形。图E.5 显示 n=8 的效果。 VB源码 龚沛曾

提示：

1.定义一个二维数组。

2.对下三角各元素进行设置。

3.利用TABA函数确定每列的宽度，使得列对齐。

解题，窗体画一个图片框，一个文本框，一个标签控件，标签的Caption属性为：设置行数。源代码如下：

Option Base 1

Dim A() As Integer

Private Sub Form_Click()

n = Val(Text1.Text)

ReDim A(1 To n, 1 To n)

Picture1.Cls

For I = 1 To n

A(I, 1) = 1

A(I, I) = 1

Next I

For I = 3 To n

For J = 2 To I - 1

A(I, J) = A(I - 1, J) + A(I - 1, J - 1)

Next J, I

For I = 1 To n

'Print Tab(30 - 2 * I);

For J = 1 To I

Picture1.Print Space(4 - Len(Trim(Str(A(I, J))))); Trim(Str(A(I, J)));

Next J

Picture1.Print

Next I

End Sub

运行程序，在文本框输入8，再点窗体，效果图如下：

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

来源：济亨网