Imports System

​

Public Module Module1

​

    Dim var As String

    Dim answer As String

    Dim add As String

    Dim prob As String

    Dim num As String

    Dim equal As String

    Dim equation As double

    Dim AnswerTo as String

    Public Sub Main()

        Console.WriteLine("One step equation solver!")

        Console.WriteLine("Is you problem Add or Subtract: ")

        answer = Console.ReadLine().ToLower()

        '

        If answer = "add" Then

            add = "+"

            prob = "added"

        ElseIf answer = "subtract"

            add = "-"

            prob = "subtracted"

        End If

​

        '

        Console.WriteLine("How many x's are there: ")

        var = Console.ReadLine()

        Console.WriteLine("What is your problem being " & prob & " to:")

        num = Console.ReadLine()

        Console.WriteLine("What is your problem equaled to: ")

        equal = Console.ReadLine()

        '

        If add = "+" Then

            equation = (equal - num)

            AnswerTo = (equation / var)

            Console.WriteLine("x = " & AnswerTo)

        ElseIf  add = "-" Then

            equation = (equal + num)

            AnswerTo = (equation / var)

            Console.WriteLine("x = " & AnswerTo)

        End If

    End Sub

End Module

​