a(1)=0: a(2)=3: a(3)= 5: a(4)=7
a(5)= 9: a(6)= 11: a(7)= 13: a(8)= 15
a(9)= 17: a(10)= 19
key= Int(Rnd*5)*2+5
s=" "
i=1: j= 10
Do While i<= j
m=(i+j)\2
s=s+ Str(a(m))
If a(m)>key Then
j=m-1
Else
i=m+1
End If
Loop
Text1.Text= s