vb编程，计算二维数组行，列的最大值和最小值

Question

如题所述

Answer 1

Private Sub Command1_Click()
 Dim a(1 To 5, 1 To 8) As Integer
 Dim xn(1 To 2, 1 To 8) As Integer
 Dim i As Integer, j As Integer
 Dim max As Integer, min As Integer
 
 min = 1000
 
 For j = 1 To 8
   xn(2, j) = 1000
 Next
 
 For i = 1 To 5
  For j = 1 To 8
   a(i, j) = Int(Rnd * 100)
   Print Format(a(i, j), "@@@");
   If max < a(i, j) Then max = a(i, j)
   If min > a(i, j) Then min = a(i, j)
   If xn(1, j) < a(i, j) Then xn(1, j) = a(i, j)
   If xn(2, j) > a(i, j) Then xn(2, j) = a(i, j)
   
  Next
  Print " max:"; Format(max, "@@@"); " min:"; Format(min, "@@@")
  min = 1000
  max = 0
 
 Next
 Print
 For i = 1 To 2
  For j = 1 To 8
   Print Format(xn(i, j), "@@@");
  Next
  If i = 1 Then Print " max" Else Print " min"
 Next

End Sub