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版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://www.wb98.com/post/84.html