Imports System

Public Module Module1

    Public Sub Main()

        dim words() as string = {"chocolate", "bread", "curry", "burger", "noodles", "steak", "bacon", "pasta", "ham", "sweet corn", "squid"}

        dim randomValue as integer

        dim randomWord as string

        randomValue = GetRandom(0,10)

        randomWord = words(randomValue)

        Console.WriteLine(randomWord & randomWord & randomWord & randomWord )

    End Sub

    Public Function GetRandom(ByVal Min As Integer, ByVal Max As Integer) As Integer

        ' by making Generator static, we preserve the same instance '

        ' (i.e., do not create new instances with the same seed over and over) '

        ' between calls '

        Static Generator As System.Random = New System.Random()

        Return Generator.Next(Min, Max)

    End Function

​

End Module