[填空題] 以下程序用來(lái)建立一個(gè)10*10矩陣，該矩陣兩條對(duì)角線上的元素為1，其余元素為0，請(qǐng)補(bǔ)充完該程序。 該程序運(yùn)行結(jié)果見(jiàn)下圖。 Private Sub
2021-07-20
[填空題] 以下程序用來(lái)建立一個(gè)10*10矩陣，該矩陣兩條對(duì)角線上的元素為1，其余元素為0，請(qǐng)補(bǔ)充完該程序。
該程序運(yùn)行結(jié)果見(jiàn)下圖。
Private Sub Form_ click()
Dim s(10, 10) As Integer
For n = 1 To 10
For m = 1 To 10
If 【12】 Or 【13】 Then
s (n, m) = 1
Else
s (n, m) = 0
End If
Next m
Next n
For n = 1 To 10
For 【14】 。
Picturel. Print Tab(m * 3); s(n, m)
Next m
Next n
End Sub
正確答案：[12] n=m [13] n=11-m [14] m= 1 To 10
詞條內(nèi)容僅供參考，如果您需要解決具體問(wèn)題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢(xún)相關(guān)領(lǐng)域?qū)I(yè)人士。