Imports System

Public Module Module1

    Public Sub Main()

        Dim a, b, c, x1, x2, delta as Single

        Console.WriteLine("Resolution de l'equation ax^2+bx+c=0")

        Console.WriteLine("Entrez la valeur de a :")

        a=Console.ReadLine()

​

        If a=0 then 

            Console.WriteLine("erreur")

        else

            Console.WriteLine("Entrez la valeur de b :")

            b=Console.ReadLine()

            Console.WriteLine("Entrez la valeur de c :")

            c=Console.ReadLine()

            delta=b^2-4*a*c

            If delta > 0

                x1=(-b+(delta)^(1/2))/2a

            x=-(b/a)

            Console.WriteLine("la valeur de x: "& x)

        end if

    End Sub

End Module