Red de conocimiento informático - Consumibles informáticos - Código VB para pollo y conejo en la misma jaula

Código VB para pollo y conejo en la misma jaula

¿oscuro? ¿incógnita? ¿Como? Entero,? ¿y? ¿Como? Entero,? z? ¿Como? Entero

¿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()

¿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.