Imports System

Imports Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        Dim RandomNumber As New Random

        Dim x(4) as Decimal

        Dim y(4) as Decimal

        Dim Product as Decimal

        For i = 0 to 4

        x(i) = RandomNumber.Next(1,101)

        y(i) = RandomNumber.Next(1,101) 

​

        Console.WriteLine("What is the product of x({0}) and y({0})?",i)

        Product = Console.Readline()

​

        If Product = x(i)*y(i) then

          Console.WriteLine("Yes, you are correct.")

        Else Console.WriteLine("You are incorrect. The product is {0}.",x(i)*y(i))

        End If 

​

        Next

    End Sub

End Module