Form1.vb

Public Class Form1
    Dim al() As Integer = {5, 6, 5, 71, 34, 43, 1, 2, 5, 3, 2, 3, 5, 6, 1, 9, 8, 7, 7, 5, 2, 3, 4, 5, 54}
    Dim i As Integer
    Dim l As Integer = al.Length - 1
    Private Sub nextClick(sender As Object, e As EventArgs) Handles NextB.Click
        If al(i) > al(i + 1) Then
            Dim tmp = al(i)
            al(i) = al(i + 1)
            al(i + 1) = tmp
            arrayBox.Text = String.Join(", ", al)
        End If
        i += 1
        If i = l Then
            i = 0
            l -= 1
        End If
    End Sub
    Private Sub form_load(sender As Object, e As EventArgs) Handles MyBase.Load
        arrayBox.Text = String.Join(", ", al)
    End Sub
End Class