Question

VB编写5*5矩阵对角线元素为1其

VB编写5*5矩阵对角线元素为1其

产生一个5*5矩阵，使其两对角线的元素为1，其余元素为0

Answer 1

Private Sub Command1_Click()

  Dim a(5, 5) As Integer

  For i = 1 To 5

    For j = 1 To 5

      a(i, i) = 1

      a(i, 6 - i) = 1

    Next j

  Next i

  For i = 1 To 5

    For j = 1 To 5

      Print a(i, j);

    Next j

    Print

  Next i

End Sub