Imports System

Public Module Module1

    Public Sub Main()           

        dim answer as string

        Console.writeline("Have you done your homework?")

        answer = console.readline()

        Select case answer

        case "yes"

            console.writeline("You get a merit!")

        case "Yes"

            console.writeline("You get a merit!")

        case "Yes i have"

            console.writeline("You get a merit!")

        case "yes i have"

            console.writeline("You get a merit!")

        case "yep"

            console.writeline("You get a merit!")

        case "Yep"

            console.writleine("You get a merit!")

        case "Yeah"

            console.writeline("You get a merit!")

        case "yeah"

            console.writeline("You get a merit!")

            'now do the same with no

            End select

    End Sub

End Module