Imports System

Public Module Module1

    Public Sub Main()

        'SOLICITAR AL USUARIO QUE INGRESE EL COSTO DEL PRODUCTO 

        Console.Write("Ingrese el costo del producto (en Q): ")

        Dim costo As Double = Convert.ToDouble(Console.ReadLine())

​

        'CALCULAR EL PORCENTAJE DE GANANCIA SEGÚN LAS POLÍTICAS DE LA EMPRESA

        Dim porcentajeGanancia As Double

        If costo < 100 Then

            porcentajeGanancia = 0.7

        ElseIf costo >= 100 AndAlso costo <= 500 Then

            porcentajeGanancia = 0.5

        Else

            porcentajeGanancia = 0.4

        End If

​

​

        'CALCULAR EL PRECIO DE VENTA

        Dim precioVenta As Double = costo + (costo * porcentajeGanancia)

​

        'MOSTRAR EL PRECIO DE VENTA

        Console.WriteLine("El precio de venta del producto es: Q" & precioVenta)

​

        Console.ReadLine()

    End Sub

End Module