填空题

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


Private Sub Command1_Click()
Dim A(3，3)
For M=1 To 3
For N=1 To 3
If N=M Or 【7】 Then
A(M，N)=1
Else
【8】 =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