Module Module1
'billetes de 200, 100, 50, 20, 10
Public Sub Repartir(ByVal Cantidad As Integer)
Dim Billete200 As Integer
Dim Billete100 As Integer
Dim Billete50 As Integer
Dim Billete20 As Integer
Dim Billete10 As Integer
Do While Cantidad >= 10
Select Case Cantidad
Case Is >= 200
Billete200 = Cantidad 200
Cantidad = Cantidad - Billete200 * 200
Case Is >= 100
Billete100 = Cantidad 100
Cantidad = Cantidad - Billete100 * 100
Case Is >= 50
Billete50 = Cantidad 50
Cantidad = Cantidad - Billete50 * 50
Case Is >= 20
Billete20 = Cantidad 20
Cantidad = Cantidad - Billete20 * 20
Case Is >= 10
Billete10 = Cantidad 10
Cantidad = Cantidad - Billete10 * 10
End Select
Loop
MsgBox("Hay " & Billete200 & " de 200, " & Billete100 & " de 100, " & Billete50 & " de 50, " & Billete20 & " de 20, " & Billete10 & " de 10, y " & Cantidad & " monedas de 1")
End Sub
End Module