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

如题所述

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

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/f7m7spm4smvp82m8vvq.html