Random Solution

[Madiha Nadeem]

I am new in programming and i am using visual basic. I need to know how to code an application that allows the user 10 chances to guess a random number generated by the computer and the application should display a "congrulations!" message and if user is not able to guess the random number after 10 tries, the application should display the random number in a message. I will be appriciated for the help because this is a very imp assignment which i have to submit in next week.

[MSeda]

you could use something like:

Dim myval as integer
Dim chnc as integer
Dim guess as integer
 
Randomize()
Myval = int(rnd * 100)
Chnc = 1
 
Do while chnc <= 10
 Guess = InputBox("Please Guess a number between 0 and 100", "Chance " & chnc  
     If guess = myval then
     Msgbox “Congratulations”,,”You Win”
     Exit Sub
 
     Elseif chnc < 10 AND guess <> myval then
     Msgbox “Sorry you did not Guess the number.” & vbcr & “You have  “  & 10 – chnc & “ guesses left.”,,”No Match”
 
     Elseif chnc = 10 AND guess <> myval then
     Msgbox “Sorry you did not Guess the number and have no chances left.”,,”You Lose”
     End if    chnc = chnc + 1
Loop

[Madiha Nadeem]

Thanks for the help.