编写一个五行五列的二维数组每一行与每一列元素之和的vb程序

Question

如题所述

Answer 1

Private Sub Command1_Click()

   Dim a(6, 6) As Integer

   Randomize

   For i = 1 To 5                    '生成5*5数组

     For j = 1 To 5

       a(i, j) = Int(Rnd * 10)

     Next j

  Next i

  For i = 1 To 5                    '求每行每列的和

    For j = 1 To 5

      a(i, 6) = a(i, 6) + a(i, j)

      a(6, j) = a(6, j) + a(i, j)

    Next j

  Next i

  For i = 1 To 6                    ‘输出

    For j = 1 To 6

      Print Format(a(i, j), "@@@");

      If j = 5 Then Print "  ";

      If i = 6 And j = 5 Then Exit For

    Next j

    Print

    If i = 5 Then Print

  Next i  

End Sub

本回答被提问者采纳