Question

Imagine your boss hands you a large bag. You are told it contains an unknown number of American currency notes (i.e. paper money). Your job is to sort the entire bag and provide a count for each of the following de $10, $20, $50, and $100. s: $1, $2, $5 You most likely would create a pile for each denomination. As you extract a bill from the bag, you would determine its value and then add it to the appropriate pile. After the last bil is place, you could separately tally the piles and provide a report like the below example. Count $1 $10 $20 $50 $100 74 76 92 Unfortunately, I do not have a bag of money for you. Instead, I will provide you with a text file that represents the money bag. MoneyBag.txt Please develop a program that accomplishes the same results as described above. Your program should create an array to hold the counts for each possible denomination. It should read the Money Bag text file into a different array. To determine the count for each denomination, your program should loop through each element in the Money Bag text file array, determine its value, and then, within the array created to hold the denomination counts, update the tally for the appropriate denomination. For example, if the current element is 20, increase the twenties count by one. After looping through the file and updating the array, display the results in a list box. Please model the results after the above example. Below is an example of an array that holds the counts for each denomination. Please note that it uses constants in place of numeric literals. moneyBag(ONES IDX) moneyBag(TWOSIDX) moneyBag(FIVES IDX) moneyBag(TENS IDX) moneyBagiTWENTIES IDX) moneyBag(FIFTIES_IDX) moneyBag(HUNDREDS_IDX)

What are the first few steps to solving this on Microsoft Visual Basis

Answer 1

Module Module1

Sub Main()
Dim fileReader As System.IO.StreamReader
fileReader =
My.Computer.FileSystem.OpenTextFileReader("D:\\MoneyBag.txt")
Dim line As String
Dim n(500) As String
Dim count As Integer, i As Integer
count = 0
i = 0
line = fileReader.ReadLine()
While (line <> Nothing)
line = fileReader.ReadLine()
count = count + 1
n(i) = line
i = i + 1
End While
Dim intData() As Integer = {1, 2, 5, 10, 20, 50, 100}
Dim intVal(7) As Integer
For i = 0 To count
If n(i) = "1" Then
intVal(0) = intVal(0) + 1
ElseIf n(i) = "2" Then
intVal(1) = intVal(1) + 1
ElseIf n(i) = "5" Then
intVal(2) = intVal(2) + 1
ElseIf n(i) = "10" Then
intVal(3) = intVal(3) + 1
ElseIf n(i) = "20" Then
intVal(4) = intVal(4) + 1
ElseIf n(i) = "50" Then
intVal(5) = intVal(5) + 1
Else
intVal(6) = intVal(6) + 1
End If
Next i
Console.WriteLine("Denominations Count")
For i = 0 To 6
Console.Write(intData(i) & Space(15) & intVal(i))
Console.WriteLine()
Next

Console.Read()
End Sub

End Module