Bubble Sort

Public Class Form1
Private num() As Integer = {40, 6, 36, 23, 1}

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'Declarations
'For element of num
Dim list As Integer = 0
'For swapping
Dim temp As Integer = 0
'Outer interation
Dim it As Integer = 1
'Flag to shorten outer interation
Dim no_change As Boolean
'Element change, also -1 because 0 base, -1 again because of list + 1
Dim innerit As Integer = num.Length - 2

'Inner loop
For it = 1 To 4
no_change = True
'Outter loop
For list = 0 To innerit
If num(list) > num(list + 1) Then
'Swap sequence
temp = num(list)
num(list) = num(list + 1)
'Complete swap
num(list + 1) = temp
'Register there is a change
no_change = False
End If
Next
'Largest to bottom, do not include
innerit = innerit - 1
If no_change Then
'If no change, array is sorted, no interation needed
Exit For
End If
'Reset for next iteration
list = 0
Next

ListBox1.DataSource = num
Debug.Print(it)

End Sub
End Class