用vb编程 编程输出杨辉三角:输入n,显示n+1行,使用一维数组,用动态数组定义,用Print输出.

Private Sub Command1_Click()

Dim a() As Integer

n = InputBox("N=")

ReDim a(0 To n) As Integer

a(0) = 1

For i = 闹竖顷0 To n

  纤禅Print Space(3 * (n - i));

  For 液陆j = i To 1 Step -1

    a(j) = a(j - 1) + a(j): Print Format(a(j), "@@@@@@");

  Next j

  Print Format(a(0), "@@@@@@")

Next i

End Sub