填空题 执行下面的程序，单击命令按钮Command1后，窗体上显示的第一行内容是 1，第二行是 2，第四行是 3。
Option Base 1
Private Sub Command1_Click()
Dim A
A=Array(1, 1, 1, 1)
Call Sub1(A, 4)
For I=1 To 4
Print A(I)
Next I
End Sub
Private Sub Sub1(X, n As Integer)
If n＞1 Then
For I=1 To n
X(n)=X(n)+1
Call Sub1(X, n-1)
Next I
End If
End Sub