Sub Find_max(ByVal a As Integer(,))
Dim i, j As Integer
Dim newArray As Integer() = New Integer(9) {}
For i = 0 To 2
For j = 0 To 2
newArray(3 * i + j) = a(i, j)
Next
Next
Array.Sort(newArray)
For index2 = 9 To 7 Step -1
Console.Write(newArray(index2) & vbTab)
Next