Imports System

Public Module Module1

    Public Sub Main()

        dim v as double

        dim vf as double

        Console.WriteLine("Ingrese la velocidad del automovil en kilommetros por hora")

        v=Console.ReadLine()

        vf=(v*1000)/3600

        Console.WriteLine("La velocidad en metros por segundo es" & vf)

    End Sub

End Module

​