填空题 执行下列程序，单击命令按钮Command1后，数组元素A(2，3)的值是 1，A(3，3)的值是 2，A(4，3)的值是 3，文本框第一行的内容是 4。
Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim A(4, 4)As Integer, i As Integer, j As Integer, k As Integer
For i=1 To 4
For i=1 To 4
k=k+1
A(i, j)=k
Next j
Next i
Call Transform(A)
For i=1 To 4
For j=1 To 4
Text1=Text1&Space(1)&Format(A(i, j), "00")
Next j
Text1=Text1&vbCrLf
Next i
End Sub
Private Sub Transform(A() As Integer)
Dim i As Integer, j As Integer, n As Integer, 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