求帮忙

Question

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

Answer 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供参考!

Answer 2

你这个是不是VB作业啊
我可以帮你搞定，看看这个帖子：http://bbs.csdn.net/topics/390483573