Question

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

Answer 1

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