[Shook]

Pozdrav!
Za četvrtak 10.01 imam zadatak iz programiranja napraviti niz od 400 slučajnih brojeva od 0 do 999 u matrici 20X20 i od toga napraviti bubble sort. Prvi dio za matricu mi izgleda ovako:

Module Module1
Sub Main()
Dim a(20, 20) As Integer
Dim sluc As Integer
Dim min, max As Integer
Dim randomObject As New Random()
Dim i, j As Integer
sluc = randomObject.Next(1, 999)
For i = 0 To 19
For j = 0 To 19
sluc = randomObject.Next(1, 999)
a(i, j) = sluc
Console.Write(a(i, j) & vbTab)
Next
Console.WriteLine()
Next

End Sub
End Module

Molim Vas da li netko zna koje naredbe trebam napisati da mi se napravi bubble sort?

Unaprijed hvala!