--------------------------------------------------------------------------------



Private Sub Command1_Click()
Dim i, j
Cls
i = Val(Text1.Text) 'text kutusuna yazılanı sayıya cevirir.'
j = Int(i / 10000000)
Print j; "tane 10000000 tl"
i = i Mod 10000000
j = Int(i / 5000000)
Print j; "tane 5000000 tl"
i = i Mod 5000000
j = Int(i / 1000000)
Print j; "tane 1000000 tl"
i = i Mod 1000000
j = Int(i / 500000)
Print j; "tane 500000 tl"
i = i Mod 500000
j = Int(i / 250000)
Print j; "tane 250000 tl"
i = i Mod 250000
j = Int(i / 100000)
Print j; "tane 100000 tl"
i = i Mod 100000
j = Int(i / 50000)
Print j; "tane 50000 tl"
i = i Mod 50000
j = Int(i / 10000)
Print j; "tane 10000 tl"
i = i Mod 10000
j = Int(i / 5000)
Print j; "tane 5000 tl"
i = i Mod 5000
Print "kalan"; i; "tl nin degeri yok"
End Sub