Sub Page_Load()
Dim theNumber As Integer
Dim theGuess As Integer
theNumber = int(10 * rnd) + 1
If Page.IsPostBack Then
theGuess = Guess.SelectedItem.Value
If theGuess > theNumber then
Message.Text = "
Guess is too high
Try again ?it was " _
& theNumber
End If
If theGuess < theNumber then
Message.Text = "
Guess is too low
Try again ?it was " _
& theNumber
End If
If theGuess = theNumber then
Message.Text = "
Guess is correct!"
End If
End If
End Sub
What number am I thinking of?
1
2
3
4
5
6
7
8
9
10