双击“打印”命令按钮，进入代码编辑窗口，输入如下代码：
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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024