Imports System

'Sylvester Somerselle

'11/17/21

'Speed Limit Program

Public Module Module1

    Public Sub Main()

        Dim speed As Integer

        Dim message As String

        Console.WriteLine("Please enter the speed")

        Speed = Console.ReadLine()

        Select Case Speed

        Case 30                                                                         'Single Case

                message = "You are going the speed limit"

        Case 28,29,31,32                                                                'Multiple Explicit Cases

                message = "You are around the speed limit"

        Case 33 To 35                                                                   'Bounded Range

                message = "You are slightly over the speed limit"

        Case Is < 28                                                                    'Single Bounded Range

            message =  "go faster!!!"

        Case Else                                                                       'Case Else/Catch All

            message = "SLOW DOWN!!!"

        End Select

        Console.WriteLine(message)

    End Sub

End Module