[填空題] 請(qǐng)?jiān)谙铝锌瞻滋幪钊牒线m的語(yǔ)句，以實(shí)現(xiàn)運(yùn)行后形成一個(gè)主對(duì)角線(xiàn)上元素值為1，其他元素為0的6x6階矩。 Private Sub Command1_Cl
2021-07-20
[填空題] 請(qǐng)?jiān)谙铝锌瞻滋幪钊牒线m的語(yǔ)句，以實(shí)現(xiàn)運(yùn)行后形成一個(gè)主對(duì)角線(xiàn)上元素值為1，其他元素為0的6x6階矩。
Private Sub Command1_Click()
Dim s(6,6)
For i=1 To 6
For i=1 To 6
If i=i Then
(13)
Else
(14)
End If
Print (15)
Nexti
Next i
End Sub
正確答案：[13]s(i，j)=1[14]S(i，j)=0[15]S(i，j)
參考解析：i=j表示主對(duì)角線(xiàn)位置，值應(yīng)為1。非主對(duì)角線(xiàn)，值為0。輸出矩陣各元素值。
詞條內(nèi)容僅供參考，如果您需要解決具體問(wèn)題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢(xún)相關(guān)領(lǐng)域?qū)I(yè)人士。