'Primer 12d: bubble sort
Sub bubblesort(niz() As Integer, n As Integer)
   Dim i As Integer
   Dim j As Integer
   Dim pom As Integer

   For i = n - 1 To 1 Step -1
      For j = 1 To i
         If niz(j) > niz(j + 1) Then ' poredimo susedne elemente
            pom = niz(j)
            niz(j) = niz(j + 1)
            niz(j + 1) = pom
         End If
      Next
   Next
End Sub