[填空题]以下程序用来建立一个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