Escribir un juego de adivinanzas de números en HTML usando vbscript
dim i
do
i=int(1+10*rnd)
u=inputbox("El sistema ha dado un número entre 1~10, adivina qué es (ingresa 0, finaliza el programa)", "Por favor ingresa", "0")
u=cint(u)
si u=0 entonces sal de do
j=1
hacer mientras u<>i
j=j+1
si u>i entonces
s="adivinaste en grande"
else
s="adivinaste en pequeño"
fin si
u= inputbox(s ", ¡adivina otra vez!", "Por favor ingresa", "0")
u=cint(u)
Bucle
msgbox "Tú La " j "ésima suposición fue correcta, fue " i
Loop