'THIS PROGRAM PRINTS DAY OF THE WEEK USING SELECT...CASE STATEMENT

Imports System

Public Module dayOftheWeekUsingSelectCase

    Public Sub Main()

        Dim day As Integer

        Console.WriteLine("Enter day number :: ")

        day = Console.ReadLine()

        Select Case day

            Case 1

                Console.WriteLine("Monday")

            Case 2

                Console.WriteLine("Tuesday")

            Case 3

                Console.WriteLine("Wednesday")

            Case 4

                Console.WriteLine("Thursday")

            Case 5

                Console.WriteLine("Friday")

            Case 6

                Console.WriteLine("Saturday")

            Case 7

                Console.WriteLine("Sunday")

            Case Else

            Console.WriteLine("Enter a Valid Day Number")

        End Select

    End Sub

End Module