Console.WriteLine("Enter a number")
Console.WriteLine("The sum of your numbers is" & " " & i + 1)
Console.WriteLine("Enter a number")
Console.WriteLine("The max number was" & " " & i)
Dim value As Integer = CInt(Int((10000 * Rnd()) + 1))
Console.WriteLine("Guess a number")
If n < value Then Console.WriteLine("Too low")
If n > value Then Console.WriteLine("Too low")
Console.WriteLine("Congratulations you guessed it")
Console.WriteLine("You took" & " " & i & " " & "guesses")
If i > 15 Then Console.WriteLine("You're Shit")
If i <= 15 Then Console.WriteLine("Good job! You're not shit")
Console.WriteLine("Enter a number")
If n = 3 Then Console.WriteLine("Your number is a multiple of three")
If n = 3 Then Console.WriteLine("Your number is a multiple of three")
If n <> 3 Then Console.WriteLine("Your number is not a multiple of three")