Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim IncrementingNumberToBESquared As Double = 0
- Dim UserInput As Double = 0
- Dim IntermediateCalculationMultiplication As Double = 0
- Console.WriteLine("Input the number to be tested")
- UserInput = Console.ReadLine()
- While IncrementingNumberToBESquared <> UserInput
- IntermediateCalculationMultiplication = IncrementingNumberToBESquared * IncrementingNumberToBESquared
- If IntermediateCalculationMultiplication > UserInput Then
- UserInput = IncrementingNumberToBESquared
- Console.WriteLine("Not a square Number")
- ElseIf IntermediateCalculationMultiplication < UserInput Then
- IncrementingNumberToBESquared = IncrementingNumberToBESquared + 1
- ElseIf IntermediateCalculationMultiplication = UserInput Then
- UserInput = IncrementingNumberToBESquared
- Console.WriteLine("A squareNumber")
- End If
- End While
- Console.ReadKey()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement