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