编程打印杨辉三角的前n行

Question

如题所述

Answer 1

Private Sub Command1_Click()
Dim a() As Long
Dim n As Integer, v
Dim i As Integer, j As Integer
v = InputBox("请输入杨辉三角的行数")
If IsNumeric(v) = False Or Len(v) = 0 Then
MsgBox ("输入不是数字或者为空，请重新输入！")
Else
n = v
End If
ReDim a(n, n)
For i = 1 To n
  For j = 1 To i
    If j = 1 Or i = j Then
    a(i, j) = 1
    Else
    a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
    End If
  Next j
Next i
For i = 1 To n
 For j = 1 To i
  Print Tab(n * 3 - 3 * i + 6 * j); a(i, j);
Next j
Next i
End Sub