Imports System

'EJEMPLO CALCULO VELOCIDAD 

'REALIZADO POR FABIO GODOY 

​

​

Public Module Module1

    Public Sub Main()

        Console.WriteLine("OPCION 1. CALCULE VELOCIDAD")

        Console.WriteLine("OPCION 2. CALCULE DISTANCIA")

        Console.WriteLine("OPCION 3. CALCULE TIEMPO")

        DIM OPCION AS INTEGER 

        OPCION=CONSOLE.ReadLine()   

    SELECT OPCION

        CASE 1 

            DIM V, S, T AS DOUBLE

            CONSOLE.WriteLine("INGRESE DISTANCIA")

            CONSOLE.WriteLine("INGRESE TIEMPO")

            S= CONSOLE.ReadLine()

            T= CONSOLE.ReadLine()

            V=S/T

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

        CASE 2 

            DIM V, S, T AS DOUBLE

            CONSOLE.WriteLine("INGRESE VELOCIDAD")

            CONSOLE.WriteLine("INGRESE TIEMPO")

            V= CONSOLE.ReadLine()

            T= CONSOLE.ReadLine()

            S=V*T

            CONSOLE.WriteLine("LA DISTANCIA ES: "&S)

        CASE 3

            DIM V, S, T AS DOUBLE

            CONSOLE.WriteLine("INGRESE DISTANCIA")

            CONSOLE.WriteLine("INGRESE VELOCIDAD")

            S= CONSOLE.ReadLine()

            V= CONSOLE.ReadLine()

            T=S/V

            CONSOLE.WriteLine("EL TIEMPO ES: "&T)

        END SELECT 

    End Sub

End Module