[填空题] 以下程序用来建立一个10*10矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。 该程序运行结果见下图。 Private Sub Form_ click()Dim s(

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