Imports System

    'MRU            

Public Module Module1

    Public Sub Main()

        dim opcion as integer 

        dim v, s, t as double 

        Console.WriteLine("1. Velocidad, 2. Distancia, 3. Tiempo")

        opcion = Console.ReadLine()

        Select (opcion)

        case 1

            Console.WriteLine("Ingrese distancia")

            s = Console.ReadLine()

            Console.WriteLine("Ingrese tiempo")

            t = Console.ReadLine()

            if (t>0) and (s>0) then

                v = s/t

                Console.WriteLine("La velocidad es: " &v &" m/s")

            else

                Console.WriteLine("Verique los datos ingresados")

            end if 

            case 2

            Console.WriteLine("Distancia")

            Console.WriteLine("Ingrese velocidad")

            v = Console.ReadLine()

            Console.WriteLine("Ingrese tiempo")

            t = Console.ReadLine()

            if (t>0) and (v>0) then

                s = v*t

                Console.WriteLine("La distancia es: " &s &" m")

            else

                Console.WriteLine("Verique los datos ingresados")

            end if 

        end select 

    End Sub

End Module