Problema de cambio. ¿Cuántas formas hay de cambiar un dólar por cambio de 1 centavo, 2 centavos o 5 centavos?
Idea:
1$ se puede canjear por hasta 100 1 centavo, 50 2 centavos y 20 5 centavos de cambio
Código:
Private Sub Command1_Click()
Dim I como entero, J como entero, K como entero, SUM como simple, N como entero
Para I = 0 a 100
Para J = 0 a 50
Para K = 0 a 20
SUMA = I * 0,01 J * 0,02 K * 0,05
Si SUMA = 1 Entonces
Lista1 .AddItem "1 punto" amp; I amp; "uno; 2 puntos" amp; "uno; 5 puntos" amp; 1
Fin Si
Siguiente K
Siguiente J
Siguiente I
MsgBox "* **" amp; N amp; "Tipo de cambio"
End sub
Si debe haber 3 tipos de monedas para cada tipo de cambio, el bucle FOR en el código anterior debe comenzar desde 1.
Ciclo 541 y 461 tipos de cambio respectivamente
.