Imports System

Public Module Module1

    Public Sub Main()

        Dim a,b,x as Double

        console.WriteLine("a=?")

        a=console.ReadLine()

        console.WriteLine("b=?")

        b=console.ReadLine()

            If a=0 Then

            console.WriteLine("Il n'y a pas de solution") 

            Else 

            x=-b/a

            console.WriteLine("x="&x)

        End If

    End Sub

End Module