[Black Rain]

Girilen para miktarındaki banknotları bulup ekrana yazdıran program.
Eklenecek nesneler: text1, command1

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 Sub

Private Sub Form_Load()
    Text1.ToolTipText = "Para Miktarını Giriniz"
End Sub