¿VB adivina el código fuente del juego numérico?
¿Oscuro? ¿b? ¿Como? Entero
¿Atenuado? js? ¿Como? Entero
¿Privado? ¿Sub? Button1_Click(¿ByVal?Remitente?As?System.Object,?ByVal?e?As?System.EventArgs)? ¿manejar? Botón 1. Haga clic
¿Y si? I. Botón 1. ¿Palabra? ="Inicio"? Entonces
¿atenuado? ¿respuesta? ¿Como? ¿Entero? =?MsgBox("¿Está listo el juego?"? MsgBoxStyle. ¿Lo está? "¡Pregunta!")
¿Si? ¿respuesta? =?6?Entonces
js? =?1
Yo. Botón 1. ¿Palabra? =?"Está bien"
Yo. Botón 2. ¿Texto? =?"regresar"
i. Etiqueta2.Texto? =?"Tengo un número entero positivo aquí del 1 al 10. Adivina cuál es."
Yo. Cuadro de texto 1. ¿visible? =?Verdadero
Aleatorio()
b? =?Int(Rnd()?*?9?+?1)
Otro
¿Salir? Submarino
¿Fin? Si
Otro
¿Si? I. Cuadro de texto 1. texto. ¿ciruela pasa? =?""?O? ¿Asc(i.cuadro de texto1.texto)? <? 19? ¿Asc(i.cuadro de texto1.texto)? >? 57? Entonces
MsgBox("Ingrese un número")
¿Salir? Submarino
Otro
¿Y si? js? =?3?Entonces
MsgBox("Lo siento, te has excedido 3 veces, por favor comienza de nuevo")
Yo. Botón 1. ¿Palabra? =?"Ve"
Yo. Botón 2. ¿Texto? =?"Salir"
i. Cuadro de texto 1. ¿visible? =?Mal
Yo. Etiqueta2.Texto? =?""
Otro
¿Si? I. Cuadro de texto 1. ¿Palabra? =?b? Entonces
yo. Etiqueta2.Texto? =?"Tienes suerte de haber adivinado correctamente."
Yo. Botón 1. ¿visible? =?Mal
Yo. Botón 2. ¿Visible? =?Mal
Yo. Botón 3. ¿Visible? =?Real
¿Elsef? Cuadro de texto 1. ¿Palabra? >? ¿b? Entonces
js? +=?1
Yo. Cuadro de texto 1. ¿Palabra? =?""
Yo. Etiqueta2.Texto? =?"Sus datos son demasiado grandes, vuelva a adivinar. Tenga en cuenta que solo se permiten tres conjeturas.
¿Otro? Cuadro de texto 1. ¿Texto?<?b?Entonces
js ? +=?1
i.text?=?""
i.text? Por favor, adivina de nuevo. Tenga en cuenta que sólo se permiten tres conjeturas.
¿Fin? Si
¿Finalizar? Si
¿Finalizar? Si
¿Finalizar? Si
¿Finalizar? Submarino
¿Privado? ¿Sub? Button3_Click(¿ByVal?Remitente?As?System.Object,?ByVal?e?As?System.EventArgs)? ¿manejar? Botón 3. Haz clic
en mí. Botón 1. ¿Palabra? =?"Ve"
Yo. Botón 2. ¿Texto? =?"regresar"
i. Cuadro de texto 1. ¿Palabra? =?""
Yo. Botón 3. ¿Visible? =?Mal
Yo. Cuadro de texto 1. ¿visible? =?Mal
Yo. Etiqueta2.Texto? =?""
Yo. Botón 1. ¿visible? =?El verdadero
yo. Botón 2. ¿Visible? =?Real
¿Fin? Submarino
¿Fin? Clase
Acabo de intentar compilarlo con VB.
Te lo enviaré si lo necesitas.