输出9行的“杨辉三角形”代码：
Private Sub Command1_Click()
Dim a(20) As Integer
a(1) = 1
For i = 1 To 9
Print Spc(20 - 2 * i);
For j = i To 1 Step -1
a(j) = a(j - 1) + a(j)
Print Format(a(j), "@@@@");
Next j
Print
Next i
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024