Question

How to divide a given amount into different bills (banknote) and coins in VB.NET

Answer 1

Imports System

Public Class Program
	Public Shared Sub Main()
        Dim bills_coins As Integer() = {1000, 500, 100, 50, 20, 10, 5, 2, 1}
        Dim amount As Integer = 9725
        Dim tmp As Integer = amount

        For i As Integer = 0 To bills_coins.Length - 1
		Console.WriteLine(bills_coins(i) & " = " & tmp \ bills_coins(i)) ' \ not /
            tmp = tmp Mod bills_coins(i)
        Next
    End Sub
End Class




' run:
'
' 1000 = 9
' 500 = 1
' 100 = 2
' 50 = 0
' 20 = 1
' 10 = 0
' 5 = 1
' 2 = 0
' 1 = 0
' 

 

70+ SQL courses for beginners and professionals