Este ejercicio consiste en el desglose de billetes y monedas de acuerdo a una cantidad introducida por el teclado.
Ejemplo:
Cantidad Introducida: $1,789.00
Desglose de billetes:
- 500 –> 3
- 200–> 2
- 100–> 0
- 50–> 1
- 20–> 1
Desglose de monedas
- 10 –> 1
- 5 –> 1
- 2 –> 2
- 1 –> 0
*la nominación mas alta que consideraremos será de $500.00
Como una pequeña referencia, puedes considerar el siguiente segmento de código:
intCan = Val(Text1.Text)
’inicialmente intSobra tiene el mismo valor de intCan
intSobra = intCan
'se inicia la validacion por la nominacion mas alta
If intCan >= 500 Then
'determinar la cantidad de billetes de 500
'si intCan igual a 1789, entonces 1789\500 = 3
intBillQuin = intCan \ 500
'determinar el residuo, 1789 mod 500 = 289
'los 289 los usamos para la siguiente comparacion
intSobra = intSobra Mod 500
'visualiza resultados
Label1.Caption = intBillQuin
Label2.Caption = intSobra
End If
Créditos: lemm