以下程序用来建立一个10*10矩阵,该矩阵两条对角线上的元素为1,其余元素为0,请补充完该程序。 该程序运行结果见下图。 Private Sub Form_ click() Dim s(10, 10) As Integer For n = 1 To 10 For m = 1 To 10 If【 】Or【 】Then s (n, m) = 1 Else s (n, m) = 0 End If Next m Next n For n = 1 To 10 For【 】。 Picturel. Print Tab(m * 3); s(n, m) Next m Print Next n End Sub