Hey, I have to fuss with bubblesort algorithm, would someone kindly like to review my code?
VB.NET:
Dim intAantalelementen As Integer = number.GetLength(0)
Dim po As Integer = intAantalelementen - 2
Dim i As Integer = 0
Dim intz As Integer = 0
Dim intTemp As Integer = 0
Dim bBool As Boolean = False
For i = 0 To intAantalelementen And bBool = True
Dim j As Integer = 0
Do While j <= po
bBool = False
If number(j) > number(j + 1) Then
intTemp = number(j)
number(j) = number(j + 1)
number(j + 1) = intTemp
bBool = True
End If
j += 1
Loop
i += 1
Next
lbDup.Items.Clear()
While intz < intAantalelementen
lbDup.Items.Add(number(i))
intz += 1
End While
Last edited by a moderator:
