[填空題] 已知數(shù)組A(4，4)，各個元素在運行程序時被賦值并打印，形成四階方陣。請在空白處填入所需的內(nèi)容，使產(chǎn)生一個轉(zhuǎn)置矩陣(即行列互換)，仍放在數(shù)組A中，并打印出來。例如：

1 2 3 4

1 2 3 4

1 2 3 4

1 2 3 4

1 1 1 1

2 2 2 2

3 3 3 3

4 4 4 4

Private Sub Command1_Click()

Dim a(4,4)

For k=1 To 4

For j=1 To 4

a(k,j)=j

Print a(k,j);

Next

Print

Next

For k=2 To 4

For i=1 To (12)

t=a(j,k)

a(j,k)= (13)

a(k,j)=t

Next

Next

For k=1 To 4

Print a(k,1); a(k,2):a(k,3):a(k,4)

Next

End Sub

正確答案：

[AB]D[AC]a(k,j)

參考解析：

本題的難點是數(shù)組的下標操作，程序的前半部分是產(chǎn)生郵數(shù)，程序的后來部分是交換數(shù)據(jù)，空打印print操作是換行。