Imports System

​

Public Module Module1

​

    Public Sub Main()

        'declare local variables

        Dim firstName, surName As String

        Dim num1 As Integer

        Dim num2 As Integer

        Dim num3 As Integer

        'prompt user tenter name and two favourite numbers and assign results to the variables

        Console.WriteLine("Please enter your name:")

        firstName = Console.ReadLine()

        Console.WriteLine("Please enter your surname:")

        firstName = Console.ReadLine()

        Console.WriteLine("Pleae enter your favourite number:")

        num1 = Console.ReadLine()

        Console.WriteLine("Pleae enter your second favourite number:")

        num2 = Console.ReadLine()

        'display greeting name and the product of the two numbers

        Console.WriteLine("Hi "& firstName & surName & ", the product of your two favourite numbers is: " & num1 * num2)

    End Sub

End Module

​