Código VB para pollo y conejo en la misma jaula
¿Privado? ¿Sub? Command1_Click()
¿Hacer x irregular
? =?Int(Rnd?*?(20?-?2? ?1)? ?2)
y? =?Int(Rnd?*?(x?-?2? ?1)? ?0)
z? =?x? -?y
Texto1. ¿Palabra? ="¿Ahora hay gallinas y conejos en una jaula, y siempre hay uno"? ¿amperio? ¿incógnita? ¿amperio? "¿Cuál es la diferencia?" ¿amperio? ¿y? *?2? *?4?amp? "? "¿Cuántas gallinas y conejos hay en la jaula? "
Etiqueta 4. ¿Visible? =? Falso
Cls
¿Fin? Submarino
¿Privado? Sub? Command2_Click() p>
¿Qué pasa si ?=?Val(Text2.Text)? Entonces ? Integer
se retira? =?MsgBox("Aprobaste el examen, ¿quieres abandonar?",?1? ?64??2??4096,?"Aprobó el examen")
Si? isquit?=?1?Entonces
Fin
¿Fin?
Otro
MsgBox? "?0? ?16? ?0? ?4096,?"Tragedia"
Etiqueta 4. ¿Visible?=?Real
Etiqueta 4. ¿Título?=?La respuesta es "es"? amp? y? amp? "pollo y"? amp?
¿Fin? Submarino
¿Privado? form_load()
Irregularizar
x?Int(Rnd?*?(20? -?2? ?1)? 2)
y? =?Int(Rnd?*?(x?-?2? ?1)? ?0)
z? =?x? /p>
Texto ? =? "Siempre hay uno en una jaula"? "?amp?y?*?2??z?*?4?amp?"? "¿Cuántas gallinas y conejos hay en la jaula?"
Etiqueta 4. ¿Color de primer plano? =?vbRed
¿Fin? Submarino
¿Renderizado? Eso es todo. ...
¿Tengo un sistema de exámenes completo? Código fuente... (Lo hice yo mismo hace mucho tiempo)
Si lo necesitas, por favor contáctame...541601475.