'Algorithm of Bubble Sorting
'AcmBax.Mihanblog.com
'Meysamp16@yahoo.com
Dim a(20) As Integer
Dim temp As Integer
Dim i As Integer
Dim j As Integer
For i = 0 To (UBound(a) - 1)
     For j = 0 To (UBound(a) - 1)
          If (a(j) > a(j + 1)) Then
          
          t = a(j)
          a(j) = a(j + 1)
          a(j + 1) = t
          
          End If
    Next j
Next i