用vb编程 随机产生两位整数构成的五行五列行列式然后编程计算每行的均值写在第六行每列的均值写在第六

Question

用vb编程 随机产生两位整数构成的五行五列行列式然后编程计算每行的均值写在第六行每列的均值写在第六列

Answer 1

Private Sub Command1_Click()
  Dim a(6, 6)
  For i = 1 To 5
    For j = 1 To 5
      a(i, j) = Int(Rnd * 10) + 10
      Print a(i, j),
      a(i, 6) = a(i, 6) + a(i, j)
    Next j
    Print a(i, 6) / 5
  Next i
  For j = 1 To 5
    For i = 1 To 5
      a(6, j) = a(6, j) + a(i, j)
    Next i
    Print a(6, j) / 5,
  Next j
  Print
End Sub