dim s as INTEGER
dim a as INTEGER
randomize timer
do
a=int(rnd*10)+1
do
input"猜数=",s
if s<a then print"小了"
if s>a then print"大了"
if S=a then print"对了"
loop until s=a
loop