[填空題] 憶知數(shù)組A(4,4),各個元素在運(yùn)行程序時被賦值并打印,形成四除非方陣。請在 【10】 和 【11】 處填處所需的內(nèi)容,使產(chǎn)生一個轉(zhuǎn)置矩陣(即行列互
2021-07-20
[填空題] 憶知數(shù)組A(4,4),各個元素在運(yùn)行程序時被賦值并打印,形成四除非方陣。請在 【10】 和 【11】 處填處所需的內(nèi)容,使產(chǎn)生一個轉(zhuǎn)置矩陣(即行列互換),仍放在數(shù)組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
Next
For k=2 To 4
For j=1 To 【10】
t=a(j,k)
a(j,k)= 【11】
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
正確答案:[A0]a [AA]a(k,j)
參考解析:本題的難點(diǎn)是數(shù)組的下標(biāo)操作。程序的前半部分是產(chǎn)生數(shù)據(jù),后半部分是數(shù)據(jù)交換。空打印 Print操作是換行。
詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。