12-11-2004, 06:58 AM
[syntax="QBASIC"]
'Testing...
option explicit
randomize timer
dim number as integer
dim answer as string
number=int(rnd*100)
print number
dosad
line input "Enter the number: "; answer$
select case val(answer$)
case is > number
print "The number is smaller!"
case is < number
print "The number is bigger!"
case else
print "You are th winner!"
sleep
end
end select
loop[/syntax]
Always says number is bigger -second choice. fbc ver 0.7
'Testing...
option explicit
randomize timer
dim number as integer
dim answer as string
number=int(rnd*100)
print number
dosad
line input "Enter the number: "; answer$
select case val(answer$)
case is > number
print "The number is smaller!"
case is < number
print "The number is bigger!"
case else
print "You are th winner!"
sleep
end
end select
loop[/syntax]
Always says number is bigger -second choice. fbc ver 0.7
url]http://fbide.sourceforge.net/[/url]