执行下面程序,单击命令按钮Command1,最终A(2,2)的值是（）,A(3,1)的值是（）,A(4,2)的值是（）。
Option Explicit
Option Base 1
Private Sub Commandl_Ciick()
Dim A(4,4)As Integer,i As Integer,j As Integer,k As Integer
For i=1 To 4
For j=1 To 4
k=k+1
A(i,j)=k
Next j
Next i
Call Transform(A)
For i=1 To 4
For j=l To 4
Text1=Text1 & Right(" " & A(i,j),3)
Next j
Text1=Text1 & vbCrLf
Nexti
End Sub
Private Sub Transform(A() As Integer)
Dim i As Integer,j As Integer,n As Intege,t As Integer,k As Integer
n=UBound(A,1)
k=n+1
For i=1 To n/2
For j=1 To n
If i<>j And j<>k-i Then
t=A(i,j)
A(i,j)=A(k-i,k-j)
A(k-i,k-j)=t
End If
Next j
Next i
End Sub