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

vbyou127

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

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

vbyou127

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