Multiple Select Case in VB.Net

1.Multiple Select Case in VB.Net

Module SelectCase

    Sub Main()
        ''Select Case.................................................
        'Dim value As Integer
        'Console.Write("Select Case....> ")
        'value = Integer.Parse(Console.ReadLine())
        'Console.WriteLine()
        'Select Case value
        '    Case 1
        '        Console.WriteLine("You typed one")
        '        Console.WriteLine()
        '    Case 2
        '        Console.WriteLine("You typed two")
        '        Console.WriteLine()
        '    Case 5
        '        Console.WriteLine("You typed five")
        '        Console.WriteLine()
        '    Case Else
        '        Console.WriteLine("You typed something else")
        'End Select
        'Console.ReadLine()
        ''......................................................


        'Dim value As Integer = Integer.Parse(Console.ReadLine())
        'Select Case value
        '    Case 1
        '        Console.WriteLine("You typed one")
        '    Case 2
        '        Console.WriteLine("You typed two")
        '    Case Else
        '        Console.WriteLine("You typed something else")
        '    Case 5
        '        Console.WriteLine("You typed five")

        'End Select
        'Console.ReadLine()
        '...........................................................


        'Dim value As Double
        'Console.Write("Select Case....> ")
        'value = Double.Parse(Console.ReadLine())
        'Console.WriteLine()
        'Select Case value
        '    Case 1.1
        '        Console.WriteLine("You typed one point one")
        '        Console.WriteLine()
        '    Case 2.2
        '        Console.WriteLine("You typed two point two")
        '        Console.WriteLine()
        '    Case 5.5
        '        Console.WriteLine("You typed five point five")
        '        Console.WriteLine()
        '    Case Else
        '        Console.WriteLine("You typed something else")
        'End Select
        'Console.ReadLine()
        '...........................................................


        'Dim value As String = "cat"

        '' Handle first letter.
        'Select Case value(0)
        '    Case "c"
        '        ' Handle second letter.

        '        Select Case value(1)
        '            Case "a"
        '                Console.WriteLine("String starts with c, a")
        '            Case "o"
        '                ' Not reached:
        '                Console.WriteLine("String starts with c, o")
        '        End Select
        'End Select
        'Console.ReadLine()
        '..............................................................


        While True
            Dim value As String
            Console.Write("Select Case....> ")
            value = Console.ReadLine()
            Select Case value
                Case "dot"
                    Console.WriteLine("Word 1")
                Case "net"
                    Console.WriteLine("Word 2")
                Case "perls"
                    Console.WriteLine("Word 3")
                Case Else
                    Console.WriteLine("Something else")
            End Select
        End While
        Console.ReadLine()
        '.....................................................
    End Sub

End Module

https://www.youtube.com/channel/UCKLRUr6U5OFeu7FLOpQ-FSw/videos