Imports System

​

Public Module Module1

Public Sub Main()

Dim I as integer

​

        Dim Sdays() as String = {"Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday"}

​

Console.Writeline("Enter a number: ")

I = Console.ReadLine()

​

If I >= 0 and I <= 7

            Console.WriteLine(Sdays(I))

Else

            Console.WriteLine("Invalid")

End If

​

End Sub

End Module