[填空题] 已知数组A(4，4)，各个元素在运行程序时被赋值并打印，形成四阶方阵。请在 (11) 和 (12) 处填所需的内容，使其产生一个转置矩阵(即行列互换

[填空题] 已知数组A(4，4)，各个元素在运行程序时被赋值并打印，形成四阶方阵。请在 (11) 和 (12) 处填所需的内容，使其产生一个转置矩阵(即行列互换)，仍放在数组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

Fori=1 To 4

a(k,j):j

Print a(k,j);

Next

Print

Next

For k=2 To 4

Forj=1 To (11)

t=a(j,k)

a(j,k)= (12)

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

正确答案：

[11]a [12]a(k，j)

参考解析：

本题的难点是数组的下标操作。程序的前半部分是产生数据，后半部分是数据交换。空打印Print操作是换行。