Dim N As Integer, A() As Integer, I As Integer, J As Integer, L As IntegerN = Val(InputBox("请输入要打印的行数："))L = 2 * N + 1ReDim A(1 To N, L)A(1, (L + 1) / 2) = 1For I = 2 To N
For J = 1 To L - 1
A(I, J) = A(I - 1, J - 1) + A(I - 1, J + 1)
Next JNext IFor I = 1 To N
For J = 0 To L
If A(I, J) = 0 Then
Print " ";
Else
Print Trim(Str(A(I, J)));
End If
Next J
PrintNext I不可能的，这段代码中测出出现外部过程。你先在窗体上画一个按钮，然后双击按钮，把这段代码复制过去，没有问题的。我这里没有任何问题。你是把所有代码都复制过去吗？ |
