Red de conocimiento informático - Descarga de software - Usando la programación VB para calcular el problema del pollo y el conejo en la misma jaula

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; "."