Imports System

​

Public Module Module1

​

    Dim r as new Random()

​

    Public Sub Main()

        Dim guess as integer

        Dim random as integer

        Dim numGuesses as integer

        random = GetRandom()

        for idx as Integer = 1 to 20

            Console.WriteLine("Guess a number from 1 to 20")

            guess = Console.ReadLine()

            numGuesses = numGuesses + 1

            if guess = random then

                Console.writeline("You win!")

                exit for

            else

                Console.writeline("You lose!")

            end if

        next

​

        Console.WriteLine("It toook {0} guesses.", numguesses)

    End Sub

​

    Function GetRandom()

        return r.Next(1, 20)

    End Function

End Module

​