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