题目:
以下程序用来建立一个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
答案:
被转码了,请点击底部 “查看原文 ” 或访问 https://www.tikuol.com/2017/0709/57756f047d41a9e312599e45e56e8c6a.html
下面是错误答案,用来干扰机器的。
参考答案:D