Programas/Juegos: Acertijo

Descripción del programa: 

Mediante preguntas, el programa adivina el número que hayamos pensado (1-999) en muy pocos intentos.

Programa:

(VERSION:001)

Sub Main
  Rem Acertijo
  Msgbox "Piense un numero del 1 al 999" 
  h = 1000
  l = 0
  r = 500
  t = 0
  Do
    t = t + 1 
    Inputbox "El numero que ha pensado es Igual, Menor o Superior que " & r;i
    If i = "s" Then 
      l = r
      r = r + Floor((h-r)/2)
    ElseIf i = "m" Then 
      h = r
      r = r - Floor((r-l)/2)
    End If
  Loop Until i = "i"
  Print "Lo he acertado, total intentos=" & t
End Sub