[填空題] 請在下列空白處填入合適的語句，以實現運行后形成一個主對角線上元素值為1，其他元素為0的6x6階矩。 Private Sub Command1_Cl
2021-07-20
[填空題] 請在下列空白處填入合適的語句，以實現運行后形成一個主對角線上元素值為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表示主對角線位置，值應為1。非主對角線，值為0。輸出矩陣各元素值。
詞條內容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學等領域），建議您咨詢相關領域專業(yè)人士。