[填空題] 以下程序用來(lái)建立一個(gè)5×5矩陣，該矩陣兩條對(duì)角線上的元素為1，其余元素為0，請(qǐng)補(bǔ)充完該程序。該程序運(yùn)行結(jié)果如下圖所示。 Private Sub f
2021-07-20
[填空題] 以下程序用來(lái)建立一個(gè)5×5矩陣，該矩陣兩條對(duì)角線上的元素為1，其余元素為0，請(qǐng)補(bǔ)充完該程序。該程序運(yùn)行結(jié)果如下圖所示。
Private Sub form Click()
Dim s(5, 5)As Integer
for N =1 To 5
for M = 1 To 5
if 【13】 Or 【14】 then
S(N, M)=1
Else
S(N. M)= 0
End if
Next M
Next N
for N =1 To 5
for 【15】
Picture1. Print Tab(M *3); s(N, M);
Next M
Next N
End Sub
正確答案：[13]n=m[14]n=6-m[15]m=1 To 5
參考解析：本題難點(diǎn)是對(duì)數(shù)組下標(biāo)的操作，矩陣兩條對(duì)角線上的元素在數(shù)組中下標(biāo)的表示形式為“s(i，i)”和“s(1，上界值+1-i)(i=1，2，... n)”?？沾蛴rint操作是換行。
詞條內(nèi)容僅供參考，如果您需要解決具體問(wèn)題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。