Dim Total , Number as Decimal
Console.WriteLine("Hello Welcome to the basic IQ test")
Console.WriteLine("You must enter in a number then another number and another number and another Number until you reach 100")
Console.WriteLine("You may only enter numbers between 10 and 20 ( 10 and 20 included)")
Console.WriteLine("You Goal is to do this in the most amount of numbers Possible")
Console.WriteLine("Now Begin")
Console.WriteLine("Please enter a Number")
Number = Console.ReadLine()
Console.WriteLine(" Current Total " & Total)
Loop Until Total >= "100" or Number < "10" or Number > "20"
If Number > 20 then Console.WriteLine("You cheated disqualified")
If Number < 10 then Console.WriteLine("Your an idiot and your disqualified") Else Console.WriteLine(" Test Finished, Thank you for Participating, Now measuring your IQ")