Imports System

Public Module Module1

    Public Sub Main()

        console.WriteLine(“Enter your car speed to know how much you have to pay for the traffic violation") 

        dim a as single = console.ReadLine()   

        if a >250 then  

        console.WriteLine("You have to pay 1000$")      

        else if a >=200      

        console.WriteLine("You have to pay 700$")           

        else if a >150          

        console.WriteLine("You have to pay 500$")              

        else if a >=100               

        console.WriteLine("You are within the speed limit")

        end if

        End sub  

        End Module