Imports System

Public Module Module1

    Public Sub Main()

        'Declaring Num and Num1 as Integer;

        Dim Num as Integer

        Dim Num1 as Integer 

        Dim Response as Char

        Dim Firstname, Surname as String 'declaring firstname and surname as string'

        Console.WriteLine("please enter your firstname;")

        Firstname = Console.ReadLine()

        Console.WriteLine("please enter your surname;")

        Surname = Console.ReadLine()

        Console.WriteLine("Hello" & Firstname & Surname )

        Console.WriteLine("Please enter your favourite Num")

        Num = Console.ReadLine()

        Console.WriteLine("Please enter your favourite Num1;")

        Num1 = Console.Readline()

        Console.WriteLine("what would you like to do with these numbers *,-,+,/?")

        Response = Console.ReadLine()'setting up the calcuation based on the response of the end user'

        If Response = "*" Then

            Console.WriteLine("The answer is:"& Num * Num1 )

        ElseIf Response = "-" Then

            Console.WriteLine("The answer is:"& Num - Num1 )

        ElseIF Response = "+"

            Console.WriteLine("The answer is:"& Num + Num1 )

        ElseIF Response = "/"

            Console.WriteLine("The answer is:"& Num / Num1 )

        End If

        Console.WriteLine("Thank you for playing "& Firstname & Surname, "you did very well")

​

    End Sub

End Module