VB编程题 随机生成5×5二维数组 并输出每行元素的最大值 平均值 和所有

Question

VB编程题 随机生成5×5二维数组 并输出每行元素的最大值 平均值 和所有元素中最大值的行列号。

Answer 1

Private Sub Command1_Click()
  Dim a(1 To 5, 1 To 5) As Integer, intSum(1 To 5) As Integer, intMax(1 To 5) As Integer
  Dim intMaxID(1 To 5) As Integer, intMax1 As Integer, intMaxRowID As Integer, intMaxColumnID As Integer
  Print
  Print "         二维数组           "; "最大值"; " 平均数"
  Print
  Randomize (Timer)
  For i = 1 To 5
    For j = 1 To 5
      a(i, j) = Int(Rnd * 900 + 100)
      If a(i, j) > intMax(i) Then
        intMax(i) = a(i, j)
        intMaxID(i) = j
      End If
      intSum(i) = intSum(i) + a(i, j)
      Print a(i, j);
    Next j
    If intMax(i) > intMax1 Then
      intMax1 = intMax(i)
      intMaxRowID = i
      intMaxColumnID = intMaxID(i)
    End If
    Print Space(4) & intMax(i) & Space(4) & intSum(i) / 5
    Print
  Next i
  Print " 所有元素最大值" & intMax1 & "的行号为" & intMaxRowID; "，列号为" & intMaxColumnID & "。"
  Print
End Sub