programa de adivinanzas vbs

msgbox "Hay un número entre 1 y 100. ¡Adivina cuál es!", vbinformation, "Juego de adivinar los números"

aleatorizar

c = int((20*rnd)+1)

d=1

hacer hasta e=vbno o d=11

b=inputbox("Adivina ¿cuál es el número " & "Aún tienes [" & 11-d &"] posibilidades "," Juego de adivinar los números")

d=d+1

si? b="" entonces

msgbox "¿No quieres jugar más?",,"¡Adiós!":Wscript.Quit

else

b= int( b)

if b>c then

e=msgbox("Tu suposición es demasiado grande, ¿quieres continuar?",vbyesno,"Adivina el juego de números" )

elseif b

e=msgbox("Tu conjetura es demasiado pequeña, ¿quieres continuar?",vbyesno,"Adivina el juego de números")

elseif b=c entonces

msgbox "Felicitaciones por la respuesta correcta",vbinformation,"¡Se acabó el juego!":wscript.quit

finaliza si

end if

if d>10 then msgbox "Se han aprovechado diez oportunidades. Comienza de nuevo.",vbinformation,"¡Se acabó el juego

bucle