Dim vector(1 To 6) As Integer
Dim totales(1 To 6) As Integer
vector(1) = 200
vector(2) = 100
vector(3) = 50
vector(4) = 20
vector(5) = 10
vector(6) = 5
totales(1) = 0
totales(2) = 0
totales(3) = 0
totales(4) = 0
totales(5) = 0
totales(6) = 0
monto = <Cifra a desglosar>
For i = 1 To 6
resto = monto Mod vector(i)
totales(i) = (monto - resto) / vector(i)
monto = monto - totales(i) * vector(i)
Print totales(i), vector(i), "=", totales(i) * vector(i)
Next i
