[填空題] 請(qǐng)?zhí)顚?xiě)下列空白，以實(shí)現(xiàn)運(yùn)行后形成一個(gè)主對(duì)角線(xiàn)上元素值為1，其他元素為0的6×6階矩陣?！ rivate Sub Command1 Click()
2021-07-20
[填空題] 請(qǐng)?zhí)顚?xiě)下列空白，以實(shí)現(xiàn)運(yùn)行后形成一個(gè)主對(duì)角線(xiàn)上元素值為1，其他元素為0的6×6階矩陣。 Private Sub Command1 Click() Dim s(6，6) For i=1 To 6 For j=1 To 6 If i=j Then 【 】 Else 【 】 End If Print 【 】 Next j Print Next i End Sub
正確答案：s(i，j)=1
參考解析：此程序段開(kāi)始聲明了一個(gè)二維數(shù)組，用兩個(gè)For…Next語(yǔ)句嵌套使用為其賦值，當(dāng)滿(mǎn)足條件i = j時(shí)，s(i，j)=1，當(dāng)不滿(mǎn)足i=j時(shí)，s(i，j)=0；最后輸出數(shù)據(jù)，即在屏幕上輸出6×6階矩陣。
詞條內(nèi)容僅供參考，如果您需要解決具體問(wèn)題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢(xún)相關(guān)領(lǐng)域?qū)I(yè)人士。