Option Base 1 Dim a() As Integer Private Sub Form_Click() n = Val(InputBox("请输入打印行数")) ReDim a(n, n) For i = 1 To n a(i, 1) = 1: a(i, i) = 1 Next i For i = 3 To n For j = 2 To i - 1 a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next j Next i For i = 1 To n Print Tab(14 - i); For j = 1 To i Print a(i, j); Next j Print Next i End Sub
|