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

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

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

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