以下程序用来建立一个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 【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 Print Next n End Sub