Imports System

Public Module Module1

​

    Dim Method As Integer

    Dim Num As Double = "0"

    Dim Total As String = "0"

    Dim Again As Char = "y"

​

    Public Sub Add()

        Console.WriteLine("How many numbers are you adding?")

        Num = Console.ReadLine()

        For i = 1 To Num

            Console.WriteLine("Enter a number")

            Num = Console.ReadLine()

            Total = Total + Num

            Console.WriteLine(Total)

        Next

        Console.WriteLine("The total is " & Total)

        Console.WriteLine("Do you want to go again? (y/n)")

        Again = Console.ReadLine()

        Console.WriteLine("")

    End Sub

​

    Public Sub Subtract()

        Console.WriteLine("How many numbers are you subtracting?")

        Num = Console.ReadLine()

        Console.WriteLine("What's the starting number?")

        Total = Console.ReadLine()

        For i = 1 To Num

            Console.WriteLine("Enter a number (Don't use a minus symbol)")

            Num = Console.ReadLine()

            Total = Total - Num

            Console.WriteLine(Total)

        Next

        Console.WriteLine("The total is " & Total)

        Console.WriteLine("Do you want to go again? (y/n)")

        Again = Console.ReadLine()

        Console.WriteLine("")

    End Sub

​

    Public Sub Multiply()

        Total = "1"

        Console.WriteLine("How many numbers are you multiplying?")

        Num = Console.ReadLine()

        For i = 1 To Num

            Console.WriteLine("Enter a number")

            Num = Console.ReadLine()

            Total = Total * Num

            Console.WriteLine(Total)

        Next

        Console.WriteLine("The total is " & Total)

        Console.WriteLine("Do you want to go again? (y/n)")

        Again = Console.ReadLine()

        Console.WriteLine("")

    End Sub

​

    Public Sub Divide()

        Console.WriteLine("What's the starting number?")

        Total = Console.ReadLine()

        Console.WriteLine("How many numbers are you dividing?")

        Num = Console.ReadLine()

        For i = 1 To Num

            Console.WriteLine("Enter a number")

            Num = Console.ReadLine()

            Total = Total / Num

            Console.WriteLine(Total)

        Next

        Console.WriteLine("The total is " & Total)

        Console.WriteLine("Do you want to go again? (y/n)")

        Again = Console.ReadLine()

        Console.WriteLine("")

    End Sub

​

    Public Sub Main()

​

        Console.WriteLine("Welcome to the overcomplicated calculator!")

​

        Do While Again = "y"

            Total = "0"

            Console.WriteLine("")

            Console.WriteLine("What mathemetic method do you want to use?")

            Console.WriteLine("1)Adding 2)Subtracting 3)Multiplying 4)Dividing")

            Method = Console.ReadLine()

            If Method = "1" Then

                Call Add()

            ElseIf Method = "2" Then

                Call Subtract()

            ElseIf Method = "3" Then

                Call Multiply()

            ElseIf Method = "4" Then

                Call Divide()

            End If

        Loop

​

        Console.WriteLine("Goodbye")

​

    End Sub

End Module