14 lines
256 B
Text
14 lines
256 B
Text
' FB 1.05.0 Win64
|
|
|
|
Randomize
|
|
Dim n As Integer = Int(Rnd * 10) + 1
|
|
Dim guess As Integer
|
|
Print "Guess which number I've chosen in the range 1 to 10"
|
|
Print
|
|
Do
|
|
Input " Your guess : "; guess
|
|
If n = guess Then
|
|
Print "Well guessed!"
|
|
End
|
|
End If
|
|
Loop
|