Imports System

​

Public Module Module1

​

    ' Punto de entrada del programa

    Public Sub Main()

        Dim precio as Double = InputPrecio()                ' Obtener precio

        Dim pct as Double = If(precio < 100, 10, 20)        ' Calcular porcentaje a utilizar en función del precio

        Dim bonus as Double = precio / pct                  ' Calcular valor del porcentaje sobre el precio

        Dim total as Double = precio + bonus                ' Calcular precio final: precio 

        Console.WriteLine(pct & "%: " & bonus)              ' Imprimir porcentaje y valor del porcentaje

        Console.WriteLine("Precio final: " & total)         ' Imprimir precio final

    End Sub

​

    ' Funcion para obtener un precio

    Private Function InputPrecio() as Double

        Dim out as Double                                   ' Integer para almacenar el precio

        While True                                          ' Mientras no tengamos precio

            Console.WriteLine("Precio: ")                   ' Informar al usuario de lo que necesitamos

            Dim inp = Console.ReadLine()                    ' Leer valor desde la consola

            if Double.TryParse(inp, out) then               ' Si el valor es un número

                return out                                  ' Salir del bucle y devolver el número

            else                                            ' En caso contrario

                Console.WriteLine("Precio no válido")       ' Informar que la entrada no es válida

            end if                                          ' Fin del condicional

        end While                                           ' Fin del bucle

    End Function                                            ' Fin de la función

End Module                                                  ' Fin del módulo

​