求帮忙

VB用二维数组输出杨辉三角 35
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 81
1 9 36 84 126 126 84 36 9 1 --------------------编程问答--------------------

Dim n As Integer, i As Integer, j As Integer

  x = InputBox("请输入n")

  n = Val(x)

  ReDim a(n + 1, n + 1) As Integer

  For i = 1 To n + 1

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

  For i = 3 To n + 1

    For j = 2 To i - 1

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

  Next j, i

  For i = 1 To n + 1

    Print Tab(30 - 2 * i);

    For j = 1 To i

      Print Space(4 - Len(Trim(Str(a(i, j))))); Trim(Str(a(i, j)));

    Next j

    Print

  Next i

供参考! --------------------编程问答-------------------- 你这个是不是VB作业啊
我可以帮你搞定，看看这个帖子：http://bbs.csdn.net/topics/390483573 --------------------编程问答-------------------- 自己动手写写，至少可以学到一点东西吧！

补充：VB ,  基础类