Option Base 1Dim a() As IntegerPrivate Sub Form_Click()n = Val(InputBox("请输入打印行数"))ReDim a(n, n)For i = 1 To na(i, 1) = 1: a(i, i) = 1Next iFor i = 3 To n For j = 2 To i - 1 a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next jNext iFor i = 1 To n Print Tab(14 - i); For j = 1 To i Print a(i, j); Next j PrintNext iEnd Sub
答：Dim er(10, 10) As Integer Private Sub Command1_Click() Dim i, j As Integer er(1,...详情>>
