![[填空题] 以下程序的作用是生成一个如下图的矩阵，该程序不完整，请补充完改程序。 Private Sub Command1_Click() Dim A(3，3) For M=1 To 3](http://www.mshxw.com/aiimages/31/255534.png "[填空题] 以下程序的作用是生成一个如下图的矩阵，该程序不完整，请补充完改程序。 Private Sub Command1_Click() Dim A(3，3) For M=1 To 3")
[填空题] 以下程序的作用是生成一个如下图的矩阵，该程序不完整，请补充完改程序。
![[填空题] 以下程序的作用是生成一个如下图的矩阵，该程序不完整，请补充完改程序。 Private Sub Command1_Click() Dim A(3，3) For M=1 To 3](/uploadfile/member/20180926/1537964629.jpg "[填空题] 以下程序的作用是生成一个如下图的矩阵，该程序不完整，请补充完改程序。 Private Sub Command1_Click() Dim A(3，3) For M=1 To 3")
Private Sub Command1_Click()
Dim A(3，3)
For M=1 To 3
For N=1 To 3
If N=M Or______Then
A(M，N)=1
Else
______=0
End If
Next N
Next M
For M=1 To 3
For N=1 To 3
Print A(M，N)；
Next N
Print
Next M
End Sub
参考答案：
N=3-M+1 A(M，N)问题解析:
解析无
