以下程序的作用是生成一个如下图的矩阵，该程序不完整，请补充完改程序。 Private Sub Command1_Cli

以下程序的作用是生成一个如下图的矩阵，该程序不完整，请补充完改程序。

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