Sorting names ._.

[MossyMossy]

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]

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

[MossyMossy]

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]

Well you could just test it and see.

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