Module Module1

    Sub Main()
        Dim a As Integer
        Console.WriteLine(" write 1 for sunday")
        Console.WriteLine(" write 2 for monday")
        Console.WriteLine(" write 3 for tuesday")
        Console.WriteLine(" write 4 for wednesday")
        Console.WriteLine(" write 5 for thursday")
        Console.WriteLine(" write 6 for friday")
        Console.WriteLine(" write 7 for aturday")
        a = Console.ReadLine
        Select Case a
            Case 1
                Console.WriteLine("sunday")
            Case 2
                Console.WriteLine("sunday")
            Case 3
                Console.WriteLine("sunday")
            Case 4
                Console.WriteLine("sunday")
            Case 5
                Console.WriteLine("sunday")
            Case 6
                Console.WriteLine("sunday")
            Case 7
                Console.WriteLine("sunday")
            Case Else
                Console.WriteLine("wrong choice")




        End Select
        Console.ReadLine()


    End Sub

End Module
