Imports System

'REALIZADO POR ARI CHARGORODSKY

Public Module Module1       

    Public Sub Main()

        Console.WriteLine("MENU MRU")

        Console.WriteLine("1. VELOCIDAD")

        Console.WriteLine("2. DISTANCIA / ESPACIO")

        Console.WriteLine("3. TIEMPO")

        DIM OPCION AS INTEGER

        OPCION= CONSOLE.ReadLine()

        SELECT OPCION

        CASE 1

            VELOCIDAD

        CASE ELSE

            CONSOLE.WriteLine(" INGRESE OPCION VALIDA")

            MAIN()

        END SELECT

    End Sub

    PRIVATE SUB  VELOCIDAD

        DIM v AS DOUBLE                                                                             

        DIM d, t AS INTEGER

        CONSOLE.WriteLine(" INGRESE DISTANCIA O ESPACIO: ")

        d = CONSOLE.ReadLine()

        CONSOLE.WriteLine(" INGRESE TIEMPO: ")

        t = CONSOLE.ReadLine()

        IF D>0 AND T>0 THEN

            v = d/t

CONSOLE.WriteLine(" LA VELOCIDAD ES: "&V &" M/S")

        ELSE

CONSOLE.WriteLine(" INGRESE VARIABLES MAYORES QUE CERO ")

            MAIN()

        END IF 

    End Sub

End Module