Eklenecek nesneler: text
command button
[vb]Private Sub Command1_Click()
Dim i, j
Cls
i = Val(Text1.Text)
j = Int(i / 100)
Print j; " Tane 100 YTL Vardır "
i = i Mod 100
j = Int(i / 50)
Print j; " Tane 50 YTL Vardır "
i = i Mod 50
j = Int(i / 20)
Print j; " Tane 20 YTL Vardır "
i = i Mod 20
j = Int(i / 10)
Print j; " Tane 10 YTL Vardır "
i = i Mod 10
j = Int(i / 5)
Print j; " Tane 5 YTL Vardır "
i = i Mod 5
j = Int(i / 1)
Print j; " Tane 1 YTL Vardır "
i = i Mod 1
End Su