Imports System

Public Module Module1

    Public Sub Main()

        dim words() as string = {"chocolate", "bread", "curry", "burger", "noodles", "banana"}

        dim randomValue as integer

        dim randomWord as string

        dim input as char

        randomValue = GetRandom(0,6)

        randomWord = words(randomValue)

        Console.WriteLine("A random word has been generated, please guess a letter from the 'secret'word")

        Console.WriteLine(randomWord)

        input = console.readline()

        if input = (randomWord)

            console.writeline("well done, you guessed all of the letters from the word... The word was" & randomWord)

        else

            console.writeline("I'm sorry, you guessed incorrectly. Try again")

        end if

    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