以下程序的作用是生成一个如下图的矩阵,该程序不完整,请补充完改程序。 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)
主观题
以下程序的作用是生成一个如下图的矩阵,该程序不完整,请补充完改程序。 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)