Imports System

Public Module Module1

    Public Sub Main()

        For test As Integer = 0 To 9

            Console.WriteLine(RndInt(25, 0))

        Next

    End Sub

    'Returns a random integer between max exclusive

    'and min inclusive

    Function RndInt(ByVal max As Integer, ByVal min As Integer)

        Static rng As New System.Random()

        Return rng.Next(min, max)

    End Function

End Module