Imports System

Public Module Module1

    Public Sub Main()

        Dim a,b,c,d,e,f

        Console.Writeline("(a+b)^2 solver with working")

        Console.WriteLine("Input a=")

        a= Console.readline

        Console.WriteLine("Input b=")

        b=Console.readline

        Console.writeline("(a+b)^2 = a^2+b^2+2ab")

        Console.writeline("a^2="&a^2)

        c=a^2

        Console.writeline("b^2="&b^2)

        d=b^2

        Console.writeline("2ab="&2*a*b)

        e=2*a*b

        f= c+d+e

        Console.writeline("Substituting the values,a^2+b^2+2ab becomes "& c & "+"& d &"+" & e &"="&f)

        Console.writeline("So,(a+b)^2="& f &" in this case")

    End Sub

End Module