填空题 执行下面程序,单击命令按钮Command1,最终A(2,2)的值是 1(4) 2,A(3,1)的值是 3(5) 4,A(4,2)的值是 5(6) 6。 Option Explicit Option Base 1 Private Sub Commandl_Ciick7 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(A8 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