填空题
忆知数组A(4，4)，各个元素在运行程序时被赋值并打印，形成四除非方阵。请在{{U}} 【10】 {{/U}}和{{U}} 【11】 {{/U}}处填处所需的内容，使产生一个转置矩阵(即行列互换)，仍放在数组A中，并打印出来。例如：
1 2 3 4
1 2 3 4
1 2 3 4
l 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 j=1 To{{U}} 【10】 {{/U}}
t=a(j，k)
a(j，k)={{U}} 【11】 {{/U}}
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