I need help with this simple guessnumber visual basic program. the book says to write the loops under the comments "Validate Input", but im not sure what to write, for I'm horrible at programming. This is the last program of the chapter and it's due today! Please help!
' GuessNumber.vb - This program allows a user to guess a number between 1 and 10.
' Input: User guesses numbers until they get it right
' Output: Tells users if they are right or wrong
Module GuessNumber
Sub Main()
Dim number As Integer ' Number to be guessed
Dim userNumber As Integer ' User's guess
Dim stringNumber As String ' String version of user's guess
Dim keepGoing As String ' Contains a "Y" or "N" determining if the user wants to continue
Randomize()
number = Int((10 * Rnd) + 1) ' Generate random number
' Prime the loop
keepGoing = InputBox$("Do you want to guess a number? Enter Y or N")
' Validate input
' Enter loop if they want to play
Do While keepGoing = "Y"
' Get user's guess
stringNumber = InputBox$("I'm thinking of a number. . Try to guess by entering a number between 1 and 10")
userNumber = Val(stringNumber)
' Validate input
' Test to see if the user guessed correctly
If userNumber = number Then
keepGoing = "N"
System.Console.WriteLine("You are a genius. That's correct!")
Else
keepGoing = InputBox$("That's not correct. Do you want to guess again? Enter Y or N")
' Validate input
keepgoing = "Y"
End If
Loop ' End of Do While loop
End Sub ' End of Main() procedure
End Module ' End of GuessNumber Module
' GuessNumber.vb - This program allows a user to guess a number between 1 and 10.
' Input: User guesses numbers until they get it right
' Output: Tells users if they are right or wrong
Module GuessNumber
Sub Main()
Dim number As Integer ' Number to be guessed
Dim userNumber As Integer ' User's guess
Dim stringNumber As String ' String version of user's guess
Dim keepGoing As String ' Contains a "Y" or "N" determining if the user wants to continue
Randomize()
number = Int((10 * Rnd) + 1) ' Generate random number
' Prime the loop
keepGoing = InputBox$("Do you want to guess a number? Enter Y or N")
' Validate input
' Enter loop if they want to play
Do While keepGoing = "Y"
' Get user's guess
stringNumber = InputBox$("I'm thinking of a number. . Try to guess by entering a number between 1 and 10")
userNumber = Val(stringNumber)
' Validate input
' Test to see if the user guessed correctly
If userNumber = number Then
keepGoing = "N"
System.Console.WriteLine("You are a genius. That's correct!")
Else
keepGoing = InputBox$("That's not correct. Do you want to guess again? Enter Y or N")
' Validate input
keepgoing = "Y"
End If
Loop ' End of Do While loop
End Sub ' End of Main() procedure
End Module ' End of GuessNumber Module
Last edited: