憶知數(shù)組A(4,4),各個(gè)元素在運(yùn)行程序時(shí)被賦值并打印,形成四除非方陣。請(qǐng)?jiān)凇尽亢汀尽刻幪钐幩璧膬?nèi)容,
憶知數(shù)組A(4,4),各個(gè)元素在運(yùn)行程序時(shí)被賦值并打印,形成四除非方陣。請(qǐng)?jiān)凇?】和【 】處填處所需的內(nèi)容,使產(chǎn)生一個(gè)轉(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【 】
t=a(j,k)
a(j,k)=【 】
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
正確答案:aa(kj)a,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è)人士。