' DaysOfWeek2 Example

' Input a day code and output the name of the day of week.
' Use Select statement.

Imports System.Console
Public Module Module1

    Public Sub Main()
        Dim dayCode As Integer
        Dim day As String

        Write("Enter day code: ")
        dayCode = ReadLine()
        Select Case dayCode
            Case 1 : day = "Sunday"
            Case 2 : day = "Monday"
            Case 3 : day = "Tuesday"
            Case 4 : day = "Wednesday"
            Case 5 : day = "Thursday"
            Case 6 : day = "Friday"
            Case 7 : day = "Saturday"
            Case Else : day = "Illegal Day Code"
        End Select

        If 1 <= dayCode And dayCode <= 7 Then
            WriteLine("Day of week is " & day & ".")
        Else
            WriteLine(day & ".")
        End If
        ReadLine()
    End Sub

End Module