Temas Variados

Ok, haber si puedo explicarlo mejor.

El asunto es hacerlo con el menor número de billetes. Por ejemplo: si la cantidad a retirar es 350 del cajero es ilógico que nos diera 35 billetes de 10 pesos,lo correcto sería que nos diera solo 3 billetes, 1 de 200, 1 de 100 y 1 de 50 así sumaria los 350 pesos con menos cantidad de billetes.

Por lo tanto el chiste primero es dividir la cantidad aretirar entre el billete de mayor denominación (200) para saber cuantos billetes de 200 pesos ocuparía para forma la cantidad a retirar y hacer lo mismo con los demás billetes de menor denominación y asíaveriguar cuantos billetes de cada uno ocuparíamos.

Para hacer el programa necesitas colocar en el formulario lo siguiente:

1 casilla de texto (txtCantidadARetirar)
1 boton(cmdCalcularBilletes)
5 casillas de texto con los siguientes nombres: txt200, txt100, txt50, txt20, txt10

en el código del botón "cmdCalcularBilletes_Click" colocas lo siguiente:

Private SubcmdCalcularBilletes_Click()
'limpiamos las casillas los billetes para eliminar restos de anteriores cálculos
txt200.Text = ""
txt100.Text = ""
txt50.Text = ""
txt20.Text = ""
txt10.Text = ""

'guardamos en lavariable "cantidad" la cantidad a retirar
cantidad = Val(txtCantidadARetirar.Text)

'obtenemos la cantidad de billetes de 200 dividiendo la cantidad
'a retirar (cantidad) entre la denominación delbillete (200) y lo guardamos
'en la variable "b200" (observa que es una división entera --> "\" [diagonal invertida])
b200 = cantidad \ 200
'restamos a la cantidad a retirar (cantidad) la cantidadde
'billetes de 200 (cantidad billetes [b200] x denominación del billete [200])
cantidad = cantidad - (b200 * 200)

'hacemos los mismos cálculos para obtener la cantidad de
'billetes de 100, 50,20 y 10
b100 = cantidad \ 100
cantidad = cantidad - (b100 * 100)

b50 = cantidad \ 50
cantidad = cantidad - (b50 * 50)

b20 = cantidad \ 20
cantidad = cantidad - (b20 * 20)

b10 = cantidad...