Imports System

'MENU MRU

'REALIZADO POR: GOPI                

Public Module Module1

    Public Sub Main()

        Console.WriteLine("MENU MRU")

        Console.WriteLine("1. VELOCIDAD")

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

        Console.WriteLine("3. TIEMPO")

        DIM OPCION AS INTEGER

        OPCION = CONSOLE.ReadLine()

        SELECT OPCION

        CASE 1

            VELOCIDAD

        CASE ELSE

            CONSOLE.WriteLine("INGRESE UNA OPCION VALIDA")

        END SELECT

    End Sub

    PRIVATE SUB VELOCIDAD

        'VELOCIDAD = DISTANCIA / TIEMPO

        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()

        'EVALUAR QUE NO SE INGRESE VARIABLE 0

        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

​