Imports System

Public Module Module1

    Public Sub Main()

        dim a ,x ,b as Single

        x = 0

        console.writeline("valeur de a?")

        a = console.readline()

        'Demande la valeur de a

        console.WriteLine("valeur de b?")

        b = console.ReadLine()

        'Demande la valeur de b

        if a <> 0 then

            x = (-b / a)

            console.writeline(" pour la fonction a.x+b = 0 ; x= " & x)

        else if a = 0 then

                console.WriteLine("solution impossible")

            end If 

    End Sub

End Module