Usando la programación VB para calcular el problema del pollo y el conejo en la misma jaula
Agregue el siguiente código al botón de comando:
Dim i As Integer, k As Integer, j As Integer
Dim x As String
j = 0
Para i = 1 a 35
Para k = 1 a 35
Si (i * 3 k * 4) = 100 Entonces
x = x amp; Chr(13) amp; "tres patas: " amp; i amp ", cuatro patas: " k
j = j 1< / p>
Finalizar si
Siguiente
Siguiente
MsgBox "Las condiciones que cumplen las condiciones son:" amp x Chr(13; ) amp; Chr(13) amp; "Existen "*** situaciones de este tipo" amp; j amp; "."