Imports System

Public Module Module1

    Public Sub Main()

        Dim size As Integer = Console.ReadLine()

        Dim array(size - 1) As Integer

        Dim matches As Integer

        Dim rng As New System.Random

        Dim number As Integer

        For index As Integer = 0 To size - 1

            number = rng.Next() Mod size

            array(index) = number

            Console.WriteLine(index & " " & number)

            If index = number Then

                matches += 1

            End If

        Next

​

        Console.WriteLine(matches & " elements matched the index.")

    End Sub

End Module