Opción ExplicitRandomize 'Semilla aleatoria Dim nDim infoDim speaDim aDim bDim q 'Definir variable info = -1 'Valor inicial Hacer hasta info = 1 O info = 2 O info = 3 O info = 0 'hacer bucle hasta info=0-3 El ciclo termina cuando uno de los números info = InputBox("Seleccione la dificultad del juego." & Chr(10) & "1: Nivel bajo" & Chr(10) & "2: Nivel intermedio" & Chr(10) & "3:Avanzado" & Chr(10) & "0:Salir" & Chr(10) & "1 es el dígito único, 2 es el dígito de las decenas, 3 es el dígito de las centenas", "Adivina el número " ) 'Abre el cuadro de diálogo e ingresa el valor Seleccionar información del caso 'Prueba este valor Caso 1 'Si el valor es 1, asigna a n un valor de 10 n = 10 Caso 2 n = 100 Caso 3 n = 1000 Caso 0 n = 0 Caso Else n = -1 Fin Seleccionar Si n = -1 Entonces 'Si n es -1, aparecerá el mensaje de error MsgBox "¡Error de entrada!", 16, "Adivina el número" Fin IfLoopIf n = 0 Entonces 'Si n=0, salga del script wscript.quitEnd Ifa = Int(Rnd() * n) 'Con n como rango, asigne un número aleatorio a aq = Int((a)) + 1 'A toma un número entero más 1 y lo asigna a q Do Until a = Int(q) 'Cuando a es igual a q Cuando la variable toma un número entero, sale del bucle q = InputBox("¿Adivina cuántos?" & Chr(10) & " Puede ingresar [e] para salir en cualquier momento.", "Adivina el número ") 'Aparece un cuadro de diálogo para que el usuario ingrese el valor adivinado y luego se asigna a q Si q = "e" Entonces 'q es igual a e y sale del script MsgBox "¡Gracias por usarlo! Que tengas un buen día.", , "Adivina el número" wscript.quit End If If Int(q) > a Then 'Si q es mayor que a, aparece el mayor que el mensaje MsgBox "¡Es demasiado grande!", 48, "Adivina el número" End If If Int(q) < a Then 'Si q es menor que a, aparece el mensaje mayor que MsgBox "¡Es demasiado pequeño!", 48 , "Adivina el número" End IfLoopIf Int(q) = a Then 'Si q es igual a a, aparecerá un mensaje de felicitación MsgBox "¡Felicitaciones, ganaste!", 48, "Adivina el número" End IfMsgBox "Gracias por usándolo! Te deseo un feliz día. ", , "Adivina el número"