执行下面程序,单击命令按钮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