-----------------------------------

MossyMossy

Thu Nov 05, 2009 6:27 pm


Sorting names ._.

-----------------------------------

I need help and It feels like my heads going to explode,



I need names to be sorted in order as

ABC
ACB
BAC
BCA
CAB
CBA


my Brain is going to explode,

this is what I got so far.

Option Explicit On
Module Module1
    Dim Name1, Name2, Name3
    Sub Main()
        Console.WriteLine("Sorting Three names")
        Console.WriteLine() 'Space'

        Console.Write("Enter the first name: ") : Name1 = Console.ReadLine
        Console.Write("Enter the second name: ") : Name2 = Console.ReadLine
        Console.Write("Enter the third name: ") : Name3 = Console.ReadLine

        If Name1 < Name2 And Name2 < Name3 Then
            Console.Write(Name1 & " " & Name2 & " " & Name3)
        ElseIf Name1 > Name2 And Name2 > Name3 Then
            Console.Write(Name3 & " " & Name2 & " " & Name1)
        ElseIf Name1 > Name2 And Name2 < Name3 Then
            Console.Write(Name2 & " " & Name1 & " " & Name3)
        ElseIf Name1 < Name2 And Name1 > Name3 Then
            Console.Write(Name
        End If
        Console.ReadLine()

    End Sub

End Module


is all i have, my brain is frozen please help.


-----------------------------------

Tony

Thu Nov 05, 2009 6:40 pm


RE:Sorting names ._.

-----------------------------------

Sorting names is just like sorting numbers. You can compare "ab" < "bc" and expect it to work the same as comparing 12 < 23.


-----------------------------------

MossyMossy

Thu Nov 05, 2009 6:43 pm


Re: Sorting names ._.

-----------------------------------

I think i got it


This correct?


Option Explicit On
Module Module1
    Dim Name1, Name2, Name3
    Sub Main()
        Console.WriteLine("Sorting Three names")
        Console.WriteLine() 'Space'

        Console.Write("Enter the first name: ") : Name1 = Console.ReadLine
        Console.Write("Enter the second name: ") : Name2 = Console.ReadLine
        Console.Write("Enter the third name: ") : Name3 = Console.ReadLine

        If Name1 < Name2 And Name2 < Name3 Then
            Console.Write(Name1 & " " & Name2 & " " & Name3)
        ElseIf Name1 > Name3 And Name3 > Name2 Then
            Console.Write(Name1 & " " & Name3 & " " & Name2)
        ElseIf Name2 > Name1 And Name1 < Name3 Then
            Console.Write(Name2 & " " & Name1 & " " & Name3)
        ElseIf Name2 > Name3 And Name3 > Name1 Then
            Console.Write(Name2 & " " & Name3 & " " & Name1)
        ElseIf Name3 > Name1 And Name1 > Name2 Then
            Console.Write(Name3 & " " & Name1 & " " & Name2)
        ElseIf Name1 > Name3 And Name2 > Name1 Then
            Console.Write(Name3 & " " & Name2 & " " & Name1)
        Console.ReadLine()

    End Sub


-----------------------------------

Tony

Thu Nov 05, 2009 6:54 pm


RE:Sorting names ._.

-----------------------------------

Well you could just test it and see.

How would you change the code to sort 4 different names?