Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Calculo de velocidad")

        Console.Writeline("opcion 1, calculo de velocidad")

        Console.Writeline("Opcion 2, calculo de distancia")

        Console.Writeline("Opcion 3, calculo de tiempo")

        DIM OPCION

        OPCION= Console.Readline()

        SELECT OPCION 

        Case 1

            Console.Writeline("ingrese distancia")

            Console.Writeline("ingrese tiempo")

            V= CONSOLE.Readline()

            T= CONSOLE.Writeline()

            S=V=T

            Console.Writeline"La distancia es: " &v)

    CASE 2

        Console.Writeline("Ingrese Velociadad")

        Console.Writeline("Ingrese Tiempo")

        V= Console.Readline()

        T= Console.Readline()

        S=V*T

        Console.Writeline("La distancia es: " &s)

    CASE 3

        Console.Writeline("Ingrese Velocidad")

        Console.Writeline("Ingrese Distancia")

        V=

            DIM S, T, V AS DOUBLE

            S= Console.readline()

        End select

    Case 2

        End Sub

End Module