Imports System

Public Module Module1

    Public Sub Main()

        dim distance, time, speed, limit as double

        Console.WriteLine("enter distance between sensors in kilometers")

        distance = console.ReadLine()

        console.WriteLine("Now please enter the time it took for you to reach the 2nd sensor in seconds.")

        time = console.readline

        Console.WriteLine("Now enter speed limit in kmph")

        Limit = Console.ReadLine()

        if speed > limit then

            Console.WriteLine("This veichle is speeding")

        Speed = (distance/time*1000)

        console.WriteLine(speed)

        Console.WriteLine("In kmph")

        End if

        End Sub

    End Module 

​