Imports System

​

Public Module Module1

    Public Sub Main()

        dim inp as integer

        dim r as new random

        dim b as new random

        dim z as integer = b.next(1,6)

        dim a as integer = 0

        dim x(5) as integer

        dim y(5) as integer

        for i = 1 to 5

        x(i) = r.next(1,101)

    y(i) = r.next(1,101)

    next

console.writeline("y is an array which has the following:")

for i = 1 to 5

console.writeline("y(" & i & ") = " & y(i))

next

​

console.writeline("x is an array which has the following:")

for i = 1 to 5

console.writeline("x(" & i & ") = " & x(i))

next

​

a = z

console.writeline("What is x({0}) * y({1})?",a ,a )

inp = console.readline()

if inp = x(a) * y(a)

console.writeline("Correct!")

else

console.writeline("Incorrect. The correct answer is {0}", x(a) * y(a))

​

dim rng(5) as decimal

dim out(5) as decimal

for i = 1 to 5

out(i) = r.next(0,(10 ^ i)) / (10^(i-1))

console.writeline(out(i))

next

end if

    End Sub

End Module