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

            Console.WriteLine("")

            v=Console.ReadLine()

            Console.WriteLine("")

            t=Console.ReadLine()

            x=v*t

            Console.WriteLine("")

            'tiempo

        case 3

            Console.WriteLine("")

            x=Console.ReadLine()

            Console.WriteLine("")

            v=Console.ReadLine()

            t=x/v

            Console.WriteLine("")

        End select 

    End Sub

End Module