Imports System, Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

    'Guessing Game Program'

    'Evynn Gomez'

    Randomize()

    'Variables'

    Dim secretNumber As Integer = Int(Rnd() * (20 - 1 + 1) + 1)

    Dim userGuess As Integer

​

    'Input'

    Console.WriteLine("Guess a number between 1 and 20")

    userGuess = Console.ReadLine

​

    'Calculations'

    If userGuess = secretNumber Then

    Console.WriteLine("Congrats! You guessed the number in 1 try!")

    ElseIf userGuess > secretNumber Then

    Console.WriteLine("That guess is too high, try again.")

    ElseIf userGuess < secretNumber Then

    Console.WriteLine("That guess is too low, try again.")

    End If

  userGuess = Console.Readline

​

    If userGuess = secretNumber Then

    Console.WriteLine("Congrats! You guessed the number in 1 try!")

    ElseIf userGuess > secretNumber Then

    Console.WriteLine("That guess is too high, try again.")

    ElseIf userGuess < secretNumber Then

    Console.WriteLine("That guess is too low, try again.")

    End If

​

  userGuess = Console.ReadLine

​

    If userGuess = secretNumber Then

    Console.WriteLine("Congrats! You guessed the number in 2 tries!")

    ElseIf userGuess > secretNumber Then

    Console.WriteLine("That guess is too high, try again.")

    ElseIf userGuess < secretNumber Then

    Console.WriteLine("That guess is too low, try again.")

    End If

​

    userGuess = Console.ReadLine

​

    If userGuess = secretNumber Then

    Console.WriteLine("Congrats! You guessed the number in 3 tries!")

    ElseIf userGuess > secretNumber Then

    Console.WriteLine("That guess is too high, try again.")

    ElseIf userGuess < secretNumber Then

    Console.WriteLine("That guess is too low, try again.")

    End If

​

    userGuess = Console.ReadLine

​

    If userGuess = secretNumber Then

    Console.WriteLine("Congrats! You guessed the number in 4 tries!")

    ElseIf userGuess > secretNumber Then

    Console.WriteLine("That guess is too high, try again.")

    ElseIf userGuess < secretNumber Then

    Console.WriteLine("That guess is too low, try again.")

    End If

​

    userGuess = Console.ReadLine

​

    If userGuess = secretNumber Then

    Console.WriteLine("Congrats! You guessed the number in 5 tries!")

    ElseIf userGuess > secretNumber Then

    Console.WriteLine("No more guesses, the answer is" & secretNumber)

    ElseIf userGuess < secretNumber Then

    Console.WriteLine("No more guesses, the answer is" & secretNumber)

    End If

    End Sub

End Module