QB Program to arrange the names in ascending order.

Dim nam$(5)
For i = 1 To 5
    Input "Name"; nam$(i)
Next
Call arrange(nam$())
End

Sub arrange (nam$())
    For i = 1 To 5
        For j = i + 1 To 5
            If nam$(i) > nam$(j) Then
                Swap nam$(i), nam$(j)
            End If
        Next
    Next
    For i = 1 To 5
        Print nam$(i)
    Next
End Sub