Imports System

​

​

Public Module Module1

        Public Sub Main()

                dim k as integer

                dim c as integer =  10000

                Console.WriteLine("Cuantos kilometros recorrio ")

                k=console.ReadLine()

                if k<=3000 then console.WriteLine("debe pagar " & c+20%)

                        if k> 300 and k <=100000 then console.WriteLine("el monto a pagar es de " & (c+(k-300)*100)+20% )

                                if k >100000 then console.WriteLine("el monto a pagar es de " & c+(k-100000)*+200 )

        End Sub

End Module              

​