填空题 执行下面的程序，单击按钮Command1，A(1，1)的值是 1，A(1，4)的值是 2，窗体第二行输出的内容是 3。
Option Base 1
Private Sub Command1_Click()
Dim a()As Integer, i As Integer, j As Integer
Dim k As Integer, n As Integer
n=4
ReDim a(n, n)
i=1:j=n:a(i, j)=1
For k=2 To n*n
If i+1＞n Then
i=n-j+2:j=1
ElseIf i+1＜=n And j+1＞n Then
j=j-i:i=1
Else
i=i+1:j=j+1
End If
a(i, j)=k
Next k
For i=1 To n
For j=1 To n
Print Format(a(i, j), "00");
Next j
Print
Next i
End Sub