题目

[填空题]以下程序用来建立一个10*10矩阵,该矩阵两条对角线上的元素为1,其余元素为0,请补充完该程序。
该程序运行结果见下图。
PrivateSubForm_click()
Dims(10,10)AsInteger
Forn=1To10
Form=1To10
If【12】Or【13】Then
s(n,m)=1
Else
s(n,m)=0
EndIf
Nextm
Nextn
Forn=1To10
For【14】。
Picturel.PrintTab(m*3);s(n,m)
Nextm
Print
Nextn
EndSub

相关标签: 对角线  

提示:未搜索到的试题可在搜索页快速提交,您可在会员中心"提交的题"快速查看答案。
答案
查看答案
相关试题
联系我们 会员中心
返回顶部