VB6.0编程实现杨辉三角的打印输出

1、仔细观察杨辉三角的规律可以发现：从第二行开始，每个数都等于肩头上两个数的和。而且还要注意编程时，为了正确显示，每两个数之间有个空格。

2、打开VB6.0，新建一个工程，在窗体中添加一个命令按钮，caption改为“打印”，添加一个图片框控件，用于打印输出，将Form1窗体的caption属性改为“杨辉三角”，将界面设置成下图：

3、双击“打印”命令按钮，进入代码编辑窗口，输入如下代码：

    Dim a(11, 11) As Integer

     m = 11

    For i = 1 To m

    a(i, 1) = 1: a(i, i) = 1

    Next i

    For i = 3 To m

      For j = 2 To i - 1

         a(i, j) = a(i - 1, j - 1) + a(i - 1, j)

      Next j

    Next i

    n = 30

    For i = 1 To m

      Picture1.Print Tab(n);

      k = n

      For j = 1 To i

         Picture1.Print Tab(k);

         Picture1.Print Format(a(i, j), "@@@@@@");

         k = k + 6

      Next j

  Picture1.Print

    n = n - 3

    Next i

4、关闭代码窗口，按下F5运行程序，程序界面如图：

5、单击“打印”命令按钮，图片框Picture1中输出结果，如图：