Arrange 4561 to 1456 in VB?

Question

any one know how i can rearrange numbers in say 45893 to an order from smallest to biggest in VB as 34589 or 
1555221 as 1122555

MarkG · Accepted Answer

Private Sub Button1_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) _
                          Handles Button1.Click

        Dim str As String = "4561"
        Dim sortedString As String = ""

        Dim myChrs() As Char = str.ToCharArray

        Array.Sort(myChrs)

        For Each element As Char In myChrs
            sortedString = sortedString & element
        Next

        MessageBox.Show(sortedString)
    End Sub

Trending News

Arrange 4561 to 1456 in VB?

1 Answer