Imports System
Public Module Module1
Public Sub Main()
Console.WriteLine("MRU")
'Sebastián Holweger
dim opcion as integer
dim d as double
dim t as double
dim x as double
Console.WriteLine("Menu de MRU: 1.velocidad 2.distancia 3.tiempo")
'usamos case
select(opcion)
'velocidad
case 1
Console.WriteLine("Ingrese Distancia")
x=Console.ReadLine()
Console.WriteLine("Ingresar tiempo")
t=Console.ReadLine()
v=x/t
Console.WriteLine("")
'distancia
case 2
v=Console.ReadLine()
x=v*t
'tiempo
case 3
t=x/v
End select
End Sub
End Module