Option Strict On
Module Module1

    Sub Main()
        Dim intNum1 As Integer
        Dim intNum2 As Integer

        'Declare a new variable named intSum
        'that contains an integer
        Dim intSum As Integer

        'Declare a new variable named intDifference
        'that contains an integer
        Dim intDifference As Integer

        'Declare a new variable named intProduct
        'that contains an integer
        Dim intProduct As Integer

        'Initialize randomization.
        Randomize()

        'Experiment with different numbers for
        'intNum1 and intNum2
        intNum1 = CInt(Int((10 * Rnd()) + 1))
        intNum2 = CInt(Int((10 * Rnd()) + 1))

        'Utilize intSum to find the sum of intNum1 and intNum2
        intSum = intNum1 + intNum2

        'Utilize intProduct to find the product of intNum1 and intNum2
        intProduct = intNum1 * intNum2

        'Utilize intDifference to find the difference of intNum1 and intNum2
        intDifference = intNum1 - intNum2

        'Utilize Console.WriteLine to display intNum1 and intNum2
        Console.WriteLine(intNum1)
        Console.WriteLine(intNum2)

        'Utilize Console.WriteLine to display the sum
        Console.WriteLine(intSum)


        'Utilize Console.WriteLine to display the difference
        Console.WriteLine(intDifference)


        'Utilize Console.WriteLine to display the product
        Console.WriteLine(intProduct)


        Console.Write("Please press Enter to continue...")
        Console.ReadLine()

    End Sub

End Module