[填空題] 已知數(shù)組A(4,4)，各個(gè)元素在運(yùn)行程序時(shí)被賦值并打印，形成四除非方陣。請?jiān)?u> (13) 和 (14) 處填入所需的內(nèi)容，使產(chǎn)生一個(gè)轉(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 j=1 To (13)
　　　t=a(j,k)
　　　a(j,k)= (14)
　　　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

a