Imports System

Public Module Module1

    Public Sub Main()

        Console.writeline("UsingDoWhileLoops | Learn X in Y Minutes")

        Dim answer As String 'We use the variable "String" as the answer is text

        Do 'We start the program with

            Console.Write("First number: ")

            Dim a As Double = Console.ReadLine

            Console.Write("Second number: ")

            Dim b As Double = Console.ReadLine

            Dim c As Double = a + b

            Dim d As Double = a * b

            Dim e As Double = a - b

            Dim f As Double = a / b

            Console.Write(a.ToString() + " + " + b.ToString())

            Console.WriteLine(" = " + c.ToString.PadLeft(3))

            Console.Write(a.ToString() + " * " + b.ToString())

            Console.WriteLine(" = " + d.ToString.PadLeft(3))

            Console.Write(a.ToString() + " - " + b.ToString())

            Console.WriteLine(" = " + e.ToString.PadLeft(3))

            Console.Write(a.ToString() + " / " + b.ToString())

            Console.WriteLine(" = " + f.ToString.PadLeft(3))

            Console.ReadLine()

            'Ask the question, does the user wish to continue? Unfortunately it

            'is case sensitive.

            Console.Write("Would you like to continue? (yes / no) ")

            'The program grabs the variable and prints and starts again.

            answer = Console.ReadLine

        'The command for the variable to work would be in this case "yes"

        Loop While answer = "yes"

    End Sub

End Module