Imports System

Public Module Module1

    Public Sub Main()

        dim number as integer

        Console.WriteLine("pick a number between 1 and 6")

        number = console.readline

        select case number 

        case 1 

            console.writeline("Did you hear about the mathematician who’s afraid of negative numbers?")

            console.writeline("He’ll stop at nothing to avoid them")

        case 2

            console.writeline("A bear walks into a bar and says, give me a beer and a cola")

            console.writeline("why the big pause? asks the bartender, the bear shruggs, i dont know, i was born with them")

        case 3

            console.writeline("Why don’t scientists trust atoms?")

            console.writeline("Because they make up everything.")

        case 4

            console.writeline("What do you call an apology written in dots and dashes?")

            console.writeline("Re-Morse code.")

        case 5 

            console.writeline("I told my wife she was drawing her eyebrows too high.")

            console.writeline("She looked at me surprised.")

        case 6

            console.writeline("Why did the M&M go to school?")

            console.writeline("It wanted to be a Smartie.")

        end select

    End Sub

End Module