Expertos en programación de VB, vengan rápido, es necesario esta noche y estarán esperando el método exhaustivo en línea.

¡Ábrelo y compruébalo tú mismo!

El código está a continuación:

Opción explícita

Subcomando privado1_Click()

Atenuar i como entero

Dim j como entero

Dim k como entero

Dim Y como entero

Dim n69 como entero

Dim n39 como entero< / p>

Dim n29 como entero

Y = 600

¿Para i = 1 a 8? 'Supongamos que hay raíces i que interceptan 69 CM, 600/69 es como máximo 8

Para j = 1 a 15 ? 'Supongamos que la intercepción de 39CM tiene J raíces, 600/39 es como máximo 15

Para k = 1 a 20 'Supongamos que la intercepción de 29CM tiene K raíces, 600/29 es como máximo 20

?Si i * 69 j * 39 k * 29 lt; Entonces ?'Si no satisface más de 600CM, es un conjunto de respuestas

Si 600 - (i * 69 j * 39 k * 29) lt; Y Entonces 'Si el resto es menor que el de la variable Y, guarde i, j, k y el resto

n69 = i

n39 = j

n29 = k

Y = 600 - (i * 69 j * 39 k * 29)

Finalizar si

?Finalizar si

? Siguiente k

Siguiente j

Siguiente i

Imprimir "69CM:"; n69; "Raíz"

Imprimir "39CM:"; n39; "Raíz"

Imprimir "29CM:";

Imprimir "Yu: "; Y; "CM"

Imprimir

Imprimir

Imprimir

Fin Sub

Private Sub Command2_Click ()

Atenuar i como entero

Para i = 0 a 99 '¿Trata estos dos dígitos como un número de dos dígitos, el rango es 0-99

'Tenga en cuenta que debe multiplicarse por 10 para que sirva como las decenas y centenas del número de 5 dígitos Mod es igual a 0, lo que indica que se puede dividir en partes iguales.

Si (67008 10 * i) Mod 78 = 0 y (67008 10 * i ) Mod 67 = 0 Entonces

¿Imprimir 67008 10 * i

Finalizar si

Siguiente i

Fin Sub