no me sale este programa

[haker1]

hola ha todos necesito ayuda acerca de un programa en visual basic, el programa es el siguiente, insertar un numero y averiguar cuantos de a 100, 50, 20, 10, 5, 1, 0.50, 0.10, 0.05 y 0.01,

suponiendo que le numero sea 450, debe de decir que tiene 4 de  100 y 1 de 50 y los demas no deben tener nada

suponiedo que el numero se 460, debe decir que tiene cuatro de 100, uno  de 50, y uno de a 10 y los demas no deben tener dada

suponiendo que sea 488.67 debe de decir que tiene cuatro de  100, uno de  50, uno de  20, uno de  10, uno de  5, tres de uno, uno de  0.10, uno de 0.05 y dos de 0.01

[Guan]

mira, yo lo qe haria seria comprovar si el numero es mayor de 100, si lo es, restarle 100, y probar el nuevo numero, si sigue siendo mayor de 100, pue se los vuelves a restar, y le sumas una de 100 a una variable o un label o lo qe sea, donde lo pongas. El numero restante (Por ejemplo si el numero es el 250, pues los 50) vuelves a probar a ver si es mayor de 100 (o igual), como no lo es, pues pruebas con la siguiente cantidad, 50. Como si qe es maayor o igual a 50, pues le restas 50, y añades uno a la variable de las monedas de 50, total qe lla llevas 2 de 100 i una de 50.

PD: Antes de ponerte a restar nada o a comprobar, dile al programa qe si el numero ya es 0, qe se salte el resto del proceso.

Saludos

[crypto136]

Ahi esta un codigo que lo hice muy rapido y al vuelo jeje suerte cualquier duda avisa

Código:

Public d As Double
Public r As Double
Public x As Double

Private Sub Command1_Click()
For i = 1 To x Step 1
If x > 0 Then
        r = caca(x, 100)
        r2 = caca(x, 50)
        r3 = caca(x, 10)
        r4 = caca(x, 5)
        r5 = caca(x, 1)
        GoTo salida
End If
Next i
Exit Sub
salida:
    MsgBox "El numero " & d & " tiene : " & vbCrLf & _
    r & " numeros 100" & vbCrLf & r2 & " numeros 50" & _
    vbCrLf & r3 & " numeros 10" & vbCrLf & r4 & " numeros 5" & _
    vbCrLf & r5 & " numeros 1"
End Sub

Public Function caca(y As Double, z As Double)
On Error GoTo erro
caca = Int(y / z)
x = y Mod z
Exit Function
erro:
    MsgBox Err.Description & " Numero demasiado extenso"
End Function

Private Sub Text1_Change()
x = Val(Text1.Text)
d = Val(Text1.Text)
End Sub

[haker1]

hey te lo agradesco, gracias mil gracias, si tengo dudas alli te aviso, gracias