Module Module1 Sub Main Dim 88 75 Dim newArray As New List Of Integer

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
Module Module1
Sub Main()
Dim a = {{5, 6, 88, 1, 75},
{3, 7, 7, 1, 1},
{3, 5, 7, 1, 1},
{3, 7, 7, 1, 1},
{3, 7, 7, 1, 1}}
Dim newArray As New List(Of Integer)
Dim result
For y = 0 To 4
For x = 0 To 4
newArray.Add(a(x, y))
Next
Next
newArray.Sort()
result = newArray.ToArray
End Sub
End Module