Imports System

Public Module Module1

    Public Sub Main()

        Dim a, b, c, opcion, gnc as double

        Dim V, V2, compra, d,   costo as integer

        Console.WriteLine(" Menu de opciones")

        Console.WriteLine("1, Enseñar formula de vieta")

        Console.WriteLine("2, Determinar descuentos")

        Console.WriteLine("3, Calcular precio de venta")

        Console.WriteLine("4, Calculo de notas")

        Console.WriteLine("Ingresa opción: ")

        Opcion= Console.ReadLine()

        Select opcion

        Case 1

            Console.WriteLine("Ingrese el valor de a: ")

            a = Console.ReadLine()

            Console.WriteLine("Ingrese el valor de b: ")

            b = console.ReadLine()

            Console.WriteLine("Ingrese el valor de c: ")

            c = Console.ReadLine()

            V =  (- b + ( b ^ 2 - 4 * a * c ) ^ 0.5 ) / 2 * a

            V2 = (-b - ( b ^ 2 - 4 * a * c ) ^ 0.5 ) / 2 * a

            Console.WriteLine("La raiz usando signo negativo es igual a: "&V)

            Console.WriteLine("La raiz usando signo positivo es igual a:"&V2)

        Case 2 

            Console.WriteLine(" Ingrese el valor consumido" )

            Compra = Console.ReadLine()

            If compra > 300  then 

                D= Compra - compra * 0.05

                Console.WriteLine("Aplicando el descuento sera: "&D)

            end if

            IF compra > 700 then 

                D = Compra - compra * 0.10

                Console.WriteLine("Aplicando el descuento sera: "&D)

            End if

            If compra > 1000 then 

                D = Compra - compra * 0.12

                cONSOLE.WriteLine("Aplicando el descuento sera: "&D)

            End if 

        Case 3

            Console.WriteLine("Ingrese el costo del producto")

            Costo= console.ReadLine()

            If Costo <100 then

                GNC= Costo * 0.70 + costo

                Console.WriteLine("La ganancia sera de :"&GNC)

            END IF

            iF COSTO < 100 AND COSTO > 500 THEN

                gnc = COSTO * 0.50 + COSTO

                cONSOLE.WriteLine("La ganancia sera de : "&gnc)

            end if

            If costo <500 then 

                GNC = costo * 0.40 + costo

                Console.WriteLine("La ganancia sera de : "&gnc)

            end if

        Case 4

        End select

    End Sub

End Module