编一个VB程序，输出一个杨辉三角形

也就是说用有关数组的知识编写如下图形：

1

1 1

1 2 1

1 3 3 1

1 4 6 4 1

1 5 10 10 5 1

1 6 15 20 15 6 1

1 7 21 35 35 21 7 1

1 8 28 56 70 56 28 8 1

1 9 36 84 126 126 84 36 9 1

Private Sub Form_Click()

Const N = 10

Dim a(N, N) As Integer

Dim i, j As Integer

a(0, 0) = 1

a(1, 0) = 1

a(1, 1) = 1

For i = 2 To N - 1

a(i, 0) = 1

a(i, i) = 1

For j = 1 To i - 1

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

Next j, i

For i = 0 To N - 1

For j = 0 To i

Print a(i, j);

Next j

Print

Next i

End Sub

• ·启机时提示加载C:\WININT\SYSTEM
• ·保定市哪里有卖风铃的，价钱怎么样？多少钱能买到
• ·如何选购液晶显示器
• ·帮我找找课本剧有什么题材，谢谢！
• ·劲乐团里面43升44需要的失落手镯怎样免费才能
• ·LG的巧克力手机行货现在是多少钱？上海杭州地区
• ·Opinion is divided abou
• ·南京聪明炒货发展几家连锁店了?好喜欢吃哦!
• ·关于电脑的问题
• ·拔智齿后流血不止，应该用什么药？