Imports System

Public Module Module1

    Public Sub Main()

        dim distance, time, speed, speedlimit, diff as decimal

        Console.WriteLine("Enter distance in metres")

        distance = console.readline() / 1000 'Turns m into km

        console.writeline("Please enter time in seconds")

        time = console.readline() / 3600 'Turns seconds into hours

        console.writeline("Enter speed limit in km/h")

        speedlimit = console.readline() 

        speed = distance / time 

        diff = speed - speedlimit 'diff is how different our speed is to the speed limit

        select case diff

            case is <-5

            console.writeline("fine") 

            case is <0

            console.writeline("close to the speed limit") 

            case is <5

            console.writeline("over the limit")

            case is >5

            console.writeline("well over the limit") 

        End select  

    End Sub

End Module