' DaysOfWeek1 Example

' Input a day code and output the name of the day of week.
' Use If..Else statements.

Imports System.Console
Public Module Module1

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

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

        WriteLine(day & ".")
        ReadLine()
    End Sub

End Module