Public Class Form1

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()

    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        txtGrade1.Text = ""
        txtGrade2.Text = ""
        txtGrade3.Text = ""
        txtGrade4.Text = ""
        txtGrade5.Text = ""
        lblResult.Text = ""
        txtGrade1.Focus()

    End Sub

    Private Sub btnSort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSort.Click
        Dim grades(6) As Integer
        Dim sortedGrades As Integer()

        ' Get grades from textboxes
        grades(0) = txtGrade1.text
        grades(1) = txtGrade2.text
        grades(2) = txtGrade3.text
        grades(3) = txtGrade4.text
        grades(4) = txtGrade5.text

        ' Call the sort
        sortedGrades = sort(grades)

        ' Put values into label
        Dim sortedGradeStr As String = ""

        ' Loop through array and concat
        For Each grade As Integer In grades
            sortedGradeStr = sortedGradeStr & grade.ToString & ""
        Next

    End Sub

    Private Function sort(ByVal values As Integer()) As Integer()

        ' Local variables
        Dim outer As Integer
        Dim inner As Integer
        Dim temp As Integer

        ' Do bubble sort
        For outer = n - 1 To 0 Step -1
            For inner = 0 To outer - 1
                If values(inner) > values(inner + 1) Then
                    temp = values(inner)
                    values(inner) = values(inner + 1)
                    values(inner + 1) = temp
                End If
            Next
        Next

        ' Return the sorted values
        Return values

    End Function
End Class